Examples

Example 1: Close and keep:

       CLOSE ( 2, STATUS='KEEP') 

Example 2: Close and delete:

       CLOSE ( 2, STATUS='DELETE', IOSTAT=I )

Example 3: Close and keep a scratch file even though the status is SCRATCH:

       OPEN ( 2, STATUS='SCRATCH') 
       ... 
       CLOSE ( 2, STATUS='KEEP', IOSTAT=I )