diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-11-22 07:38:52 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-11-22 07:38:52 -0500 |
| commit | f2cbd88dbf58715f9931a2ede6860898d965a424 (patch) | |
| tree | a9b59a91a57c54720a4a9361f7665f333ae600ea /Dragon/src/EVODRV.f | |
| parent | 027a8a12fa3dda8a166855e698d59f5b8cc5e799 (diff) | |
| parent | 6fe47cea54ae9e0cf0f794b53a2276851345f592 (diff) | |
Merge branch '8-correct-sfr-geometry-issues-in-module-salt' into 'main'
#8: Correct a domain translation issue with TSPC tracking
See merge request dragon/5.1!26
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 |