SUBROUTINE WRTEOF                                                         
     I(NFL   , IDATE  , KT    )                                                 
      INTEGER IDATE(5)                                                          
      WRITE(NFL) IDATE,KT,0,'    ','    '                                       
      RETURN                                                                    
      END SUBROUTINE WRTEOF