Previous: iopini Up: ../plot79_i.html Next: iopopf

IOPNAM

       SUBROUTINE  IOPNAM (UNITNO,FNAME,MAXFNM,LENFNM)
 C$    (File Name)
 C$    Given an open FORTRAN unit number, return the corresponding
 C$    file name, if available.  The arguments are:
 C$
 C$    UNITNO.........FORTRAN unit number.
 C$    FNAME(*).......Array to contain the file name string as
 C$                   unpacked A1-format characters.
 C$    MAXFNM.........Dimension of FNAME(*).
 C$    LENFNM.........Number of characters  returned in  FNAME(*).
 C$                   This will be 0  if the name is  unavailable,
 C$                   or the file is not open.  If LENFNM  exceeds
 C$                   MAXFNM,  FNAME(*)  is  too  small  and  only
 C$                   MAXFNM characters have actually been stored.
 C$    (04-DEC-84)