HP Fortran Programmer's Reference

BLAS and libU77 libraries
libU77 routines
Table 12-3 libU77 routines (Continued)
Name Description and signature
FSEEK Repositions a file specified by an HP Fortran logical unit.
614
INTEGER FUNCTION FSEEK (lunit, offset, from)
INTEGER :: lunit, offset, from
FSTAT Returns detailed information about a file by logical unit number.
INTEGER FUNCTION FSTAT (lunit, statb)
INTEGER :: lunit, statb(12)
FTELL Returns the current position of the file associated with the specified logical
unit.
INTEGER FUNCTION FTELL (lunit)
INTEGER :: lunit
GERROR Returns the system error message to string; available as a subroutine:
CHARACTER(LEN=*) :: string
SUBROUTINE GERROR (string)
And as a function:
CHARACTER(LEN=*) FUNCTION GERROR()
GETARG Returns command-line arguments.
SUBROUTINE GETARG (k, arg)
INTEGER :: k
CHARACTER(LEN=*) :: arg
GETC Retrieves a character from HP Fortran logical unit 5.
INTEGER FUNCTION GETC (char)
CHARACTER char
GETCWD Retrieves the pathname of the current working directory.
INTEGER FUNCTION GETCWD (dir_name)
CHARACTER(LEN=*) :: dir_name
GETENV Retrieves the value of an environment variable.
SUBROUTINE GETENV (ename, evalue)
CHARACTER(LEN=*) :: ename, evalue
GETGID Retrieves the group ID of the user of the process.
INTEGER FUNCTION GETGID()
Chapter 12