diff options
Diffstat (limited to 'Trivac/src/BIVSPS.f')
| -rwxr-xr-x | Trivac/src/BIVSPS.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Trivac/src/BIVSPS.f b/Trivac/src/BIVSPS.f index e03ce67..ece519c 100755 --- a/Trivac/src/BIVSPS.f +++ b/Trivac/src/BIVSPS.f @@ -106,6 +106,8 @@ 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((IL.EQ.1).AND.(LENGT.NE.NBMIX)) CALL XABORT('BIVSPS: NO NTOT0' 1 //' CROSS SECTIONS.') IF(MOD(IL-1,2).EQ.0) THEN |