Function nodeAccel

SRC/tcl/commands.cpp:7687–7740

}

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

    int tag;
    int dof = -1;

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

    const Vector *nodalResponse = theDomain.getNodeResponse(tag, Accel);
    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