Method solveCurrentStep

SRC/analysis/algorithm/equiSolnAlgo/ModifiedNewton.cpp:110–199

int 
ModifiedNewton::solveCurrentStep(void)
{
    // set up some pointers and check they are valid
    // NOTE this could be taken away if we set Ptrs as protecetd in superclass
    AnalysisModel       *theAnalysisModel = this->getAnalysisModelPtr();
    IncrementalIntegrator *theIncIntegratorr = this->getIncrementalIntegratorPtr();
    LinearSOE	        *theSOE = this->getLinearSOEptr();

    if ((theAnalysisModel == 0) || (theIncIntegratorr == 0) || (theSOE == 0) || (theTest == 0)){
      opserr << "WARNING ModifiedNewton::solveCurrentStep() - setLinks() has";
      opserr << " not been called - or no ConvergenceTest has been set\n";
      return -5;
    }	

    // we form the tangent
    //    Timer timer1;
    // timer1.start();

    if (theIncIntegratorr->formUnbalance() < 0) {
      opserr << "WARNING ModifiedNewton::solveCurrentStep() -";
      opserr << "the Integrator failed in formUnbalance()\n";	
      return -2;
    }	

    SOLUTION_ALGORITHM_tangentFlag = tangent;
    if (factorOnce!=2) {
      if (theIncIntegratorr->formTangent(tangent, iFactor, cFactor) < 0){
        opserr << "WARNING ModifiedNewton::solveCurrentStep() -";
        opserr << "the Integrator failed in formTangent()\n";
        return -1;
      }	
      if (factorOnce==1) {
        factorOnce =2;
      }
    }	    

    // set itself as the ConvergenceTest objects EquiSolnAlgo
    theTest->setEquiSolnAlgo(*this);
    if (theTest->start() < 0) {
      opserr << "ModifiedNewton::solveCurrentStep() -";
      opserr << "the ConvergenceTest object failed in start()\n";
      return -3;
    }

    // repeat until convergence is obtained or reach max num iterations
    int result = -1;
    numIterations = 0;
    do {
      //Timer timer2;
      //timer2.start();
	if (theSOE->solve() < 0) {
	    opserr << "WARNING ModifiedNewton::solveCurrentStep() -";
	    opserr << "the LinearSysOfEqn failed in solve()\n";	
	    return -3;
	}	    
	//timer2.pause();
	//opserr << "TIMER::SOLVE()- " << timer2;