Function analyzeModel

SRC/tcl/commands.cpp:1931–2037

command invoked to build the model, i.e. to invoke analyze() on the Analysis object

// on the Analysis object
//
int 
analyzeModel(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  int result = 0;

#ifdef _PARALLEL_PROCESSING
  if (OPS_PARTITIONED == false && OPS_NUM_SUBDOMAINS > 1) {
    if (partitionModel(0) < 0) {
      opserr << "WARNING before analysis; partition failed - too few elements\n";
      OpenSeesExit(clientData, interp, argc, argv);
      return TCL_ERROR;
    }
  }
#endif

  if (theStaticAnalysis != 0) {
    if (argc < 2) {
      opserr << "WARNING static analysis: analysis numIncr? <-noFlush>\n";
      return TCL_ERROR;
    }
    int numIncr;

    if (Tcl_GetInt(interp, argv[1], &numIncr) != TCL_OK)	
      return TCL_ERROR;	      

    bool flush = true;
    if (argc > 2) {
      if (strcmp(argv[2], "-noFlush") == 0) {
        flush = false;
      }
    }

    result = theStaticAnalysis->analyze(numIncr, flush);
  } else if(thePFEMAnalysis != 0) {
    bool flush = true;
    if (argc > 1) {
      if (strcmp(argv[1], "-noFlush") == 0) {
        flush = false;
      }
    }
    result = thePFEMAnalysis->analyze(flush);
  } else if (theTransientAnalysis != 0) {
    if (argc < 3) {
      opserr << "WARNING transient analysis: analysis numIncr? deltaT? <-noFlush>\n";
      return TCL_ERROR;
    }
    int numIncr;
    if (Tcl_GetInt(interp, argv[1], &numIncr) != TCL_OK)	
      return TCL_ERROR;
    double dT;
    if (Tcl_GetDouble(interp, argv[2], &dT) != TCL_OK)	
      return TCL_ERROR;

    // Set global timestep variable
    ops_Dt = dT;

    bool flush = true;
    if (argc == 4) {