From b62185a5283d9796c50647f6e70ae4529cc0f815 Mon Sep 17 00:00:00 2001 From: Zaher Salman Date: Thu, 21 Feb 2013 13:08:49 +0000 Subject: [PATCH] Cleanup code in progress. --- trimsp/src/trimsp7l.F | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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