parm noarray,nocheck
imp srce200_xgen27c,xgen27cy
parm opt
imp srce200_XCONTRl5a,xcontrl5ay
imp srce200_FALLOC2a,falloc2ay
imp srce200_FANAL2a,fanal2ay
imp srce200_FARITH1,farith1y
imp srce200_FCINNUM1a,fcinnum1ay
imp srce200_fcode2,fcode2y
imp srce200_FDATA2,fdata2y
imp srce200_FEND2,fend2y
imp srce200_FGEN2,fgen2y
imp srce200_FINPUT2a,finput2ay
imp srce200_FMAP1,fmap1y
imp srce200_FMESS1,fmess1y
imp srce200_FOPTDUM1,foptdum1y
imp srce200_FREAL1b,freal1by
imp srce200_Froot1d,froot1dy
imp srce200_FTRIADS1,ftriads1y
imp srce200_FFPTOS1a,ffptos1ay
imp srce200_FCFMT1a,fcfmt1ay