*DECK CMSMFL
          IDENT  CMS.MFL
  
 ERRCK    EQU    1
*CALL MFL 
          END 
