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