FCL1
.PROC,FCL1*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FCL1 - FORTRAN 4 MATH LIBRARY - PART 1. 
*CALL     PSRLEV
* 
  
.*
.*  START FCL1 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FCL1,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FCL1.
EXIT. 
REVERT(ABORT)  FCL1.
  
  
.DATA,ZZZPROC 
.PROC,FCL1. 
*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) 
RETURN(MATHTXT) 
COMPASS(A,I,G=LGO,B=LIB,L=LIST) 
* 
*  NO OUTPUT TAPE IS REQUIRED SINCE THE *FCL* PL
*  WILL BE COMPLETELY ASSEMBLED IN *FCL2*.
* 
*  THIS HAS BEEN DONE BECAUSE *SYMPL* REQUIRES
*  THE ROUTINES UPDATED BY *FCL1* AND *FCL2*
*  REQUIRES *CRM* WHICH REQUIRES *SYMPL*. 
* 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=FORTRAN)
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=27)
BEGIN(SAVELGO,INSTALL,PRDNAME=FCL4) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FCL1.
EXIT. 
REVERT(ABORT)  FCL1.
*WEOR 
