Method setR

SRC/domain/node/Node.cpp:1315–1351

}  

int 
Node::setR(int row, int col, double Value)
{
  // ensure R had been set
  if (R == 0) {
    opserr << "Node:setR() - R has not been initialised\n";
    return -1;
  }
  
  // ensure row, col in range (matrix assignment will catch this - extra work)
  if (row < 0 || row >= numberDOF || col < 0 || col >= R->noCols()) {
    opserr << "Node:setR() - row, col index out of range\n";
    return -1;
  }
  
  // do the assignment
  (*R)(row,col) = Value;
  
  /*
  // to test uniform excitation pattern with consistent mass matrices:
  // found that the static application of a unit ground displacement
  // needs to also be applied to the constrained DOFs
  Domain *theDomain = this->getDomain();
  SP_ConstraintIter &theSPs = theDomain->getSPs();
  SP_Constraint *theSP;
  // assign zero if there is a homogeneous SP
  while ((theSP = theSPs()) != 0) {
      if (theSP->getNodeTag() == this->getTag() &&
          theSP->getDOF_Number() == row &&
          theSP->isHomogeneous()) {
              (*R)(row,col) = 0.0;
      }
  }
  */
  
  return 0;
}