Examples

Example 1: Constants:

       END FILE 2 
       END FILE ( 2 ) 
       END FILE ( UNIT=2 ) 

Example 2: Variables:

       LOGUNIT = 2 
       END FILE LOGUNIT 
       END FILE ( LOGUNIT ) 
       END FILE ( UNIT=LOGUNIT )

Example 3: Error trap:

       NOUT = 2 
       END FILE ( UNIT=NOUT, IOSTAT=KODE, ERR=9) 
       ... 
9      WRITE(*,*) 'Error at END FILE, on unit', NOUT 
       STOP