diff options
Diffstat (limited to 'Dragon/src/FLUGPI.f')
| -rw-r--r-- | Dragon/src/FLUGPI.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Dragon/src/FLUGPI.f b/Dragon/src/FLUGPI.f index 91c5ef2..8f0f4b2 100644 --- a/Dragon/src/FLUGPI.f +++ b/Dragon/src/FLUGPI.f @@ -235,6 +235,8 @@ > //'LEAKAGE MODEL OTHER THAN SIGS OR HETE.') ENDIF IF(ILEAK.EQ.5) THEN + IF(IPRINT.GT.0) WRITE(6,'(8H FLUGPI:,I5,11H INTEGER VA, + > 14HLUES EXPECTED.)') NMAT DO IBM=1,NMAT CALL REDGET(ITYPLU,INTLIR,REALIR,CARLIR,DBLINP) IF((IBM.EQ.1).AND.(ITYPLU.EQ.3)) GO TO 30 |