diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-19 10:57:23 -0500 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-19 10:57:23 -0500 |
| commit | 682f80f4357f30780939ac84b8e2937233c647da (patch) | |
| tree | 837b47785e7876046a80ea6391c5d3b445b2d5ba /Trivac/src/TRIVAA.f | |
| parent | 338c590068f0f867d89c78598af32f121df1936a (diff) | |
#20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions
Diffstat (limited to 'Trivac/src/TRIVAA.f')
| -rwxr-xr-x | Trivac/src/TRIVAA.f | 7 |
1 files changed, 4 insertions, 3 deletions
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 |