From c8c3cb9cfb212b9d35a7ef263a84ed3eb61c7a8c Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Mon, 22 Dec 2025 07:25:18 -0500 Subject: #20: Correct a regression --- Trivac/src/BIVSPS.f | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Trivac/src/BIVSPS.f') diff --git a/Trivac/src/BIVSPS.f b/Trivac/src/BIVSPS.f index ece519c..dd2603d 100755 --- a/Trivac/src/BIVSPS.f +++ b/Trivac/src/BIVSPS.f @@ -106,8 +106,10 @@ WRITE(TEXT12,'(4HNTOT,I1)') MIN(IL-1,9) CALL LCMLEN(KPMACR,TEXT12,LENGT,ITYLCM) CALL LCMLEN(KPMACR,'NTOT1',LENGT1,ITYLCM) - IF((LENGT1.GT.0).AND.(NW.EQ.0)) CALL XABORT('BIVSPS: YOU MUST HA' - 1 //'VE NW>0.') + IF((LENGT1.GT.0).AND.(NW.EQ.0)) THEN + WRITE(6,'(49H BIVSPS: **WARNING** YOU HAVE NW=0 AND NTOT1 INFO, + 1 27HRMATION IS PRESENT IN GROUP,I4,1H.)') IGR + ENDIF IF((IL.EQ.1).AND.(LENGT.NE.NBMIX)) CALL XABORT('BIVSPS: NO NTOT0' 1 //' CROSS SECTIONS.') IF(MOD(IL-1,2).EQ.0) THEN -- cgit v1.2.3