From 33730217cfd6de8a38c93c2400265e4025ab404a Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 21 Dec 2025 19:25:34 -0500 Subject: #20: Correct more issues in non-regression tests --- Trivac/src/TRIVAA.f | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Trivac/src/TRIVAA.f') 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 -- cgit v1.2.3