Function wipeModel

SRC/tcl/commands.cpp:1424–1505

int 
wipeModel(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv)
{
  wipeAnalysis(clientData, interp, argc, argv);

  /*
  // to build the model make sure the ModelBuilder has been constructed
  // and that the model has not already been constructed
  if (theBuilder != 0) {
    delete theBuilder;
    builtModel = false;
    theBuilder = 0;
  }

  if (theStaticAnalysis != 0) {
      theStaticAnalysis->clearAll();
      delete theStaticAnalysis;
  }
  
  if (theTransientAnalysis != 0) {
      theTransientAnalysis->clearAll();
      delete theTransientAnalysis;  
  }
  */

  // NOTE : DON'T do the above on theVariableTimeStepAnalysis
  // as it and theTransientAnalysis are one in the same
  if (theDatabase != 0)
    delete theDatabase;

  theDomain.clearAll();
  OPS_clearAllUniaxialMaterial();
  OPS_clearAllNDMaterial();
  OPS_clearAllSectionForceDeformation();
  OPS_clearAllSectionRepres();

  OPS_clearAllHystereticBackbone();
  OPS_clearAllStiffnessDegradation();
  OPS_clearAllStrengthDegradation();
  OPS_clearAllUnloadingRule();

  ops_Dt = 0.0;


#ifdef _PARALLEL_PROCESSING
  OPS_PARTITIONED = false;
#endif

#ifdef _NOGRAPHICS

#else
  if (theTclVideoPlayer != 0) {
    delete theTclVideoPlayer;
    theTclVideoPlayer = 0;
  }
#endif

  theAlgorithm =0;