HP Fortran Programmer's Reference (September 2007)

BLAS and libU77 libraries
libU77 routines
Chapter 12 653
NUM_
THREADS
Returns the total number of threads that the process creates at initiation,
regardless of how many are idle or active.
INTEGER FUNCTION NUM_THREADS()
PERROR Retrieves system error messages. PERROR writes a message to HP Fortran
logical unit 7 for the last detected system error.
SUBROUTINE PERROR ( string )
CHARACTER(LEN=*) :: string
PUTC Writes a character to the file specified by HP Fortran logical unit number 6,
bypassing normal HP Fortran I/O.
INTEGER FUNCTION PUTC ( char )
CHARACTER char
QSORT Uses the quick-sort algorithm to sort the elements in a one-dimensional
array.
SUBROUTINE QSORT ( array , len , isize , compar )
INTEGER :: len , isize
EXTERNAL compar
INTEGER(2) compar
RENAME Renames a file to the specified new name.
INTEGER FUNCTION RENAME ( from , to )
CHARACTER(LEN=*) :: from , to
SIGNAL Allows you to change the action for a signal.
INTEGER FUNCTION SIGNAL ( signum , proc , flag )
INTEGER :: signum , flag
EXTERNAL proc
SLEEP Suspends the execution of a process for a specified interval.
SUBROUTINE SLEEP ( itime )
INTEGER :: itime
Table 12-3 libU77 routines (Continued)
Name Description and signature