diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-10-19 11:39:22 +0200 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-10-19 11:39:22 +0200 |
| commit | fd2671c00d2aa6659d51cd676d9d0a01016cd248 (patch) | |
| tree | 446377010774826f3d24fa3e8f52905a14c0a7ea /Dragon/src/EVOSIG.f | |
| parent | f00eea9ff4dd094374672f5ef73939ed6a4dd9d5 (diff) | |
#8: Improve epsilon tests and error detection in module SALT:
Diffstat (limited to 'Dragon/src/EVOSIG.f')
| -rw-r--r-- | Dragon/src/EVOSIG.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Dragon/src/EVOSIG.f b/Dragon/src/EVOSIG.f index 3e5c172..a9c282e 100644 --- a/Dragon/src/EVOSIG.f +++ b/Dragon/src/EVOSIG.f @@ -198,7 +198,7 @@ SIG(IS,NREAC,IBM)=SIG(IS,NREAC,IBM)+1.0E-3*FACT*REAL(GAR) DEALLOCATE(ZKERMA) ELSE - IF(IGLOB.EQ.-1) THEN + IF((IGLOB.EQ.-1).AND.(AWR(IS).GT.210.0)) THEN CALL XABORT('EVOSIG: EDP0 OPTION NEEDS H-FACTOR INFORMATION.') ENDIF ENDIF |