diff options
Diffstat (limited to 'Trivac/src/TRIVAA.f')
| -rwxr-xr-x | Trivac/src/TRIVAA.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Trivac/src/TRIVAA.f b/Trivac/src/TRIVAA.f index b1628c4..5189511 100755 --- a/Trivac/src/TRIVAA.f +++ b/Trivac/src/TRIVAA.f @@ -141,6 +141,7 @@ NBFIS=IPAR(4) NALBP=IPAR(8) NW=IPAR(10) + NW2=0 IF(IGP(4).GT.NBMIX) THEN WRITE(HSMG,'(46HTRIVAA: THE NUMBER OF MIXTURES IN THE TRACKING, 1 2H (,I5,51H) IS GREATER THAN THE NUMBER OF MIXTURES IN THE MAC, @@ -219,6 +220,7 @@ 1 //TEXT11//'. L_MACROLIB EXPECTED.') ENDIF CALL LCMGET(IPMACP,'STATE-VECTOR',IPAR) + NW2=IPAR(10) NSTEP=IPAR(11) IF((IPAR(1).NE.NGRP).OR.(IPAR(2).GT.NBMIX)) THEN WRITE(HSMG,'(43HTRIVAA: INCONSISTENT PERTURBATION MACROLIB , @@ -271,7 +273,7 @@ ELSE * SIMPLIFIED PN THEORY. CALL TRISPS(IPTRK,IPMACR,IPMACP,IPSYS,IMPX,NGRP,NEL,NLF, - 1 NAN,NW,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) + 1 NAN,NW2,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) ENDIF ELSE IF(NSTEP.GT.0) THEN * ASSEMBLY OF PERTURBED SYSTEM MATRICES (WITH STEP DIRECTORIES). @@ -288,7 +290,7 @@ ELSE * SIMPLIFIED PN THEORY. CALL TRISPS(IPTRK,IPMACR,KPMACR,KPSYS,IMPX,NGRP,NEL,NLF, - 1 NAN,NW,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) + 1 NAN,NW2,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) ENDIF 50 CONTINUE ELSE |