The following examples present the FORTRAN77 versions of the library program and client program.

The following FORTRAN77 program, compiled as MATHINTRINSICS, creates a library.

    BLOCK GLOBALS
FILE  6(KIND=“PRINTER”)
         EXPORT (SINE=“SIN”,COSINE)
      END
      REAL FUNCTION SINE(X)
C*         PERFORM SINE CALCULATION...
           SINE=SIN(X)
      END
      REAL FUNCTION COSINE(X)
C*         PERFORM COSINE CALCULATION...
           COSINE=COS(X)
      END
C*    MAIN PROGRAM
           WRITE(6,*)SINE(X),COSINE(X)
           CALL FREEZE(“TEMPORARY”)
      END

The following FORTRAN77 program invokes the FORTRAN77 library MATHINTRINSICS previously described:

    BLOCK GLOBALS
FILE  5(KIND=“REMOTE”)
FILE  6(KIND=“PRINTER”)
           LIBRARY LIB1(TITLE=“MATHINTRINSICS”,
*                       INTNAME=“MATHINTRINSICS”)
      END
      REAL FUNCTION SIN(X)
           REAL X
           IN LIBRARY LIB1
      END
      REAL FUNCTION COS(X)
           REAL X
           IN LIBRARY LIB1(ACTUALNAME=“COSINE”)
      END
      PROGRAM MAIN_PROGRAM
           EXTERNAL SIN, COS
           READ(5,*)X
           WRITE(6,*)SIN(X),COS(X)
      END