From 682f80f4357f30780939ac84b8e2937233c647da Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Fri, 19 Dec 2025 10:57:23 -0500
Subject: #20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions

---
 Trivac/src/BIVACA.f | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Trivac/src/BIVACA.f')

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
 *
-- 
cgit v1.2.3