From 682f80f4357f30780939ac84b8e2937233c647da Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Fri, 19 Dec 2025 10:57:23 -0500 Subject: #20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions --- Trivac/src/TRIVAA.f | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Trivac/src/TRIVAA.f') diff --git a/Trivac/src/TRIVAA.f b/Trivac/src/TRIVAA.f index acee907..b1628c4 100755 --- a/Trivac/src/TRIVAA.f +++ b/Trivac/src/TRIVAA.f @@ -140,6 +140,7 @@ NANI=IPAR(3) NBFIS=IPAR(4) NALBP=IPAR(8) + NW=IPAR(10) 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, @@ -253,7 +254,7 @@ ELSE * SIMPLIFIED PN THEORY. CALL TRISPS(IPTRK,IPMACR,IPMACR,IPSYS,IMPX,NGRP,NEL,NLF, - 1 NAN,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) + 1 NAN,NW,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) ENDIF ELSE IF((IASM.EQ.1).AND.(IPR.EQ.0)) THEN * PERFORM FACTORIZATION WITHOUT ASSEMBLY. @@ -270,7 +271,7 @@ ELSE * SIMPLIFIED PN THEORY. CALL TRISPS(IPTRK,IPMACR,IPMACP,IPSYS,IMPX,NGRP,NEL,NLF, - 1 NAN,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) + 1 NAN,NW,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) ENDIF ELSE IF(NSTEP.GT.0) THEN * ASSEMBLY OF PERTURBED SYSTEM MATRICES (WITH STEP DIRECTORIES). @@ -287,7 +288,7 @@ ELSE * SIMPLIFIED PN THEORY. CALL TRISPS(IPTRK,IPMACR,KPMACR,KPSYS,IMPX,NGRP,NEL,NLF, - 1 NAN,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) + 1 NAN,NW,NBFIS,NALBP,LDIFF,IPR,MAT,VOL,NBMIX) ENDIF 50 CONTINUE ELSE -- cgit v1.2.3