EXTERNALINTEGERFNSPEC  ICL9CESUBS(INTEGER  ENTRY,ROUTINE  ALG,FORT,   C 
 LONGINTEGER  IMP,IDUM,ROUTINE  JBR,LONGINTEGER  PASC,PDUM,SPARE,SDUM,C 
 STRING (31) PRODUCT)
SYSTEMROUTINESPEC  ALGOL
SYSTEMROUTINESPEC  FORTRAN
SYSTEMROUTINESPEC  JBR ENTRY
SYSTEMROUTINESPEC  BJBRPARS(LONGINTEGER  I,    C 
                     INTEGER  FAC,MD,MM,LD,LM,FM,LONGINTEGER  DFS,AV)
!*
!*
EXTERNALINTEGERFN  ICL9CEJOBBER(LONGINTEGER  INPUT,INTEGER  FACLEVEL,C 
MDEFAULT,MMAX,LDEFAULT,LMAX,FMAX,LONGINTEGER  DFS
MACRO,AVOLS)
BJBRPARS(INPUT,FACLEVEL,MDEFAULT,MMAX,LDEFAULT,LMAX, C 
                  FMAX,DFSMACRO,AVOLS)
RESULT  = ICL9CESUBS(0,ALGOL,FORTRAN,0,0,JBRENTRY,0,0,0,0,            C 
          "SCIENTIFIC JOBBER B40")
END 
ENDOFFILE