Article ID: 50401
Article Last Modified on 12/1/2003
APPLIES TO
- Microsoft FORTRAN Compiler 4.0
- Microsoft FORTRAN Compiler 4.01
- Microsoft FORTRAN Compiler 4.1
- Microsoft FORTRAN Compiler 5.0
- Microsoft FORTRAN Compiler 5.1
- Microsoft FORTRAN Compiler 4.1
- Microsoft FORTRAN Compiler 5.0
- Microsoft FORTRAN Compiler 5.1
- Microsoft FORTRAN PowerStation 1.0 Standard Edition
- Microsoft Fortran PowerStation 1.0a for MS-DOS
- Microsoft FORTRAN PowerStation 32
- Microsoft FORTRAN PowerStation 32
This article was previously published under Q50401
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 query words: kbinf 1.00 4.00 4.01 4.10 5.00 5.10
Keywords: kblangfortran KB50401