29 lines
1.2 KiB
Plaintext
29 lines
1.2 KiB
Plaintext
$ 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'
|