WRTEOF.inc

References to this file elsewhere.
1       SUBROUTINE WRTEOF                                                         
2      I(NFL   , IDATE  , KT    )                                                 
3       INTEGER IDATE(5)                                                          
4       WRITE(NFL) IDATE,KT,0,'    ','    '                                       
5       RETURN                                                                    
6       END SUBROUTINE WRTEOF