diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-22 13:13:21 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-22 13:13:21 +0100 |
| commit | 6fe47cea54ae9e0cf0f794b53a2276851345f592 (patch) | |
| tree | a9b59a91a57c54720a4a9361f7665f333ae600ea /Dragon/src/EVODRV.f | |
| parent | 027a8a12fa3dda8a166855e698d59f5b8cc5e799 (diff) | |
#8: Correct a domain translation issue with TSPC tracking
Diffstat (limited to 'Dragon/src/EVODRV.f')
| -rw-r--r-- | Dragon/src/EVODRV.f | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Dragon/src/EVODRV.f b/Dragon/src/EVODRV.f index afe2f35..cb9b40c 100644 --- a/Dragon/src/EVODRV.f +++ b/Dragon/src/EVODRV.f @@ -552,7 +552,11 @@ ENDIF IF(ITIM.EQ.0) THEN IF(NTIM.GT.0) THEN - IF(XT(IP).LT.TIMES(NTIM)) CALL XABORT('EVODRV: INVALID X1.') + IF(XT(IP).LT.TIMES(NTIM)) THEN + WRITE(HSMG,'(19HEVODRV: INVALID XT(,I4,2H)=,1P,E12.4,2H <, + > E12.4,1H.)') IP,XT(IP),TIMES(NTIM) + CALL XABORT(HSMG) + ENDIF ENDIF NTIM=NTIM+1 TIMES(NTIM)=XT(IP) @@ -603,7 +607,11 @@ ENDIF IF(ITIM.EQ.0) THEN IF(NTIM.GT.0) THEN - IF(XTI.LT.TIMES(NTIM)) CALL XABORT('EVODRV: INVALID X1.') + IF(XTI.LT.TIMES(NTIM)) THEN + WRITE(HSMG,'(20HEVODRV: INVALID XTI=,1P,E12.4,2H <,E12.4, + > 1H.)') XTI,TIMES(NTIM) + CALL XABORT(HSMG) + ENDIF ENDIF NTIM=NTIM+1 TIMES(NTIM)=XTI |