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/BIVACA.f | |
| parent | 338c590068f0f867d89c78598af32f121df1936a (diff) | |
#20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions
Diffstat (limited to 'Trivac/src/BIVACA.f')
| -rwxr-xr-x | Trivac/src/BIVACA.f | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Trivac/src/BIVACA.f b/Trivac/src/BIVACA.f index eeb30a2..f18cd64 100755 --- a/Trivac/src/BIVACA.f +++ b/Trivac/src/BIVACA.f @@ -127,6 +127,7 @@ NANI=IPAR(3) NBFIS=IPAR(4) NALBP=IPAR(8) + NW=IPAR(10) IF(IGP(4).GT.NBMIX) THEN WRITE(HSMG,'(46HBIVACA: THE NUMBER OF MIXTURES IN THE TRACKING, 1 2H (,I5,51H) IS GREATER THAN THE NUMBER OF MIXTURES IN THE MAC, @@ -199,7 +200,7 @@ 1 VOL,NBMIX) ELSE * SIMPLIFIED PN THEORY. - CALL BIVSPS(IPTRK,IPMACR,IPSYS,IMPX,NGRP,NEL,NLF,NAN,NBFIS, + CALL BIVSPS(IPTRK,IPMACR,IPSYS,IMPX,NGRP,NEL,NLF,NAN,NW,NBFIS, 1 NALBP,LDIFF,MAT,VOL,NBMIX) ENDIF * |