Added to repository.
This commit is contained in:
28
mutrack/com/COMPILE.COM
Normal file
28
mutrack/com/COMPILE.COM
Normal file
@ -0,0 +1,28 @@
|
||||
$ set noverify
|
||||
$!==============================================================================
|
||||
$! Author: Anselm Hofer
|
||||
$!
|
||||
$! Commandoprozedur fuer das Compilieren einzelner MUTRACK oder ACCEL-Sourcecode
|
||||
$! Dateien. Aufzurufen mittels '$ FORMU dateiName' bzw. '$ FORAC dateiName':
|
||||
$!==============================================================================
|
||||
$ progr = P1 ! = 'MUTRACK' oder 'ACCEL'
|
||||
$ ext = P2 ! = '_MU' oder '_AC'
|
||||
$ file = P3 ! = Name der .FOR-Datei (ohne Extension)
|
||||
$!==============================================================================
|
||||
$ file = file - ".FOR"
|
||||
$ options = "/fast"
|
||||
$!options = "/align=all"
|
||||
$!==============================================================================
|
||||
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
||||
$ if archi .EQS. "VAX" then options = ""
|
||||
$ if P4 .NES. "" then options = "''options' ''P4'"
|
||||
$ ext = "''ext'_''archi'"
|
||||
$
|
||||
$ sourceFile = "''progr'$SOURCEdirectory:''file'"
|
||||
$ objectFile = "''progr'$OBJdirectory:''file'''ext'"
|
||||
$ listFile = "''progr'$OBJdirectory:''file'''ext'.lis"
|
||||
$!==============================================================================
|
||||
$ set verify
|
||||
$ fortran/extend 'sourceFile' /object='objectFile' 'options'
|
||||
$ set noverify
|
||||
$! /list='listFile'
|
||||
82
mutrack/com/COPY.COM
Normal file
82
mutrack/com/COPY.COM
Normal file
@ -0,0 +1,82 @@
|
||||
$ set noverify
|
||||
$!==============================================================================
|
||||
$! Author: Anselm Hofer
|
||||
$!
|
||||
$! Diese Commandoprozedur erlaubt es, die ACCEL- oder MUTRACK-Files
|
||||
$! "AC_nnn1.'P3'" bis "AC_nnn2.'P3'" (bzw. "MU_nnn1.'P3'" bis "MU_nnn2.'P3'"
|
||||
$! mit nnn1 = 'P4' und nnn2 = 'P5' auf neue Files zu kopieren, deren
|
||||
$! fortlaufende Nummer um jeweils 'P6' erhoeht ist.
|
||||
$!
|
||||
$! Aufzurufen ueber '$ ACCOPY von bis offset' bzw. '$ MUCOPY von bis offset'
|
||||
$!==============================================================================
|
||||
$ if P6.EQS.""
|
||||
$ then
|
||||
$ say = "write sys$output "
|
||||
$ say "==============================================================================="
|
||||
$ say "ACCOPY extension firstNumber lastNumber offset"
|
||||
$ say "MUCOPY extension firstNumber lastNumber offset"
|
||||
$ say "==============================================================================="
|
||||
$ exit
|
||||
$ endif
|
||||
$ progr = P1 ! = 'MUTRACK' oder 'ACCEL'
|
||||
$ Kuerzel = P2 ! = 'MU_' oder 'AC_'
|
||||
$
|
||||
$ extension = P3
|
||||
$ Firstindx = P4
|
||||
$ Lastindx = P5
|
||||
$ IndxOffset = P6
|
||||
$!------------------------------------------------------------------------------
|
||||
$
|
||||
$ write sys$output " "
|
||||
$ oldIndx = firstIndx
|
||||
$
|
||||
$ next:
|
||||
$ newIndx = 0 + oldIndx + indxOffset ! '0 + ' notwendig, damit als Dezimal-
|
||||
$ ! zahl interpretiert
|
||||
$! -----------------------------------------------------------------------------
|
||||
$ if oldIndx.LT.10
|
||||
$ then
|
||||
$ oldFile = "''progr'$outDirectory:''kuerzel'_000''oldIndx'.''extension'."
|
||||
$ goto label1
|
||||
$ endif
|
||||
$ if oldIndx.LT.100
|
||||
$ then
|
||||
$ oldFile = "''progr'$outDirectory:''kuerzel'_00''oldIndx'.''extension'."
|
||||
$ goto label1
|
||||
$ endif
|
||||
$ if oldIndx.LT.1000
|
||||
$ then
|
||||
$ oldFile = "''progr'$outDirectory:''kuerzel'_0''oldIndx'.''extension'."
|
||||
$ goto label1
|
||||
$ endif
|
||||
$ oldFile = "''progr'$outDirectory:''kuerzel'_''oldIndx'.''extension'."
|
||||
$! -----------------------------------------------------------------------------
|
||||
$ label1:
|
||||
$ if newIndx.LT.10
|
||||
$ then
|
||||
$ newFile = "''progr'$outDirectory:''kuerzel'_000''newIndx'.''extension'."
|
||||
$ goto label2
|
||||
$ endif
|
||||
$ if newIndx.LT.100
|
||||
$ then
|
||||
$ newFile = "''progr'$outDirectory:''kuerzel'_00''newIndx'.''extension'."
|
||||
$ goto label2
|
||||
$ endif
|
||||
$ if newIndx.LT.1000
|
||||
$ then
|
||||
$ newFile = "''progr'$outDirectory:''kuerzel'_0''newIndx'.''extension'."
|
||||
$ goto label2
|
||||
$ endif
|
||||
$ newFile = "''progr'$outDirectory:''kuerzel'_''newIndx'.''extension'."
|
||||
$! -----------------------------------------------------------------------------
|
||||
$ label2:
|
||||
$ cop /log 'oldFile' 'newFile'
|
||||
$
|
||||
$ if oldIndx.LT.LastIndx
|
||||
$ then
|
||||
$ oldIndx = oldIndx + 1
|
||||
$ goto next
|
||||
$ endif
|
||||
$
|
||||
$ write sys$output " "
|
||||
$
|
||||
3
mutrack/com/FORMUT.COM
Normal file
3
mutrack/com/FORMUT.COM
Normal file
@ -0,0 +1,3 @@
|
||||
$ set ver
|
||||
$ fortran 'P1' /obj=mutrack$OBJdirectory:T-'P1'
|
||||
$ set nover
|
||||
1
mutrack/com/GETMU.COM
Normal file
1
mutrack/com/GETMU.COM
Normal file
@ -0,0 +1 @@
|
||||
copy /log PSICLU::USR_SCROOT:[AHOFER]MU_'P1'.*. mutrack$OUTdirectory:*.*.
|
||||
1
mutrack/com/GETMUG.COM
Normal file
1
mutrack/com/GETMUG.COM
Normal file
@ -0,0 +1 @@
|
||||
copy /log PSICLB::DSA999:[SCR142.GLUECKLER]MU_'p1'.*. mutrack$OUTdirectory:*.*.
|
||||
1
mutrack/com/GETMUM.COM
Normal file
1
mutrack/com/GETMUM.COM
Normal file
@ -0,0 +1 @@
|
||||
copy /log PSICLB::DSA999:[SCR142.MHEUBERGER]MU_'P1'.*. mutrack$OUTdirectory:*.*.
|
||||
11
mutrack/com/INIT-MUTEST.COM
Normal file
11
mutrack/com/INIT-MUTEST.COM
Normal file
@ -0,0 +1,11 @@
|
||||
$! fuer Tests mit zusaetlicher Linse 'NL':
|
||||
$!==============================================================================
|
||||
$ DEFINE mutrack$SOURCEdirectory UD1:[SIMULA.MUTRACK.TEST2]
|
||||
$ FORMUT :== "@mutrack$COMdirectory:formut.com"
|
||||
$ LINKMUT :== "@mutrack$COMdirectory:linkmut.com"
|
||||
$ LINKMUTV :== "@mutrack$COMdirectory:linkmutv.com"
|
||||
$ MU*TRACK :== "RUN mutrack$EXEdirectory:T-MUTRACK.EXE"
|
||||
$ SUBTMU :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/NAME=MUTRACK/LOG_FILE=mutrack$OUTdirectory mutrack$COMdirectory:T-MUTRACK.COM"
|
||||
$ LSEMUT :== "LSE mutrack$READdirectory:mutrackT.input"
|
||||
$!==============================================================================
|
||||
33
mutrack/com/LINKMU.COM
Normal file
33
mutrack/com/LINKMU.COM
Normal file
@ -0,0 +1,33 @@
|
||||
$ set noverify
|
||||
$ set noon
|
||||
$!==============================================================================
|
||||
$ prog= "mutrack"
|
||||
$ ext = "_MU"
|
||||
$!==============================================================================
|
||||
$ sourceDir = "''prog'$SOURCEdirectory"
|
||||
$ objectDir = "''prog'$OBJdirectory"
|
||||
$ executeDir = "''prog'$EXEdirectory"
|
||||
$!==============================================================================
|
||||
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
||||
$ ext = "''ext'_''archi'"
|
||||
$ set verify
|
||||
$!==============================================================================
|
||||
$ link -
|
||||
'objectDir':MUTRACK'ext', -
|
||||
'objectDir':SUB_ARTLIST'ext', -
|
||||
'objectDir':SUB_INTEGR_L1'ext', -
|
||||
'objectDir':SUB_INTEGR_SP'ext', -
|
||||
'objectDir':SUB_INTEGR_L2andFo'ext', -
|
||||
'objectDir':SUB_INTEGR_FO'ext', -
|
||||
'objectDir':SUB_INTEGR_L3'ext', -
|
||||
'objectDir':SUB_INTEGR_M2'ext', -
|
||||
'objectDir':SUB_INPUT'ext', -
|
||||
'objectDir':SUB_PICTURE'ext', -
|
||||
'objectDir':SUB_OUTPUT'ext',-
|
||||
'objectDir':SUB_TRIGGER'ext', -
|
||||
'objectDir':SUB_ELOSS'ext', -
|
||||
'cernlibs' /exe='executeDir':MUTRACK_'archi'
|
||||
$ purge 'executeDir':*.EXE
|
||||
$ set on
|
||||
$ set noverify
|
||||
$!==============================================================================
|
||||
16
mutrack/com/LINKMUD.COM
Normal file
16
mutrack/com/LINKMUD.COM
Normal file
@ -0,0 +1,16 @@
|
||||
$ set verify
|
||||
$ link -
|
||||
mutrack$directory:[exe]MUTRACK, -
|
||||
mutrack$directory:[exe]SUB_ARTLIST, -
|
||||
mutrack$directory:[exe]SUB_INTEGR_KL, -
|
||||
mutrack$directory:[exe]SUB_INTEGR_Sp, -
|
||||
mutrack$directory:[exe]SUB_INTEGR_FO, -
|
||||
mutrack$directory:[exe]SUB_INTEGR_WL, -
|
||||
mutrack$directory:[exe]SUB_INTEGR_M2, -
|
||||
mutrack$directory:[exe]SUB_INPUT, -
|
||||
mutrack$directory:[exe]SUB_PICTURE, -
|
||||
mutrack$directory:[exe]SUB_OUTPUT,-
|
||||
mutrack$directory:[exe]SUB_TRIGGER, -
|
||||
'cernlibs' /debug /exe=mutrack$directory:[exe]MUTRACK
|
||||
$ purge mutrack$directory:[exe]
|
||||
$ set noverify
|
||||
18
mutrack/com/LINKMUT.COM
Normal file
18
mutrack/com/LINKMUT.COM
Normal file
@ -0,0 +1,18 @@
|
||||
$ set verify
|
||||
$ link -
|
||||
mutrack$directory:[exe]T-MUTRACK, -
|
||||
mutrack$directory:[exe]T-SUB_ARTLIST, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_KL, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_Sp, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_NL, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_FO, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_WL, -
|
||||
mutrack$directory:[exe]T-SUB_INTEGR_M2, -
|
||||
mutrack$directory:[exe]T-SUB_INPUT, -
|
||||
mutrack$directory:[exe]T-SUB_PICTURE, -
|
||||
mutrack$directory:[exe]T-SUB_OUTPUT,-
|
||||
mutrack$directory:[exe]T-SUB_TRIGGER, -
|
||||
mutrack$directory:[exe]T-SUB_ELOSS, -
|
||||
'cernlibs' /exe=mutrack$directory:[exe]T-MUTRACK
|
||||
$ purge mutrack$directory:[exe]
|
||||
$ set noverify
|
||||
46
mutrack/com/LINKMUTV.COM
Normal file
46
mutrack/com/LINKMUTV.COM
Normal file
@ -0,0 +1,46 @@
|
||||
$ set verify
|
||||
$ set noon
|
||||
$ fortran mutrack$SOURCEdirectory:MUTRACK -
|
||||
/object=mutrack$EXEdirectory:T-MUTRACK
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_ARTLIST -
|
||||
/object=mutrack$EXEdirectory:T-SUB_ARTLIST
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_KL -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_KL
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_SP -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_SP
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_NL -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_NL
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_FO -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_FO
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_WL -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_WL
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_M2 -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INTEGR_M2
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INPUT -
|
||||
/object=mutrack$EXEdirectory:T-SUB_INPUT
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_PICTURE -
|
||||
/object=mutrack$EXEdirectory:T-SUB_PICTURE
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_OUTPUT -
|
||||
/object=mutrack$EXEdirectory:T-SUB_OUTPUT
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_TRIGGER -
|
||||
/object=mutrack$EXEdirectory:T-SUB_TRIGGER
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_ELOSS -
|
||||
/object=mutrack$EXEdirectory:T-SUB_ELOSS
|
||||
$ link -
|
||||
mutrack$EXEdirectory:T-MUTRACK, -
|
||||
mutrack$EXEdirectory:T-SUB_ARTLIST, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_KL, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_SP, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_NL, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_FO, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_WL, -
|
||||
mutrack$EXEdirectory:T-SUB_INTEGR_M2, -
|
||||
mutrack$EXEdirectory:T-SUB_INPUT, -
|
||||
mutrack$EXEdirectory:T-SUB_PICTURE, -
|
||||
mutrack$EXEdirectory:T-SUB_OUTPUT,-
|
||||
mutrack$EXEdirectory:T-SUB_TRIGGER, -
|
||||
mutrack$EXEdirectory:T-SUB_ELOSS, -
|
||||
'cernlibs' /exe=mutrack$EXEdirectory:T-MUTRACK
|
||||
$ purge mutrack$EXEdirectory
|
||||
$ set on
|
||||
$ set noverify
|
||||
82
mutrack/com/LINKMUV.COM
Normal file
82
mutrack/com/LINKMUV.COM
Normal file
@ -0,0 +1,82 @@
|
||||
$ set noverify
|
||||
$!==============================================================================
|
||||
$! Author: Anselm Hofer
|
||||
$!
|
||||
$! Commandoprozedur fuer das Compilieren und Linken des kompletten MUTRACK-
|
||||
$! Quelltextes. Aufzurufen mittels '$ LINKMUV'. ('V' steht fuer 'Vollstaendig').
|
||||
$!==============================================================================
|
||||
$ set noon
|
||||
$!==============================================================================
|
||||
$ prog= "mutrack"
|
||||
$ ext = "_MU"
|
||||
$!==============================================================================
|
||||
$ sourceDir = "''prog'$SOURCEdirectory"
|
||||
$ objectDir = "''prog'$OBJdirectory"
|
||||
$ executeDir = "''prog'$EXEdirectory"
|
||||
$!==============================================================================
|
||||
$ options = "/fast /nolist"
|
||||
$! options = "/fast /nolist /warn=nogeneral"
|
||||
$!==============================================================================
|
||||
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
||||
$ ext = "''ext'_''archi'"
|
||||
$ if archi .EQS. "VAX" then options = ""
|
||||
$ if P1 .NES. "" then options = "''options' ''P1'"
|
||||
$
|
||||
$ file = "MUTRACK"
|
||||
$ CALL compile
|
||||
$ file = "SUB_ARTLIST
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_L1
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_SP
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_L2andFo
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_FO
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_L3
|
||||
$ CALL compile
|
||||
$ file = "SUB_INTEGR_M2
|
||||
$ CALL compile
|
||||
$ file = "SUB_INPUT
|
||||
$ CALL compile
|
||||
$ file = "SUB_PICTURE
|
||||
$ CALL compile
|
||||
$ file = "SUB_OUTPUT
|
||||
$ CALL compile
|
||||
$ file = "SUB_TRIGGER
|
||||
$ CALL compile
|
||||
$ file = "SUB_ELOSS"
|
||||
$ CALL compile
|
||||
$!==============================================================================
|
||||
$ set verify
|
||||
$ purge 'objectDir':*.OBJ
|
||||
$ link -
|
||||
'objectDir':MUTRACK'ext', -
|
||||
'objectDir':SUB_ARTLIST'ext', -
|
||||
'objectDir':SUB_INTEGR_L1'ext', -
|
||||
'objectDir':SUB_INTEGR_SP'ext', -
|
||||
'objectDir':SUB_INTEGR_L2andFo'ext', -
|
||||
'objectDir':SUB_INTEGR_FO'ext', -
|
||||
'objectDir':SUB_INTEGR_L3'ext', -
|
||||
'objectDir':SUB_INTEGR_M2'ext', -
|
||||
'objectDir':SUB_INPUT'ext', -
|
||||
'objectDir':SUB_PICTURE'ext', -
|
||||
'objectDir':SUB_OUTPUT'ext',-
|
||||
'objectDir':SUB_TRIGGER'ext', -
|
||||
'objectDir':SUB_ELOSS'ext', -
|
||||
'cernlibs' /exe='executeDir':MUTRACK_'archi'
|
||||
$ purge 'executeDir':*.EXE
|
||||
$ set on
|
||||
$ set noverify
|
||||
$ EXIT
|
||||
$
|
||||
$!==============================================================================
|
||||
$
|
||||
$ COMPILE: SUBROUTINE
|
||||
$ comp = "fortran ''sourceDir':''file' ''options' /object=''objectDir':''file'''ext'"
|
||||
$ write sys$output "=============================================================================="
|
||||
$ write sys$output "''COMP'"
|
||||
$ comp
|
||||
$ ENDSUBROUTINE
|
||||
$!==============================================================================
|
||||
38
mutrack/com/LINKMUVD.COM
Normal file
38
mutrack/com/LINKMUVD.COM
Normal file
@ -0,0 +1,38 @@
|
||||
$ set verify
|
||||
$ fortran mutrack$SOURCEdirectory:MUTRACK /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_ARTLIST /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_KL /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_SP /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_FO /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_WL /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_M2 /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INPUT /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_PICTURE /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_OUTPUT /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_TRIGGER /warn=nogen -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ link -
|
||||
mutrack$EXEdirectory:MUTRACK, -
|
||||
mutrack$EXEdirectory:SUB_ARTLIST, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_KL, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_SP, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_FO, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_WL, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_M2, -
|
||||
mutrack$EXEdirectory:SUB_INPUT, -
|
||||
mutrack$EXEdirectory:SUB_PICTURE, -
|
||||
mutrack$EXEdirectory:SUB_OUTPUT,-
|
||||
mutrack$EXEdirectory:SUB_TRIGGER, -
|
||||
'cernlibs' /debug /exe=mutrack$EXEdirectory:MUTRACK
|
||||
$ purge mutrack$EXEdirectory
|
||||
$ set noverify
|
||||
53
mutrack/com/LINKMUVVD.COM
Normal file
53
mutrack/com/LINKMUVVD.COM
Normal file
@ -0,0 +1,53 @@
|
||||
$ set verify
|
||||
$ fortran mutrack$SOURCEdirectory:MUTRACK -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_ARTLIST -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_KL -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_SP -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_FO -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_WL -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INTEGR_M2 -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_INPUT -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_PICTURE -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_OUTPUT -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_TRIGGER -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ fortran mutrack$SOURCEdirectory:SUB_ELOSS -
|
||||
/warn=(noali,decl,gen,inline,trun,uncall,unini,unused,usa,vaxeln) -
|
||||
/check /list /debug /noopt /object=mutrack$EXEdirectory
|
||||
$ link -
|
||||
mutrack$EXEdirectory:MUTRACK, -
|
||||
mutrack$EXEdirectory:SUB_ARTLIST, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_KL, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_SP, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_FO, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_WL, -
|
||||
mutrack$EXEdirectory:SUB_INTEGR_M2, -
|
||||
mutrack$EXEdirectory:SUB_INPUT, -
|
||||
mutrack$EXEdirectory:SUB_PICTURE, -
|
||||
mutrack$EXEdirectory:SUB_OUTPUT,-
|
||||
mutrack$EXEdirectory:SUB_TRIGGER, -
|
||||
mutrack$EXEdirectory:SUB_ELOSS, -
|
||||
'cernlibs' /debug /exe=mutrack$EXEdirectory:MUTRACK
|
||||
$ purge mutrack$EXEdirectory
|
||||
$ set noverify
|
||||
99
mutrack/com/MAKEWRITELOGOUT.FOR
Normal file
99
mutrack/com/MAKEWRITELOGOUT.FOR
Normal file
@ -0,0 +1,99 @@
|
||||
|
||||
OPTIONS /EXTEND_SOURCE
|
||||
|
||||
c PROGRAM WRITELOG
|
||||
c ================
|
||||
|
||||
c===============================================================================
|
||||
c Dieses Programm uebernimmt aus der Command Zeile eine Runnummer und
|
||||
c uebertraegt den Header des zugehoerigen Logfiles in WRITELOG_nnnn.OUT.
|
||||
c (Arbeitet mit 'WRITELOG.COM' zusammen beim ausdrucken von Fileheadern)
|
||||
c===============================================================================
|
||||
|
||||
IMPLICIT NONE
|
||||
|
||||
c Deklarationen fuer das Einlesen der Runnummer von der Commandline:
|
||||
|
||||
external cli$get_value
|
||||
integer cli$get_value
|
||||
integer status
|
||||
|
||||
character*4 runNumber
|
||||
integer length
|
||||
|
||||
|
||||
c sonstige Deklarationen:
|
||||
|
||||
character*80 zeile
|
||||
integer i, iostat, marke
|
||||
logical flag
|
||||
|
||||
|
||||
c-------------------------------------------------------------------------------
|
||||
|
||||
|
||||
c Lies Runnummer aus Commandline:
|
||||
|
||||
status = cli$get_value('runNumber',runNumber,length)
|
||||
if (.NOT.status) call lib$signal(%val(status))
|
||||
call str$trim(runNumber,runNumber,length)
|
||||
|
||||
|
||||
c Oeffne zugehoeriges LOGfile:
|
||||
|
||||
open (20,file='mutrack$OUTdirectory:MU_'//runNumber//'.LOG',status='OLD',
|
||||
+ readonly,iostat=iostat)
|
||||
|
||||
if (iostat.NE.0) then
|
||||
write(*,*)
|
||||
write(*,*)'can''t find mutrack$OUTdirectory:MU_'//runNumber//'.LOG'
|
||||
write(*,*)'-> STOP'
|
||||
write(*,*)
|
||||
STOP
|
||||
endif
|
||||
|
||||
|
||||
c Oeffne WRITELOG_nnnn.OUT:
|
||||
|
||||
open (21,file='mutrack$OUTdirectory:WRITELOG_'//runNumber//'.OUT',
|
||||
+ status='NEW')
|
||||
|
||||
|
||||
c Uebertrage die Headerzeilen:
|
||||
|
||||
c do i = 1, 130
|
||||
c read(20,'(A)',end=20) zeile
|
||||
c write(21,'(xA)') zeile
|
||||
c enddo
|
||||
c write(21,*)
|
||||
c write(21,*)' >>>>>>>>>> AUSDRUCK HIER ABGEBROCHEN >>>>>>>>>>'
|
||||
|
||||
c - Teste, ob LOGfile mehr als 140 Zeilen hat. Falls ja, drucke nur den
|
||||
c Haeder. Andernfalls drucke das ganze Logfile
|
||||
|
||||
flag = .false.
|
||||
marke = -10
|
||||
do i = 1, 141
|
||||
read(20,'(A)',end=10) zeile
|
||||
if (index(Zeile,'>>>>> T E S T - R U N <<<<<').NE.0) marke = i
|
||||
enddo
|
||||
flag = .true. ! -> nur Headerzeilen schreiben
|
||||
|
||||
|
||||
10 rewind(20)
|
||||
do i = 1, 140
|
||||
read(20,'(A)',end=20) zeile
|
||||
if (flag .AND. index(Zeile,'>>> Schleife :').NE.0) goto 20
|
||||
if (i.NE.marke .AND. i.NE.marke+1) then
|
||||
write(21,'(xA)') zeile
|
||||
endif
|
||||
enddo
|
||||
|
||||
c Schliesse die Files:
|
||||
|
||||
20 close (20)
|
||||
close (21)
|
||||
|
||||
|
||||
END
|
||||
|
||||
62
mutrack/com/MAKE_CODENUMMERN-LIST.COM
Normal file
62
mutrack/com/MAKE_CODENUMMERN-LIST.COM
Normal file
@ -0,0 +1,62 @@
|
||||
$ set noverify
|
||||
$!==============================================================================
|
||||
$! Author: Anselm Hofer
|
||||
$!
|
||||
$! Commandoprozedur fuer das Erstellen von Dateien 'CODENUMMERN.LIST', welche
|
||||
$! die von ACCEL bzw. MUTRACK verwendeten Code-Nummern fuer Integrationsgebiet
|
||||
$! und Teilchenchicksal erstellen. Diese Dateien werden nach den Directories
|
||||
$! ACCEL$SOURCEdirectory bzw. MUTRACK$SOURCEdirectory kopiert und koennen von
|
||||
$! VMS-Ebene oder von PAW aus mittels 'ACCODE' bzw. 'MUCODE' ausgegeben werden.
|
||||
$!
|
||||
$! Der Aufruf dieser Prozedur fuer das Erstellen der Dateien geschieht ueber
|
||||
$! MAKEACCODE / MAKEMUCODE.
|
||||
$!==============================================================================
|
||||
$ progr = P1 ! = 'MUTRACK' oder 'ACCEL'
|
||||
$ ext = P2 ! = '_MU' oder '_AC'
|
||||
$ flag = P3 ! = 'MAKE' oder 'TYPE'
|
||||
$!==============================================================================
|
||||
$ sourceFile = "mutrack$COMdirectory:MAKE_CODENUMMERN-LIST.FOR."
|
||||
$ objectFile = "''progr'$COMdirectory:MAKE''ext'_CODENUMMERN-LIST.OBJ"
|
||||
$ exeFile = "''progr'$COMdirectory:MAKE''ext'_CODENUMMERN-LIST.EXE"
|
||||
$ listFile = "''progr'$SOURCEdirectory:CODENUMMERN.LIST"
|
||||
$!==============================================================================
|
||||
$ if p3.EQS."MAKE" then goto make
|
||||
$ if p3.EQS."TYPE" then goto type
|
||||
$ if p3.EQS." " then write sys$output "missing parameter P3 (""MAKE"" or ""TYPE"")"
|
||||
$ write sys$output "unknown parameter P3: ''P3'"
|
||||
$!==============================================================================
|
||||
$ MAKE:
|
||||
$! Compilieren und Linken des Programms fuer den Ausdruck der Liste (muss
|
||||
$! jedesmal neu gemacht werden, damit die Liste wirklich die aktuellen Code-
|
||||
$! Nummern enthaelt):
|
||||
$!
|
||||
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
||||
$ if archi .EQS. "VAX" then options = " "
|
||||
$ if archi .EQS. "Alpha" then options = " /ali=all"
|
||||
$
|
||||
$ define MAKE_CODENUMMERN_INCFILE1 "''progr'$SOURCEdirectory:COM_''progr'.INC"
|
||||
$ define MAKE_CODENUMMERN_INCFILE2 "''progr'$SOURCEdirectory:INITIALIZE.INC"
|
||||
$ set verify
|
||||
$ fortran 'sourceFile' /object='objectFile' 'options'
|
||||
$ link 'objectFile' /exe='exeFile'
|
||||
$ set noverify
|
||||
$
|
||||
$ del 'objectFile'.* /nocon
|
||||
$ pu 'exeFile'
|
||||
$ deassign MAKE_CODENUMMERN_INCFILE1
|
||||
$ deassign MAKE_CODENUMMERN_INCFILE2
|
||||
$
|
||||
$! Erstellen der Liste durch Aufruf des Programms:
|
||||
$ tmp == F$TRNLNM("''progr'$SOURCEdirectory")
|
||||
$ define MAKE_CODENUMMERN_OUTDIR "''TMP'"
|
||||
$ run 'exeFile'
|
||||
$ deassign MAKE_CODENUMMERN_OUTDIR
|
||||
$ purge 'listFile'
|
||||
$
|
||||
$ EXIT
|
||||
$!==============================================================================
|
||||
$ TYPE:
|
||||
$! Ausgabe der Liste:
|
||||
$ TYPE 'listFile'
|
||||
$ EXIT
|
||||
$!==============================================================================
|
||||
70
mutrack/com/MAKE_CODENUMMERN-LIST.FOR
Normal file
70
mutrack/com/MAKE_CODENUMMERN-LIST.FOR
Normal file
@ -0,0 +1,70 @@
|
||||
|
||||
OPTIONS /EXTEND_SOURCE
|
||||
|
||||
PROGRAM WRITE_CODE_NUMBERS
|
||||
c ==========================
|
||||
|
||||
c dieses Programm erstellt (nach neuem Kompilieren und Linken) eine jeweils
|
||||
c aktuelle Liste der verwendeten Codenummern fuer die Gebiete und Teilchen-
|
||||
c schicksale des Programmes 'MUTRACK' oder 'ACCEL':
|
||||
|
||||
INCLUDE 'MAKE_CODENUMMERN_INCFILE1'
|
||||
|
||||
integer i
|
||||
character datum*9,uhrzeit*8,helpChar*1
|
||||
|
||||
INCLUDE 'MAKE_CODENUMMERN_INCFILE2'
|
||||
|
||||
open(20,file='CODENUMMERN.LIST',defaultfile='MAKE_CODENUMMERN_OUTDIR',
|
||||
+ status='NEW',carriagecontrol='LIST')
|
||||
|
||||
call date(datum)
|
||||
call time(uhrzeit)
|
||||
|
||||
write(20,*)'==============================================================================='
|
||||
write(20,10) datum,uhrzeit
|
||||
10 format(' Erstellt am ',A,' um ',A,' durch ''MAKE_CODENUMMERN-LIST.FOR''')
|
||||
write(20,*)
|
||||
write(20,*)
|
||||
write(20,*) ' ========================================================='
|
||||
write(20,*) ' Die Code-Nummern fuer die verschiedenen Gebiete: ''Gebiet'''
|
||||
write(20,*) ' ========================================================='
|
||||
write(20,*)
|
||||
|
||||
write(20,12) 0, 'auf Moderatorfolie'
|
||||
do i = 1, Gebiete_Anzahl
|
||||
indx = index(Gebiet_text(i),':')
|
||||
if (indx.NE.0) then
|
||||
write(20,11) i, Gebiet_text(i)(1:indx-1)
|
||||
else
|
||||
write(20,11) i, Gebiet_text(i)
|
||||
endif
|
||||
enddo
|
||||
11 format(3x,i3,':'6x,A)
|
||||
12 format(2x'(',i3,':'6x,A,')')
|
||||
|
||||
write(20,*)
|
||||
write(20,*)
|
||||
write(20,*) ' =========================================================='
|
||||
write(20,*) ' Die Code-Nummern der moeglichen Teilchenschicksale: ''dest'''
|
||||
write(20,*) ' =========================================================='
|
||||
write(20,*)
|
||||
|
||||
do i = smallest_code_Nr, highest_code_Nr
|
||||
indx = index(code_text(i),':')
|
||||
if (indx.NE.0) then
|
||||
write(20,11) i, code_text(i)(1:indx-1)
|
||||
else
|
||||
write(20,11) i, code_text(i)
|
||||
endif
|
||||
enddo
|
||||
|
||||
write(20,*)
|
||||
write(20,*)'==============================================================================='
|
||||
|
||||
close(20)
|
||||
|
||||
|
||||
END
|
||||
|
||||
|
||||
8
mutrack/com/MUTRACK.COM
Normal file
8
mutrack/com/MUTRACK.COM
Normal file
@ -0,0 +1,8 @@
|
||||
$! in case a privious submitted batchjob didn't end properly:
|
||||
$ FILE = F$SEARCH("SYS$SCRATCH:MUTRACK.MESSAGE")
|
||||
$ IF FILE .NES. """" THEN DELETE SYS$SCRATCH:MUTRACK.MESSAGE.* /NOCON
|
||||
$! run mutrack$EXEdirectory:MUTRACK.EXE
|
||||
$ MUTRACK
|
||||
$! in case MUTRACK didn't end properly:
|
||||
$ FILE = F$SEARCH("SYS$SCRATCH:MUTRACK.MESSAGE")
|
||||
$ IF FILE .NES. """" THEN DELETE SYS$SCRATCH:MUTRACK.MESSAGE.* /NOCON
|
||||
36
mutrack/com/MUTRACK_GENERAL_INIT.COM
Normal file
36
mutrack/com/MUTRACK_GENERAL_INIT.COM
Normal file
@ -0,0 +1,36 @@
|
||||
$!******************************************************************************
|
||||
$! DIESE KOMMANDOPROZEDUR DEFINIERT ALLGEMEINE LOGICALS UND SYMBOLS FUER DIE
|
||||
$! ARBEIT MIT MUTRACK (ALS BATCH UND INTERAKTIV)
|
||||
$!******************************************************************************
|
||||
$ node = "PSW264"
|
||||
$
|
||||
$ define /trans=con mutrackSRC$directory "UD1:[SIMULA.MUTRACK.]
|
||||
$ define mutrack$COMdirectory "mutrackSRC$directory:[com]"
|
||||
$ define mutrack$MAPPENdirectory "UD1:[simula.mappen.mutrack]","UD1:[simula.mappen.testmappen]"
|
||||
$ define mutrack$AHdirectory "accel$OUTdirectory"
|
||||
$ define mutrack$GEOdirectory "mutrackSRC$directory:[geo_files]"
|
||||
$ define mutrack$EXEdirectory "mutrackSRC$directory:[exe]"
|
||||
$ define mutrack$RDdirectory "mutrackSRC$directory:[RD-kumac]"
|
||||
$!------------------------------------------------------------------------------
|
||||
$ define mutrack$PHYSICASRCdirectory "UD0:[simula.physica_source.mutrack]"
|
||||
$!==============================================================================
|
||||
$ archi = F$GETSYI("ARCH_NAME") ! Host OS either "VAX" or "Alpha"
|
||||
$ MU*TRACK :== "RUN mutrack$EXEdirectory:MUTRACK_''archi'.EXE"
|
||||
$ MUDIR :== "dir mutrack$OUTdirectory:MU*.*.*
|
||||
$ MULIST :== "dir mutrack$OUTdirectory:MU*.LOG.
|
||||
$ LSEMU :== "LSE mutrack$READdirectory:MUTRACK.INPUT"
|
||||
$ LSEMUNR :== "LSE mutrack$NRdirectory:mutrack_nr.dat
|
||||
$ MUGEO :== "SET DEF UD1:[SIMULA.MUTRACK.GEO_FILES]"
|
||||
$ MUSTAT :== "@ mutrack$COMdirectory:PLOT_BATCH_STATUS MUTRACK MU TRACK"
|
||||
$ WRITEMULOG :== "@ mutrack$COMdirectory:WRITELOG.COM"
|
||||
$ MAKEMUCODE :== "@ mutrack$COMdirectory:MAKE_CODENUMMERN-LIST.COM MUTRACK _MU MAKE
|
||||
$ MUCODE :== "@ mutrack$COMdirectory:MAKE_CODENUMMERN-LIST.COM MUTRACK _MU TYPE
|
||||
$ MUCOPY :== "@ mutrack$COMdirectory:COPY.COM MUTRACK MU"
|
||||
$!------------------------------------------------------------------------------
|
||||
$ SUBMU*TRACK :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/NAME=MUTRACK/LOG_FILE=mutrack$OUTdirectory mutrack$COMdirectory:MUTRACK.COM
|
||||
$ SUBMULIST*BATCH :== "@ mutrack$COMdirectory:SUB_LIST MU MUTRACK ''node'_BATCH"
|
||||
$ SUBMULISTF*AST :== "@ mutrack$COMdirectory:SUB_LIST MU MUTRACK ''node'_FAST"
|
||||
$ SUBMULISTS*LOW :== "@ mutrack$COMdirectory:SUB_LIST MU MUTRACK ''node'_SLOW"
|
||||
$ SUBMULISTD*EAD :== "@ mutrack$COMdirectory:SUB_LIST MU MUTRACK ''node'_DEAD"
|
||||
$!==============================================================================
|
||||
12
mutrack/com/MUTRACK_INIT.COM
Normal file
12
mutrack/com/MUTRACK_INIT.COM
Normal file
@ -0,0 +1,12 @@
|
||||
$!******************************************************************************
|
||||
$! DIESE KOMMANDOPROZEDUR DEFINIERT ALLGEMEINE LOGICALS UND SYMBOLS FUER DIE
|
||||
$! ARBEIT MIT MUTRACK (ALS BATCH UND INTERAKTIV)
|
||||
$! SIE WIRD VON LOGIN.COM AUS AUFGERUFEN.
|
||||
$!******************************************************************************
|
||||
$ define mutrack$directory "UD1:[simula.mutrack.calc]"
|
||||
$ define mutrack$READdirectory "mutrack$directory"
|
||||
$ define mutrack$OUTdirectory "mutrack$directory"
|
||||
$ define mutrack$NrDirectory "mutrack$directory"
|
||||
$ MUCALC :== "SET DEF mutrack$directory"
|
||||
$ MUPH*YS :== "SET DEF UD1:[simula.mutrack.physica]"
|
||||
$!==============================================================================
|
||||
28
mutrack/com/MUTRACK_INTER_INIT_OLD.COM
Normal file
28
mutrack/com/MUTRACK_INTER_INIT_OLD.COM
Normal file
@ -0,0 +1,28 @@
|
||||
$!******************************************************************************
|
||||
$! DIESE KOMMANDOPROZEDUR DEFINIERT SYMBOLS FUER DIE INTERAKTIVE ARBEIT MIT
|
||||
$! MUTRACK
|
||||
$! SIE WIRD VON LOGIN.COM AUS AUFGERUFEN.
|
||||
$!******************************************************************************
|
||||
$ LSEMU :== "LSE mutrack$READdirectory:mutrack.input
|
||||
$ MUCALC :== "SET DEF UD1:[SIMULA.MUTRACK.CALC]"
|
||||
$ MUPH*YS :== "SET DEF UD0:[SIMULA.PHYSICA_SOURCE.MUTRACK]"
|
||||
$ MUSTAT :== "@ mutrack$COMdirectory:PLOT_BATCH_STATUS.COM MUTRACK MU TRACK"
|
||||
$ MUGEO :== "SET DEF UD0:[SIMULA.MUTRACK.GEO_FILES]"
|
||||
$ WRITEMULOG :== "@ mutrack$COMdirectory:WRITELOG.COM"
|
||||
$!------------------------------------------------------------------------------
|
||||
$ SUBMU*TRACK :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/NAME=MUTRACK/LOG_FILE=mutrack$OUTdirectory mutrack$COMdirectory:MUTRACK.COM"
|
||||
$ SUBMULIST :== "@ mutrack$COMdirectory:SUB_LIST.COM MU MUTRACK"
|
||||
$!==============================================================================
|
||||
$! OBSOLETE:
|
||||
$ SUBMULIST1 :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/QUEUE=PSW264_SLOW/NAME=MU_LIST1/LOG_FILE=mutrack$OUTdirectory mutrack$READdirectory:LIST1.COM"
|
||||
$ SUBMULIST2 :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/QUEUE=PSW264_SLOW/NAME=MU_LIST2/LOG_FILE=mutrack$OUTdirectory mutrack$READdirectory:LIST2.COM"
|
||||
$ SUBMULIST3 :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/QUEUE=PSW264_SLOW/NAME=MU_LIST3/LOG_FILE=mutrack$OUTdirectory mutrack$READdirectory:LIST3.COM"
|
||||
$ SUBMULIST4 :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/QUEUE=PSW264_SLOW/NAME=MU_LIST4/LOG_FILE=mutrack$OUTdirectory mutrack$READdirectory:LIST4.COM"
|
||||
$ SUBMULIST5 :== -
|
||||
"SUBMIT/NOTIFY/NOPRINT/QUEUE=PSW264_SLOW/NAME=MU_LIST5/LOG_FILE=mutrack$OUTdirectory mutrack$READdirectory:LIST5.COM"
|
||||
$!==============================================================================
|
||||
22
mutrack/com/MUTRACK_PROGR_INIT.COM
Normal file
22
mutrack/com/MUTRACK_PROGR_INIT.COM
Normal file
@ -0,0 +1,22 @@
|
||||
$!******************************************************************************
|
||||
$! DIESE KOMMANDOPROZEDUR DEFINIERT LOGICALS UND SYMBOLS FUER DIE PROGRAMMIER-
|
||||
$! ARBEIT, DAS KOMPILIEREN UND LINKEN VON MUTRACK (INTERAKTIV)
|
||||
$! SIE WIRD VON LOGIN.COM AUS AUFGERUFEN.
|
||||
$!******************************************************************************
|
||||
$ define mutrack$OBJdirectory "mutrackSRC$directory:[EXE]"
|
||||
$ OLDMU :== "define mutrack$SOURCEdirectory UD1:[SIMULA.MUTRACK.OLD_SOURCE]"
|
||||
$ NEWMU :== "define mutrack$SOURCEdirectory UD1:[SIMULA.MUTRACK.SOURCE]"
|
||||
$ NEWMU
|
||||
$
|
||||
$ SETMUTEST :== "SET DEF UD1:[SIMULA.MUTRACK.NEWTEST]"
|
||||
$ MUPHYSRC :== "SET DEF UD0:[simula.physica_source.mutrack]"
|
||||
$!------------------------------------------------------------------------------
|
||||
$ MUCOM :== "SET DEF UD1:[SIMULA.MUTRACK.COM]"
|
||||
$ MUSOURCE :== "SET DEF mutrack$SOURCEdirectory"
|
||||
$ MUMAP :== "SET DEF mutrack$MAPPENdirectory"
|
||||
$ FORMU :== "@mutrack$COMdirectory:compile.com MUTRACK _MU "
|
||||
$ LINKMU :== "@mutrack$COMdirectory:linkmu.com"
|
||||
$ LINKMUV :== "@mutrack$COMdirectory:linkmuv.com"
|
||||
$ LINKMUD :== "@mutrack$COMdirectory:linkmud.com"
|
||||
$ LINKMUVD :== "@mutrack$COMdirectory:linkmuvd.com"
|
||||
$!==============================================================================
|
||||
85
mutrack/com/PLOT_BATCH_STATUS.COM
Normal file
85
mutrack/com/PLOT_BATCH_STATUS.COM
Normal file
@ -0,0 +1,85 @@
|
||||
$ SET NOVERIFY
|
||||
$! P1 = 'PROGR' = PROGRAMMNAME = "MUTRACK" bzw. "ACCEL"
|
||||
$! P2 = KUERZEL = "MU" bzw. "AC"
|
||||
$! P3 = OBTIONALER TEIL DES PROGRAMMAUFRUFES = "TRACK" bzw. "CEL"
|
||||
$!==============================================================================
|
||||
$! LAEUFT 'PROGR' ALS BATCHJOB, SO WIRD (BEI MEHR ALS EINER SCHLEIFE)
|
||||
$! DER AKTUELLE NAME DER AUSGABEDATEIEN SOWIE DIE NUMMER DER GERADE
|
||||
$! ABGEARBEITETEN SCHLEIFE IN EINER DATEI "''PROGR'.MESSAGE" ABGELEGT.
|
||||
$! MIT DER VORLIEGENDEN KOMMANDOPROZEDUR WIRD DIESE INFORMATION AUS
|
||||
$! DER .MESSAGE-DATEI AUSGELESEN UND AUF DEN BILDSCHIRM GEGEBEN.
|
||||
$! AH, 12-JUN-1996
|
||||
$!==============================================================================
|
||||
$ SET NOVERIFY
|
||||
$ SET ON
|
||||
$ SAY := WRITE SYS$OUTPUT
|
||||
$ SHOW TIME
|
||||
$
|
||||
$ MAXLISTINDX = 20
|
||||
$
|
||||
$ FLAG = 0
|
||||
$ NOTLASTTIME = 1
|
||||
$ listIndx = 1
|
||||
$ ON ERROR THEN GOTO READERROR
|
||||
$
|
||||
$ LOOP:
|
||||
$ messageName = "SYS$SCRATCH:''P2'_LIST''listIndx'.MESSAGE"
|
||||
$
|
||||
$ FILEOPEN:
|
||||
$ OPEN/READ/SHARE=WRITE/ERROR=next messagefile 'messageName'
|
||||
$ flag = 1
|
||||
$ SAY "================================================================================"
|
||||
$ IF NOTLASTTIME THEN READ messagefile NUMMER
|
||||
$ READ messagefile TIME1
|
||||
$ READ messagefile INPUTNAME
|
||||
$ READ messagefile FILENAME
|
||||
$ READ messagefile LOOPINFO
|
||||
$ READ messagefile TIME2
|
||||
$ CLOSE messagefile
|
||||
$ IF NOTLASTTIME
|
||||
$ THEN
|
||||
$ SAY "JOB SUBMITTED WITH ""SUB''P2'LIST ''listIndx'"":"
|
||||
$ ELSE
|
||||
$ SAY "JOB SUBMITTED WITH ""SUB''P2'*''P3'"":"
|
||||
$ ENDIF
|
||||
$ SAY " NAME OF INPUT FILE : ''INPUTNAME'"
|
||||
$ IF NOTLASTTIME
|
||||
$ THEN
|
||||
$ SAY " (''NUMMER'. file in input_file list,''TIME1')"
|
||||
$ ELSE
|
||||
$ SAY " (''TIME1')"
|
||||
$ ENDIF
|
||||
$ SAY " NAME OF OUTPUT FILES: ''FILENAME'"
|
||||
$ LOOPINFO = LOOPINFO-" "
|
||||
$ SAY " ''LOOPINFO'"
|
||||
$ SAY " (''TIME2')"
|
||||
$ GOTO next
|
||||
$ !
|
||||
$ READERROR:
|
||||
$ SAY "reading ''messageName'"
|
||||
$ CLOSE messagefile
|
||||
$ !
|
||||
$ NEXT:
|
||||
$ IF listIndx.LE.maxListIndx
|
||||
$ THEN
|
||||
$ listIndx = listIndx + 1
|
||||
$ IF listIndx.LE.maxListIndx
|
||||
$ THEN
|
||||
$ GOTO LOOP
|
||||
$ ELSE
|
||||
$ messageName = "SYS$SCRATCH:''P1'.MESSAGE
|
||||
$ NOTLASTTIME = 0
|
||||
$ GOTO FILEOPEN
|
||||
$ ENDIF
|
||||
$ ELSE
|
||||
$ IF FLAG.EQ.0
|
||||
$ THEN
|
||||
$ SAY " THERE ARE NO APPROPRIATE ''P2'*.MESSAGE-FILES IN SYS$SCRATCH"
|
||||
$ ELSE
|
||||
$ SAY "================================================================================"
|
||||
$ SAY " ( -> SYS$SCRATCH:''P2'*.MESSAGE )"
|
||||
$ ENDIF
|
||||
$ ENDIF
|
||||
$ !
|
||||
$ SAY "================================================================================"
|
||||
$ EXIT
|
||||
52
mutrack/com/READ-EVENTNRS.FOR
Normal file
52
mutrack/com/READ-EVENTNRS.FOR
Normal file
@ -0,0 +1,52 @@
|
||||
|
||||
options /extend_source
|
||||
|
||||
program READ_EVENTNRS
|
||||
c =====================
|
||||
|
||||
implicit none
|
||||
|
||||
c-------------------------------------------------------------------------------
|
||||
c Programm, welches aus dem output eines
|
||||
c
|
||||
c $ SEARCH mutrack$outDirectory:MU_nnnn.LOG "MCP2 getroffen" /OUT=SEARCHLIST.TMP
|
||||
c
|
||||
c die je Schleife bei einem cut auf MCP2-Treffer in ein NTupel gefuellte
|
||||
c Anzahl simulierter Events bestimmt.
|
||||
c-------------------------------------------------------------------------------
|
||||
|
||||
INTEGER LOOP,NEVENT,IEVENT
|
||||
CHARACTER*80 ZEILE
|
||||
|
||||
c-------------------------------------------------------------------------------
|
||||
|
||||
loop = 0
|
||||
nEvent = 0
|
||||
iEvent = 1
|
||||
|
||||
open (10,file='SEARCHLIST.TMP',status='old',readonly)
|
||||
open (11,file='EVENTNRS.TMP',status='unknown')
|
||||
10 read(10,'(A)',err=999,end=100) ZEILE
|
||||
read(zeile(48:54),*,err=1000) nEvent
|
||||
loop = loop + 1
|
||||
c WRITE(*,*) loop,nEvent,iEvent
|
||||
write(11,*) loop,nEvent,iEvent
|
||||
iEvent = iEvent+nEvent
|
||||
goto 10
|
||||
|
||||
100 close(10)
|
||||
close(11)
|
||||
call exit
|
||||
|
||||
999 write(*,*) 'can''t read from SEARCHLIST.TMP'
|
||||
write(*,*) 'loop,nEvent,iEvent = ',loop,nEvent,iEvent
|
||||
call exit
|
||||
|
||||
1000 write(*,*)
|
||||
write(*,*) zeile
|
||||
write(*,*) zeile(48:54)
|
||||
|
||||
end
|
||||
|
||||
|
||||
|
||||
82
mutrack/com/SUB_LIST.COM
Normal file
82
mutrack/com/SUB_LIST.COM
Normal file
@ -0,0 +1,82 @@
|
||||
$!==============================================================================
|
||||
$! KOMMANDOPROZEDUR FUER DAS SUBMITTEN VON 'INPUTFILE-LISTEN' VON MUTRACK UND
|
||||
$! ACCEL MITTELS 'SUBMULISTn' BZW. 'SUBACLISTn'.
|
||||
$!==============================================================================
|
||||
$! 1. LOESCHE GEGEBENENFALLS DAS .MESSAGE FILE
|
||||
$! 2. IN DER SCHLEIFE: VERSUCHE DAS .MESSAGE-FILE ZU OEFFNEN
|
||||
$! 3. GELINGT DIES NICHT, SO WURDE DIE KOMMANDOPROZEDUR GERADE ERST GESTARTET.
|
||||
$! EIN PROGRAMMDURCHLAUF WIRD DANN AUF JEDEN FALL PORBIERT.
|
||||
$! 4. LIES BEI NEUEM VERSUCH ERST DIE NUMMER DES ZULETZT ABGEARBEITETEN INPUT-
|
||||
$! FILES. IST DIESE = 1, SO LOESCHE DAS .MESSAGE FILE UND BEENDE PROZEDUR
|
||||
$!==============================================================================
|
||||
$! P1 = KUERZEL DES PROGRAMMES = "MU" bzw. "AC"
|
||||
$! P2 = PROGRAMMAUFRUF = "MUTRACK" bzw. "ACCEL"
|
||||
$! P3 = QUEUE
|
||||
$! P4 = NUMMER DER INPUTLISTE (WAHRSCHEINLICH AUF 1-9 EINGESCHRAENKT)
|
||||
$! P5 = QUEUE-ENTRY, AUF DEN SYNCHRONISIERT WERDEN SOLL
|
||||
$!==============================================================================
|
||||
$! Definition der Filenamen:
|
||||
$ INPUTLISTNAME = "LIST''P4'"
|
||||
$ COMFILENAME = "SYS$SCRATCH:'P1'_LIST'P4'.COM"
|
||||
$ MESSFILENAME = "SYS$SCRATCH:''P1'_LIST''P4'.MESSAGE"
|
||||
$!
|
||||
$! Oeffnen des files fuer die zu submittende Kommandoprozedur:
|
||||
$ FILE = F$SEARCH("''COMFILENAME'")
|
||||
$ IF FILE .NES. "" THEN DELETE 'COMFILENAME'.* /NOCON
|
||||
$ OPEN /WRITE comfile 'COMFILENAME'
|
||||
$ OUT := WRITE COMFILE
|
||||
$!
|
||||
$! Erstellen der zu submittenden Kommandoprozedur:
|
||||
$ OUT "$! DIESE KOMMANDOPROZEDUR WURDE DURCH 'SUB_LIST.COM' ERSTELLT UND WIRD
|
||||
$ OUT "$! NUR TEMPORAER BENOETIGT, BIS DER DURCH ""$ SUB''P1'LIST ''P4'"" GESTARTETE
|
||||
$ OUT "$! BATCHJOB ABGEARBEITET IST. BEI NORMALEM ENDE DES BATCHJOBS WIRD DIESES
|
||||
$ OUT "$! FILE ZUM SCHLUSS GELOESCHT!"
|
||||
$ OUT "$!=============================================================================
|
||||
$ OUT "$ SET NOON
|
||||
$ OUT "$!
|
||||
$ IF P5 .NES. ""
|
||||
$ THEN
|
||||
$ OUT "$ SYNCHRONIZE /ENTRY = ''P5'
|
||||
$ OUT "$!
|
||||
$ ENDIF
|
||||
$ OUT "$ DEFINE/NOLOG INPUTLISTNAME ''INPUTLISTNAME'"
|
||||
$ OUT "$! in case a privious submitted batchjob didn't end properly:
|
||||
$ OUT "$ FILE = F$SEARCH(""''MESSFILENAME'"")
|
||||
$ OUT "$ IF FILE .NES. """" THEN DELETE ''MESSFILENAME'.* /NOCON
|
||||
$ OUT "$!
|
||||
$ OUT "$ FIRSTTIME = ""TRUE""
|
||||
$ OUT "$ LOOP_START:
|
||||
$ OUT "$ OPEN /SHARE /READ /ERROR=OPEN_ERROR messagefile ''MESSFILENAME'
|
||||
$ OUT "$ READ messagefile FILENR
|
||||
$ OUT "$ CLOSE messagefile
|
||||
$ OUT "$ IF (FILENR.EQ.1) THEN GOTO FINISH
|
||||
$ OUT "$!
|
||||
$ OUT "$ PROG_CALL:
|
||||
$ OUT "$ ''P2'
|
||||
$ OUT "$ GOTO LOOP_START
|
||||
$ OUT "$!
|
||||
$ OUT "$ FINISH:
|
||||
$ OUT "$ FILE = F$SEARCH(""''MESSFILENAME'"")
|
||||
$ OUT "$ IF FILE .NES. """" THEN DELETE ''MESSFILENAME'.* /NOCON
|
||||
$ OUT "$ WRITE SYS$OUTPUT ""''P1'_LIST''P4' FINISHED PROPERLY""
|
||||
$ OUT "$ EXIT
|
||||
$ OUT "$!
|
||||
$ OUT "$!------------------------------------------------------------------------------
|
||||
$ OUT "$ OPEN_ERROR:
|
||||
$ OUT "$ IF (FIRSTTIME.EQS.""TRUE"")
|
||||
$ OUT "$ THEN
|
||||
$ OUT "$ FIRSTTIME = ""FALSE""
|
||||
$ OUT "$ GOTO PROG_CALL
|
||||
$ OUT "$ ELSE
|
||||
$ OUT "$! in spite of the program has already been run there is no .MESSAGE file
|
||||
$ OUT "$! => all input files have already been done => exit
|
||||
$ OUT "$ GOTO FINISH
|
||||
$ OUT "$ ENDIF
|
||||
$ OUT "$!------------------------------------------------------------------------------
|
||||
$ CLOSE COMFILE
|
||||
$!
|
||||
$! Submitten der Kommandoprozedur:
|
||||
$ SUBMIT/DELETE/NOTIFY/NOPRINT/QUEUE='P3'/NAME='P1'LIST'P4' -
|
||||
/LOG_FILE='P2'$OUTdirectory 'COMFILENAME'
|
||||
$!
|
||||
$ EXIT
|
||||
3
mutrack/com/SUB_MUTRACK.COM
Normal file
3
mutrack/com/SUB_MUTRACK.COM
Normal file
@ -0,0 +1,3 @@
|
||||
$ IF P1.NES."" THEN SYNCHRONIZE /ENTRY = ''P1'
|
||||
$ SUBMIT/NOTIFY/NOPRINT/NAME=MUTRACK/LOG_FILE=mutrack$OUTdirectory -
|
||||
mutrack$COMdirectory:MUTRACK.COM"
|
||||
7
mutrack/com/T-MUTRACK.COM
Normal file
7
mutrack/com/T-MUTRACK.COM
Normal file
@ -0,0 +1,7 @@
|
||||
$! in case a privious submitted batchjob didn't end properly:
|
||||
$ FILE = F$SEARCH("SYS$SCRATCH:MUTRACK.MESSAGE")
|
||||
$ IF FILE .NES. """" THEN DELETE SYS$SCRATCH:MUTRACK.MESSAGE.* /NOCON
|
||||
$ run mutrack$EXEdirectory:T-MUTRACK.EXE
|
||||
$! in case MUTRACK didn't end properly:
|
||||
$ FILE = F$SEARCH("SYS$SCRATCH:MUTRACK.MESSAGE")
|
||||
$ IF FILE .NES. """" THEN DELETE SYS$SCRATCH:MUTRACK.MESSAGE.* /NOCON
|
||||
49
mutrack/com/WRITELOG.COM
Normal file
49
mutrack/com/WRITELOG.COM
Normal file
@ -0,0 +1,49 @@
|
||||
$! KOMMANDOPROZEDUR FUER DEN AUSDRUCK DER HEADERZEILEN VON 'MU_nnnn.LOG'-Dateien
|
||||
$! =============================================================================
|
||||
$!
|
||||
$ SET NOON
|
||||
$ SET NOVERIFY
|
||||
$ SAY := WRITE SYS$OUTPUT
|
||||
$ SET COMMAND mutrack$COMdirectory:DEF_MAKEWRITELOGOUT.CLD
|
||||
$ ! FILE MIT HEADERZEILEN ERSTELLEN LASSEN:
|
||||
$ IF P1 .EQS. ""
|
||||
$ THEN
|
||||
$ SAY "%WRITELOG: error: NO RUN NUMBER GIVEN IN COMMANDLINE"
|
||||
$ EXIT
|
||||
$ ENDIF
|
||||
$ IF P1 .EQS. "?"
|
||||
$ THEN
|
||||
$ SAY " "
|
||||
$ SAY " WRITEMULOG runNr [destinaton]"
|
||||
$ SAY " "
|
||||
$ SAY " destination not specified -> output to screen"
|
||||
$ SAY " "
|
||||
$ SAY " accepted destinations are: PSW04, PSW23, PRL, PRL2 (have to be given in upper case!)"
|
||||
$ SAY " "
|
||||
$ EXIT
|
||||
$ ENDIF
|
||||
$ IF (P2.NES."PSW04" .AND. P2.NES."PSW23" .AND. P2.NES."PRL" .AND. P2.NES."PRL2" .AND. P2.NES."")
|
||||
$ THEN
|
||||
$ SAY " "
|
||||
$ SAY " ""''P2'"" is not an accepted destination!"
|
||||
$ SAY " accepted destinations are: PSW04, PSW23, PRL, PRL2 (UPPER CASE ONLY!)"
|
||||
$ SAY " "
|
||||
$ EXIT
|
||||
$ ENDIF
|
||||
$!
|
||||
$ MAKEWRITELOGOUT "''P1'"
|
||||
$ OUTFILENAME = "MUTRACK$OUTdirectory:WRITELOG_" + "''P1'" + ".OUT;"
|
||||
$ say "''outfilename'"
|
||||
$ IF P2 .EQS. ""
|
||||
$ THEN
|
||||
$ TY 'OUTFILENAME'
|
||||
$ DELETE /NOCON 'OUTFILENAME'
|
||||
$ WRITE SYS$OUTPUT "================================================================================"
|
||||
$ EXIT
|
||||
$ ENDIF
|
||||
$ IF (P2.EQS."PRL" .OR. P2.EQS."PRL2")
|
||||
$ THEN
|
||||
$ PRL2 'OUTFILENAME' /del
|
||||
$ EXIT
|
||||
$ ENDIF
|
||||
$ VPP 'OUTFILENAME' /delete /dev=printer /form=listq /dest= "''P2'"
|
||||
Reference in New Issue
Block a user