Function nodeVel

SRC/tcl/commands.cpp:7475–7529

}

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

    int tag;
    int dof = -1;

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

    dof--;

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

    if (nodalResponse == 0)
      return TCL_ERROR;

    int size = nodalResponse->Size();

    if (dof >= 0) {
      if (size < dof)
	return TCL_ERROR;

      double value = (*nodalResponse)(dof);
      
      // now we copy the value to the tcl string that is returned
      //      sprintf(interp->result,"%35.20f",value);
      char buffer [40];
      sprintf(buffer,"%35.20f", value);
      Tcl_SetResult(interp, buffer, TCL_VOLATILE);

    } 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;
}

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