diff --git a/trimsp/src/trimsp7l.F b/trimsp/src/trimsp7l.F
index 2c03b9b..06ab81d 100644
--- a/trimsp/src/trimsp7l.F
+++ b/trimsp/src/trimsp7l.F
@@ -629,12 +629,13 @@ C     Checks wether depth interval is an integer denominator of layer thickness
 C     If not, calculated implantation profile is not correct.
 
       depth_interval_flag = 1
-      LOOP_Check_layer_thick : DO K=1,L-1                     
-      IF(.NOT.EQUAL(DX(K)/CW-DBLE(IDINT(DX(K)/CW)),0.D0)) THEN
-         depth_interval_flag = 0
-         EXIT LOOP_Check_layer_thick
-      ENDIF
-      ENDDO LOOP_Check_layer_thick
+      DO K=1,L-1                     
+         IF(.NOT.EQUAL(DX(K)/CW-DBLE(IDINT(DX(K)/CW)),0.D0)) THEN
+            depth_interval_flag = 0
+            GO TO 44
+         ENDIF
+      ENDDO 
+ 44   CONTINUE
 
       DO I=1,L
          DO J=1,JMAX