Function nodeDOFs

SRC/tcl/commands.cpp:7323–7359

}

int 
nodeDOFs(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  if (argc < 2) {
    opserr << "WARNING want - nodeDOFs nodeTag?\n";
    return TCL_ERROR;
  }    
  
  int tag;
  
  if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
    opserr << "WARNING nodeDOFs nodeTag? nodeDOF? \n";
    return TCL_ERROR;	        
  }    
  
  char buffer[40];

  Node *theNode = theDomain.getNode(tag);
  if (theNode == 0) {
    opserr << "WARNING nodeDOFs node " << tag << " not found" << endln;
    return TCL_ERROR;
  }
  int numDOF = theNode->getNumberDOF();

  DOF_Group *theDOFgroup = theNode->getDOF_GroupPtr();
  if (theDOFgroup == 0) {
    opserr << "WARNING nodeDOFs DOF group null" << endln;
    return -1;
  }
  const ID &eqnNumbers = theDOFgroup->getID();
  for (int i = 0; i < numDOF; i++) {
    sprintf(buffer, "%d ", eqnNumbers(i));
    Tcl_AppendResult(interp, buffer, NULL);
  }
  
  return TCL_OK;
}

int 
nodeMass(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)