LMU/musrsim
LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleanup code in progress.

Browse Source
This commit is contained in:
salman 2013-02-21 13:08:49 +00:00
parent a1b7d7365a
commit b62185a528
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
trimsp/src/trimsp7l.F
View File

@ -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