HP Fortran Programmer's Reference

Table 12-3 libU77 routines (Continued)
Name Description and signature
NUM_
THREADS
BLAS and libU77 libraries
libU77 routines
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 Allowsyoutochangetheactionforasignal.
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
Chapter 12 617