Function nodeReaction

SRC/tcl/commands.cpp:6307–6364

}

int 
nodeReaction(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 - nodeReaction nodeTag? <dof?>\n";
	return TCL_ERROR;
   }    

    int tag;
    int dof = -1;

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

    if (argc > 2) {
      if (Tcl_GetInt(interp, argv[2], &dof) != TCL_OK) {
	opserr << "WARNING nodeReaction nodeTag? dof? - could not read dof? \n";
	return TCL_ERROR;	        
      }   
    }     
    
    dof--;

    const Vector *nodalResponse = theDomain.getNodeResponse(tag, Reaction);

    if (nodalResponse == 0)
      return TCL_ERROR;

    int size = nodalResponse->Size();

    if (dof >= 0) {

      if (dof >= size) {
	opserr << "WARNING nodeReaction nodeTag? dof? - dofTag? too large\n";
	return TCL_ERROR;
      }
      
      double value = (*nodalResponse)(dof);
      
      // now we copy the value to the tcl string that is returned

      char buffer [40];
      sprintf(buffer,"%35.20f", value);
      Tcl_SetResult(interp, buffer, TCL_VOLATILE);
      //      sprintf(interp->result,"%35.20f ",value);
    } else {
      char buffer [40];
      for (int i=0; i<size; i++) {
	sprintf(buffer,"%35.20f",(*nodalResponse)(i));
	Tcl_AppendResult(interp, buffer, NULL);
      }
    }	
	
    return TCL_OK;
}