!*
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