diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
| commit | 33730217cfd6de8a38c93c2400265e4025ab404a (patch) | |
| tree | ed40c4131e0c1b4493183936f34d2233a7ec4cfe /Trivac/src/TRIRCA.f | |
| parent | 5c0d4cce527b0d42dc794a475550783ea846b30a (diff) | |
#20: Correct more issues in non-regression tests
Diffstat (limited to 'Trivac/src/TRIRCA.f')
| -rwxr-xr-x | Trivac/src/TRIRCA.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Trivac/src/TRIRCA.f b/Trivac/src/TRIRCA.f index 8202f29..6c1b496 100755 --- a/Trivac/src/TRIRCA.f +++ b/Trivac/src/TRIRCA.f @@ -79,6 +79,8 @@ WRITE(TEXT12,'(4HNTOT,I1)') MIN(IL-1,9) CALL LCMLEN(KPMACP,TEXT12,LENGT,ITYLCM) CALL LCMLEN(KPMACP,'NTOT1',LENGT1,ITYLCM) + IF((LENGT1.GT.0).AND.(NW.EQ.0)) CALL XABORT('TRIRCA: YOU MUST HA' + 1 //'VE NW>0.') IF((IL.EQ.1).AND.(LENGT.NE.NBMIX)) CALL XABORT('TRIRCA: NO NTOT0' 1 //' CROSS SECTIONS.') IF(MOD(IL-1,2).EQ.0) THEN @@ -130,11 +132,9 @@ ENDIF GO TO 100 ELSE - IF(NW.EQ.0) THEN - CALL LCMGET(KPMACP,'NTOT0',SGD(1,2)) - ELSE IF(LENGT.EQ.NBMIX) THEN + IF(LENGT.EQ.NBMIX) THEN CALL LCMGET(KPMACP,TEXT12,SGD(1,2)) - ELSE IF((NW.GE.1).AND.(LENGT1.EQ.NBMIX)) THEN + ELSE IF(LENGT1.EQ.NBMIX) THEN CALL LCMGET(KPMACP,'NTOT1',SGD(1,2)) ELSE CALL LCMGET(KPMACP,'NTOT0',SGD(1,2)) |