Function InitialStateAnalysis

SRC/tcl/commands.cpp:8628–8669

added by C.McGann, U.Washington

// added by C.McGann, U.Washington
int
InitialStateAnalysis(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  if (argc < 2) {
    opserr << "WARNING: Incorrect number of arguments for InitialStateAnalysis command" << endln;
    return TCL_ERROR;
  }
  
  if (strcmp(argv[1],"on") == 0) {
    opserr << "InitialStateAnalysis ON" << endln;

    // set global variable to true
    // FMK changes for parallel: 
    // ops_InitialStateAnalysis = true;

    Parameter *theP = new InitialStateParameter(true);
    theDomain.addParameter(theP);
    delete theP;

    return TCL_OK;
    
  } else if (strcmp(argv[1],"off") == 0) {
    opserr << "InitialStateAnalysis OFF" <<endln;
    
    // call revert to start to zero the displacements
    theDomain.revertToStart();
    
    // set global variable to false
    // FMK changes for parallel
    // ops_InitialStateAnalysis = false;
    Parameter *theP = new InitialStateParameter(false);
    theDomain.addParameter(theP);
    delete theP;

    return TCL_OK;
    
  } else {
    opserr << "WARNING: Incorrect arguments - want InitialStateAnalysis on, or InitialStateAnalysis off" << endln;
    
    return TCL_ERROR;		
  }
}

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