Previous: inqnpg Up: ../plot79_i.html Next: inqpa
INTEGER FUNCTION INQNPL (PFNAME,MAXCHR)
C$ (Name of Plot File)
C$ Return the name of the currently open plot file as a
C$ packed character string, with the function value on return
C$ set to the length of the returned string. The arguments
C$ are:
C$
C$ PFNAME(*)......INTEGER array which on return will contain
C$ the plot file name as a packed Hollerith
C$ string.
C$ MAXCHR.........Maximum number of CHARACTERS that will fit
C$ in PFNAME(*) as a packed Hollerith string.
C$ This value can be computed as
C$ I1MACH(6)*(number of INTEGER words in
C$ PFNAME(*)), independent of the host
C$ computer.
C$
C$ If the function value is 0 on return, no name could be
C$ found in this implementation, and PFNAME(*) will be filled
C$ with blanks. If the function value is MAXCHR+1, then only
C$ MAXCHR characters where actually returned in PFNAME(*), but
C$ more were available; in such a case, truncation has
C$ occurred on the RIGHT, as it would with a FORTRAN 77
C$ CHARACTER assignment.
C$ (09-SEP-84)