HP Fortran Programmer's Reference (September 2007)

BLAS and libU77 libraries
libU77 routines
Chapter 12650
FSEEK Repositions a file specified by an HP Fortran logical unit.
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()
Table 12-3 libU77 routines (Continued)
Name Description and signature