F45 
.PROC,F45*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* F45 - CONVERSION AIDS, FORTRAN 4 TO FORTRAN 5.
*CALL     PSRLEV
* 
  
.*
.*  START F45 VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,F45,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        F45. 
EXIT. 
REVERT(ABORT)  F45. 
  
  
.DATA,ZZZPROC 
.PROC,F45.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=F451,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=F45,NUMAUX=1)
FTN(A,I,OPT=1,PL=9999999,STATIC,S=CPUTEXT,S=IOTEXT,B=F45B,L=LIST) 
RETURN(COMP,FORT) 
FTN(A,I,OPT=1,PL=9999999,B=F45SKL,L=LIST) 
BEGIN(GETULIB,INSTALL,FORTRAN,BAMLIB,SYSLIB)
COPYLM(F45SKL,F45B,F45TMP,,R)  INTERMEDIATE BINARY WITHOUT DEBUG
FILE(TAPE16,FO=SQ,BT=I,RT=W,USE)
FILE(OUTPUT,FO=SQ,BT=C,RT=Z,USE)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=FORTRAN/BAMLIB) 
LDSET(STAT=TAPE16/OUTPUT) 
LOAD(F45TMP)
NOGO.  CREATE F45 WITHOUT FTNTB TO CREATE A FTNTB 
RFL(65000)
F45(I,ML,L=LIST)   CREATE SYNTAX (FTNTB)
REWIND(ZZZZZ0A) 
FTN(A,I=ZZZZZ0A,OPT=1,PL=9999999,B=F45SYN,L=LIST) 
COPYLM(F45TMP,F45SYN,F45REL,,R)   ADD SYNTAX TO F45 
RETURN(F45) 
REWIND(F45REL)
* 
*    MAKE AN ABSOLUTE F45.
* 
FILE(TAPE16,FO=SQ,BT=I,RT=W,USE)
FILE(OUTPUT,FO=SQ,BT=C,RT=Z,USE)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=FORTRAN/BAMLIB) 
LDSET(STAT=TAPE16/OUTPUT) 
LOAD(F45REL)
NOGO.   FINAL F45 ABSOLUTE DONE 
RENAME(LGO=F45) 
BEGIN(GENDIR,INSTALL,LIB=29)
BEGIN(SAVELGO,INSTALL,PRDNAME=F451) 
BEGIN(PRDOUT,INSTALL,PRDNAME=F451,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  F45. 
EXIT. 
REVERT(ABORT)  F45. 
*WEOR 
