Example of Using EXTERNAL for User-Defined Function

ID: Q50401

4.00 4.01 4.10 5.00 5.10 1.00 1.00a | 4.10 5.00 5.10 | 1.00 4.00

MS-DOS                              | OS/2           | WINDOWS NT

The information in this article applies to:

Microsoft FORTRAN for MS-DOS versions 4.0, 4.01, 4.1, 5.0, 5.1
Microsoft FORTRAN for OS/2, versions 4.1, 5.0, 5.1
Microsoft FORTRAN PowerStation for MS-DOS, versions 1.0 and 1.0a
Microsoft FORTRAN PowerStation 32 for Windows NT, version 1.0 and 4.0

SUMMARY

In a FORTRAN application, the EXTERNAL statement specifies that a user-defined name is a subroutine or function that can be used as a formal argument. In addition, an application can use the EXTERNAL statement to replace an intrinsic function with a user-defined function of the same name.

The following code example demonstrates using the EXTERNAL command to specify a user-defined function in a FORTRAN application.

Sample Code

C Compile options needed: None

      FUNCTION FN (X)
        REAL FN, X
        FN = X
      END

      SUBROUTINE S2 (F, X, Y)
        REAL F, X, Y
        X = F(Y)
      END

      REAL Y, Z, FN
      EXTERNAL FN
      Z = 10.0
      CALL S2(FN, Y, Z)
      WRITE (*, *) Y
      END

Additional reference words: kbinf 1.00 4.00 4.01 4.10 5.00 5.10 KBCategory: KBSubcategory: FORTLngIss

Keywords          : kbcode kbFortranPS kbLangFortran 
Version           : 4.00 4.01 4.10 5.00 5.10 1.00 1.
Platform          : MS-DOS NT OS/2 WINDOWS

Last Reviewed: May 23, 1998