!* EXTERNALINTEGERFNSPEC ICL9CESUBS(INTEGER ENTRY, C LONGINTEGER ALGOL,ADUM,ROUTINE FORTRAN, C LONGINTEGER IMP,IDUM,JBR,JDUM,PASC,PDUM,OTHER,ODUM, C STRING (31) PRODUCT) SYSTEMROUTINESPEC FORTRAN SYSTEMROUTINESPEC BSOLOPARS(LONGINTEGER C INPUT, OMF, RUN, OPTIONS, SAVELIST, ROUTE, REPORT, C INTEGER DEPTH, DIAGS, ARRAY, LONGINTEGER AVOLS) !* !* !* !* EXTERNALINTEGERFN ICL9CEFORTRAN(LONGINTEGER C INPUT,OMF,RUN,OPTIONS,SAVELIST, ROUTE, REPORT, C INTEGER DEPTH, DIAGS, ARRAY, LONGINTEGER AVOLS) BSOLOPARS(INPUT, OMF, RUN, OPTIONS, SAVELIST, ROUTE, REPORT, C DEPTH, DIAGS, ARRAY, AVOLS) RESULT = ICL9CESUBS(2,0,0,FORTRAN,0,0,0,0,0,0,0,0,"FORTRAN(G) B30") END !* ENDOFFILE