*DECK CMSDOE
          IDENT  CMS.DOE
  
 ERRCK    EQU    1
*CALL DOE 
          END 
