Function findID

SRC/tcl/commands.cpp:6741–6777

int 
findID(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
    // make sure at least one other argument to contain type of system
    if (argc < 2) {
	opserr << "WARNING want - findNodesWithID ?id\n";
	return TCL_ERROR;
   }    

    int tag;

    if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
	opserr << "WARNING eleForce eleTag? dof? - could not read nodeTag? \n";
	return TCL_ERROR;	        
    }    

    NodeIter &theNodes = theDomain.getNodes();
    Node *theNode;
    char buffer[20] ={0};
    

    while ((theNode = theNodes()) != 0) {
      DOF_Group *theGroup = theNode->getDOF_GroupPtr();
      if (theGroup != 0) {
	const ID &nodeID =  theGroup->getID();
	for (int i=0; i<nodeID.Size(); i++) {
	  if (nodeID(i) == tag) {
	    sprintf(buffer, "%d ", theNode->getTag());
	    Tcl_AppendResult(interp, buffer, NULL);
	    break;
	  }
	}
      }
    }
      
    return TCL_OK;
}

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