Previous: inqmsz Up: ../plot79_i.html Next: inqnpl
INTEGER FUNCTION INQNPG (PGNAME,MAXCHR)
C$ (Name of Program)
C$ Return the name of the currently running program 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$ PGNAME(*)......INTEGER array which on return will contain
C$ the program name as a packed Hollerith
C$ string.
C$ MAXCHR.........Maximum number of CHARACTERS that will fit
C$ in PGNAME(*) as a packed Hollerith string.
C$ This value can be computed as
C$ I1MACH(6)*(number of INTEGER words in
C$ PGNAME(*)), 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 PGNAME(*) will be filled
C$ with blanks. If the function value is MAXCHR+1, then only
C$ MAXCHR characters where actually returned in PGNAME(*), 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)