/[ascend]/trunk/models/westerberg/ivpDimensional/ivpStep.AWW.tcl
ViewVC logotype

Diff of /trunk/models/westerberg/ivpDimensional/ivpStep.AWW.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 668 by aw0a, Wed Dec 7 14:53:34 2005 UTC revision 669 by johnpye, Wed Jun 21 07:00:45 2006 UTC
# Line 68  proc IVP.AWW.Integrator {qlfdid method r Line 68  proc IVP.AWW.Integrator {qlfdid method r
68                   if {[expr ($ascStopCondHit == 0)]} {                   if {[expr ($ascStopCondHit == 0)]} {
69                       RUN $qlfdid.stepX;                       RUN $qlfdid.stepX;
70                   }                   }
71           SOLVE $qlfdid WITH QRSlv;                   SOLVE $qlfdid WITH QRSlv;
72               if {!$ascSolvStatVect(converged)} {               if {!$ascSolvStatVect(converged)} {
73                       error "Model solution $numberSolves: Equations for model did not converge.";                       error "Model solution $numberSolves: Equations for model did not converge.";
74                   }                   }
75           }               }
76               if  {[expr ($ascThisIsTheFinalStep == 1)]} {               if  {[expr ($ascThisIsTheFinalStep == 1)]} {
77                   error "Model solution $numberSolves: STOP condition reached";                   error "Model solution $numberSolves: STOP condition reached";
78           }               }
79    
80               RUN $qlfdid.setStopConditions;               RUN $qlfdid.setStopConditions;
81               set ascStopCondHit [lindex [u_getval $qlfdid.stopCondHit] 0];               set ascStopCondHit [lindex [u_getval $qlfdid.stopCondHit] 0];

Legend:
Removed from v.668  
changed lines
  Added in v.669

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22