Changeset 9a9fee9 for pcp

Timestamp:

Apr 22, 2008, 9:18:29 AM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

7e294d

Parents:

b0aa9c

Message:

MinimisePerturbed(): LevSNo replaced by LevelS->LevelNo

File:

• pcp/src/perturbed.c (modified) (1 diff)

pcp/src/perturbed.c

@@ -120 +120 @@
     UpdateActualPsiNo(P, type); // step on to next perturbed one
     if(P->Call.out[MinOut]) fprintf(stderr, "(%i) Re-initializing perturbed psi array for type %s ", P->Par.me, R->MinimisationName[type]);
-    if (P->Call.ReadSrcFiles && ReadSrcPsiDensity(P,type,1, R->LevSNo)) {
+    if (P->Call.ReadSrcFiles && ReadSrcPsiDensity(P,type,1, R->LevS->LevelNo)) {
       SpeedMeasure(P, InitSimTime, StartTimeDo);  
       if(P->Call.out[MinOut]) fprintf(stderr,"from source file of recent calculation\n");
-      ReadSrcPsiDensity(P,type, 0, R->LevSNo);
+      ReadSrcPsiDensity(P,type, 0, R->LevS->LevelNo);
       ResetGramSchTagType(P, Psi, type, IsOrthogonal); // loaded values are orthonormal
       SpeedMeasure(P, DensityTime, StartTimeDo);