Cleanup version and one binary location.

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 <zaher.salman@psi.ch>
 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

trimspNL

@@ -0,0 +1 @@
+resources/bin/trimspNL