FCL2
.PROC,FCL2*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FCL2 - FORTRAN 4 MATH LIBRARY - PART 2. 
*CALL     PSRLEV
* 
  
.*
.*  START FCL2 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FCL2,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FCL2.
EXIT. 
REVERT(ABORT)  FCL2.
  
  
.DATA,ZZZPROC 
.PROC,FCL2. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FCL4,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FCL,NUMAUX=1)
COMPASS(A,I,S=IPTEXT,B=MATHTXT,L=LIST)
REWIND(MATHTXT) 
COPYBR(MATHTXT,LGO) 
COMPASS(A,I,G=MATHTXT,B=LIB,L=LIST) 
RETURN(MATHTXT) 
COMPASS(A,I,S=IOTEXT,S=IPTEXT,B=FCLTEXT,L=LIST) 
REWIND(FCLTEXT) 
COPYBR(FCLTEXT,LGO,1) 
COPYBR(FCLTEXT,LIB,1) 
REWIND(FCLTEXT) 
COPYBR(FCLTEXT,FL4) 
FTN(A,I,OPT=1,S=IOTEXT,S=LDRTEXT,S=PSSTEXT,S=CPUTEXT,G=FL4,B=LIB,L=LIST)
COMPASS(A,I,S=IOTEXT,G=FCLTEXT,B=BIN,L=LIST)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(BIN) 
NOGO(CAPS)
REWIND(CAPS)
COPYBF(CAPS,LIB)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=FORTRAN)
REWIND(LGO) 
  
.* SEPARATE THE LGO FILE INTO 2 SEPARATE FILES IN ORDER TO
.* ELIMINATE OVERLAPPING BINARY REFERENCES BETWEEN FCL1 AND 
.* FCL2 IN GLOBLIB
  
COPYBR(LGO,LGO1)
COPYBR(LGO,LGO2)
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LGO=LGO1,LIB=27) 
BEGIN(GENDIR,INSTALL,LGO=LGO2,LIB=27) 
BEGIN(SAVELGO,INSTALL,PRDNAME=FCL4) 
BEGIN(PRDOUT,INSTALL,PRDNAME=FCL4,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FCL2.
EXIT. 
REVERT(ABORT)  FCL2.
*WEOR 
