Function sensNodeAccel

SRC/tcl/commands.cpp:7907–7954

 }

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

     // make sure at least one other argument to contain type of system
     if (argc < 4) {
       opserr <<  "WARNING want - sensNodeAccel nodeTag? dof? paramTag?\n";
       return TCL_ERROR;
   }    

    int tag, dof, paramTag;

    if (Tcl_GetInt(interp, argv[1], &tag) != TCL_OK) {
	opserr << "WARNING sensNodeAccel nodeTag? dof? paramTag? - could not read nodeTag? \n";
	return TCL_ERROR;	        
    }    
    if (Tcl_GetInt(interp, argv[2], &dof) != TCL_OK) {
	opserr << "WARNING sensNodeAccel nodeTag? dof? paramTag? - could not read dof? \n";
	return TCL_ERROR;	        
    }        
    if (Tcl_GetInt(interp, argv[3], &paramTag) != TCL_OK) {
	opserr << "WARNING sendNodeAccel nodeTag? dof? paramTag? - could not read paramTag? \n";
	return TCL_ERROR;	        
    }        
    
    Node *theNode = theDomain.getNode(tag);
    if (theNode == 0) {
      opserr << "sensNodeAccel: node " << tag << " not found" << endln;
      return TCL_ERROR;
    }

    Parameter *theParam = theDomain.getParameter(paramTag);
    if (theParam == 0) {
      opserr << "sensNodeAccel: parameter " << paramTag << " not found" << endln;
      return TCL_ERROR;
    }

    int gradIndex = theParam->getGradIndex();
    
    double value = theNode->getAccSensitivity(dof,gradIndex);
    
    char buffer[40];
    sprintf(buffer,"%35.20f",value);

    Tcl_SetResult(interp, buffer, TCL_VOLATILE);

    return TCL_OK;
}

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