Examples

Example 1: Inquire by unit:

       LOGICAL OK 
       INQUIRE( UNIT=3, OPENED=OK ) 
       IF ( OK ) CALL GETSTD ( 3, STDS ) 

Example 2: Inquire by file:

       LOGICAL THERE 
       INQUIRE( FILE='.profile', EXIST=THERE ) 
       IF ( THERE ) CALL GETPROFILE( FC, PROFILE ) 

Example 3: More than one answer, omitting the UNIT=:

       CHARACTER FN*32 
       LOGICAL HASNAME, OK 
       INQUIRE ( 3, OPENED=OK, NAMED=HASNAME, NAME=FN ) 
       IF ( OK .AND. HASNAME ) PRINT *, 'Filename="', FN, '"'