From fd2671c00d2aa6659d51cd676d9d0a01016cd248 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 19 Oct 2025 11:39:22 +0200 Subject: #8: Improve epsilon tests and error detection in module SALT: --- Dragon/src/SAL_TRAJECTORY_MOD.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Dragon/src/SAL_TRAJECTORY_MOD.f90') diff --git a/Dragon/src/SAL_TRAJECTORY_MOD.f90 b/Dragon/src/SAL_TRAJECTORY_MOD.f90 index e108fcb..ac1714d 100644 --- a/Dragon/src/SAL_TRAJECTORY_MOD.f90 +++ b/Dragon/src/SAL_TRAJECTORY_MOD.f90 @@ -110,7 +110,7 @@ CONTAINS ELSE WRITE(*,*) 'PPERIM_MAC2(N_AXIS+1),PPERIM_MAC2(N_AXIS) :',PPERIM_MAC2(N_AXIS+1),PPERIM_MAC2(N_AXIS) WRITE(*,*) 'DIST_AXIS(PPERIM_MAC2(N_AXIS+1)-1) :',DIST_AXIS(PPERIM_MAC2(N_AXIS+1)-1) - WRITE(*,*) 'DELX :',DELX + WRITE(*,*) 'DELX :',DELX,' RADIA=',RADIA CALL XABORT('SALTRA: Cant find entry point') ENDIF ENDIF -- cgit v1.2.3