diff --git a/fortran/trimspNL.F b/fortran/trimspNL.F index 14d9f0d..acda783 100644 --- a/fortran/trimspNL.F +++ b/fortran/trimspNL.F @@ -1,12 +1,10 @@ -C Created June 2000 ---- Testversion +C Created June 2000 C -C Version TrimSpNL ----> Expanded to heterostructures with N Layer +C Expanded to heterostructures with N Layer and MAXEL elements C Zaher Salman C -C *** -C * C * COPYRIGHT W.ECKSTEIN, IPP GARCHING, FRG -C *** -C Copyright LEM group PSI +C Copyright W. Eckstein, IPP GARCHING, FRG +C Copyright Z. Salman and the LEM group PSI C if you use this code please cite C C Eckstein, W. Computer Simulation of Ion-Solid Interactions; @@ -47,6 +45,7 @@ c #endif IMPLICIT NONE + CHARACTER*16 TRIMSP_VERSION C These parameters are related to the maximum number of layers MAXNL C and maximum number of points in the depth distribution MAXD INTEGER MAXD,MAXD1,MAXD2,MAXD5,MAXDNL5,MAXD2p2,MAXD2meagb @@ -70,6 +69,7 @@ C Maximum number of elements in each layer, was limited to 5. PARAMETER (MAXDNL5=MAXNL*MAXD5) PARAMETER (MAXNL5p2=MAXNL5*MAXNL5*MAXD) PARAMETER (MAXNLm15=(MAXNL-1)*MAXEL) + PARAMETER (TRIMSP_VERSION='1.3.0') LOGICAL TEST(64),TESTR(2000),TEST1(2000) LOGICAL EQUAL,FORT33 INTEGER*4 ISRCHFGT,ISRCHFGE,ILLZ @@ -472,8 +472,8 @@ C value A-5 of the ziegler tables C open statement for output files, removed from line 2449 ff to here OPEN(UNIT=21,FILE=outnam) 6001 OPEN(UNIT=22,FILE=rgenam,STATUS='replace') - WRITE(21,1000) - 1000 FORMAT(1H1/,6X,'* TrimSPNL v1.3.0 *') + WRITE(21,1000) TRIMSP_VERSION + 1000 FORMAT(1H1/,6X,'* TrimSPNL v',A,' *') C Get simulation start time CALL TimeStamp(day_start,month_start,year_start,hour_start @@ -481,7 +481,8 @@ C Get simulation start time WRITE(21,*) WRITE(21,1050)day_start,month_start,year_start,hour_start & ,min_start,sec_start - WRITE(*,*) 'Version 1.3.0' + WRITE(*,1001) TRIMSP_VERSION + 1001 FORMAT(1X,'Version ',A) WRITE(*,1050)day_start,month_start,year_start,hour_start & ,min_start,sec_start 1050 FORMAT(1x,' Start: ',A2,'.',A4,1x,A4,1x,A2 diff --git a/resources/bin/trimspNL b/resources/bin/trimspNL index 37c8736..98e6bad 100755 Binary files a/resources/bin/trimspNL and b/resources/bin/trimspNL differ diff --git a/trimspNL b/trimspNL deleted file mode 100755 index 37c8736..0000000 Binary files a/trimspNL and /dev/null differ diff --git a/trimspNL b/trimspNL new file mode 120000 index 0000000..f62d6c9 --- /dev/null +++ b/trimspNL @@ -0,0 +1 @@ +resources/bin/trimspNL \ No newline at end of file