! Runs FTE preprocessor to create intermediate file,
! then Fortran-compiles that into object file.
! P1 is the filename without extension, P2 is non-blank to produce a listing.
$IF P1 .EQS. "" THEN GOTO NONAME
$IF P2 .NES. "" THEN FTE 'P1'/CR
$IF P2 .EQS. "" THEN FTE 'P1'
$FORTRAN 'P1'.TMP
$DELETE 'P1'.TMP;*
$EXIT
$NONAME:
$WRITE SYS$OUTPUT "Filename, without extension, must be specified"