idlastro / Disk I/O (e.g. IRAF files): IRAFDIR

[Source code]

NAME
IRAFDIR
PURPOSE
Provide a brief description of the IRAF images on a directory
CALLING SEQUENCE
IRAFDIR, [ directory, TEXTOUT = ]
OPTIONAL INPUT PARAMETERS
DIRECTORY - Scalar string giving file name, disk or directory to 
        be searched 
OPTIONAL INPUT KEYWORD
TEXTOUT - specifies output device (see TEXTOPEN)
        textout=1       TERMINAL using /more option
        textout=2       TERMINAL without /more option
        textout=3       .prt
        textout=4       laser.tmp
        textout=5      user must open file
        textout=7       Append to existing .prt file
        textout = 'filename' (default extension of .prt)
OUTPUT PARAMETERS
None
PROCEDURE
FINDFILE is used to find all '.imh' files in the directory. 
The object name and image size (NAXIS1, NAXIS2) are extracted
from the header. Each header is also searched for the parameters
DATE-OBS (or TDATEOBS), TELESCOP (or OBSERVAT), EXPTIME.
RESTRICTIONS
(1) Some fields may be truncated since IRAFDIR uses a fixed format 
        output
(2) No more than 2 dimension sizes are displayed 
SYSTEM VARIABLES
If 'textout' keyword is not specified to select an output device,
!TEXTOUT will be the default.    This non-standard system variable
can be added using the procedure ASTROLIB.
PROCEDURE CALLS
EXPAND_TILDE(), FDECOMP, REMCHAR, TEXTOPEN, TEXTCLOSE
MODIFICATION HISTORY
Written, K. Venkatakrishna, ST Systems Corp, August 1991
Work for IRAF V2.11 format   W. Landsman   November 1997
Assume since V5.5 use file_search W. Landsman   Sep 2006