HP 3000 Manuals

HP FORTRAN 77/iX Programmer's Guide

Defining System Intrinsics 

To define a system intrinsic in a FORTRAN 77 program, place the SYSTEM
INTRINSIC statement before any executable statement in each procedure or
function in which the intrinsic is used.  Alternatively, the SYSTEM
INTRINSIC directive can be used with the same result as the SYSTEM
INTRINSIC statement, except that the directive has a global effect.  The
SYSTEM INTRINSIC directive must appear before the first nondirective
statement of the program unit in which it is to start taking effect.  It
is not necessary to define how the parameters are passed because FORTRAN
77 gets this information from the SYSINTR file for system intrinsics.
For example,

     C  SYSTEM INTRINSIC directive:

     $SYSTEM INTRINSIC calendar       ! Only needs to be declared once;
                                      ! does not have to be redefined if
                                      ! subsequent functions of procedures
                                      ! call calendar.

     C  SYSTEM INTRINSIC statement:

           SYSTEM INTRINSIC calendar  ! Must be declared in each
                                      ! procedure or function
                                      ! that calendar is used.

MPE/iX 5.0 Documentation