Programming Reference Manual - Public Support Login - Unisys

Using PCFP with FORTRAN
Your FORTRAN program must include one of these procedures for each different PCFP
function that it calls.
• FP$RTN$yyyy
This generic procedure name represents the procedures describing the repeating
information entries returned by PCFP functions. There is a procedure for each
unique entry, and, in cases where both a long and a short form of the entry can be
returned, a procedure exists for each case. The names of the procedures for the
long and short forms of the return entries are identical, except for the last character
of the name. The last character is either the letter s, which designates the short
form of the entry, or the letter l, which designates the long form of the entry. Your
FORTRAN program must include the appropriate procedure for each PCFP function
that returns repeating information.
The following procedures must be included in a FORTRAN program that calls the
FP_ACQ_ELT_INFO function of PCFP.
INCLUDE FP$DEFS
INCLUDE FP$ERRORS
INCLUDE FP$SFILE$ID
INCLUDE FP$ACQELTINF
INCLUDE FP$RTN$ELTL
Note that the last INCLUDE statement brings in the long form of the procedure that
defines the repeating information returned by this function.
13.2. Naming Conventions
For FORTRAN, the names of all constants, packets, and items within the packets begin
with the characters FP_. If you avoid defining names beginning with these characters in
your programs that call PCFP, you will have no conflicts between the names that you
define and the names defined for PCFP. As with all names in FORTRAN, there is no
distinction between uppercase and lowercase letters.
13.2.1. Function Names
The function names used in FORTRAN programs are identical to the function names
given in Sections 3 – 10, except that the FORTRAN function names are all prefixed with
the character sequence FP_. The FORTRAN procedures supplied with PCFP and the
examples in this section follow the convention that function names appear in all
uppercase letters.
7830 9796–013 13–3