Conditionally Compiling Metacommands in FORTRAN Code

ID: Q49466


The information in this article applies to:
  • Microsoft FORTRAN for MS-DOS, versions 5.0, 5.1
  • Microsoft FORTRAN PowerStation for MS-DOS, versions 1.0, 1.0a
  • Microsoft Fortran Powerstation 32 for Windows NT, versions 1.0, 4.0
  • Microsoft FORTRAN for OS/2, versions 5.0, 5.1


SUMMARY

You can conditionally compile metacommands in FORTRAN source code. However, you cannot use the /4cc compiler option switch to do so because the metacommand requires its dollar sign ($) in the first column of the source line while the /4cc switch requires a character specifier as the first character of the source line.

To conditionally compile code involving metacommands, use the $DEFINE metacommand or the /D compiler option switch with the $IF, $ELSEIF, $ELSE, and $ENDIF metacomands. For more information, see pages 281-284 and page 335 of the Microsoft FORTRAN "Reference" manual for versions 5.0 and 5.1 or the FORTRAN PowerStation Language Help.


MORE INFORMATION

The following code example demonstrates conditionally compiling code that includes metacommands.

Sample Code


C Compile options needed: See below

$IF DEFINED(L)
$INCLUDE 'large.inc'
$ELSE
$INCLUDE 'medium.inc'
$ENDIF 
If the line "$DEFINE L" precedes this $IF block, the compiler includes the LARGE.INC file, otherwise the compiler includes the MEDIUM.INC file. This method provides the ability to hard code conditional changes.

To choose the version to compile from the command line, specify the /D compiler option switch to define the variable used in the $IF block. The /D option switch eliminates the need for the $DEFINE metacommand. In the previous example, to include the LARGE.INC file, use a compiler command line such as the following:

   fl /DL name.ext 

Additional query words: kbinf 5.00 5.10 1.00 4.00

Keywords : kbFortranPS kbLangFortran
Version : :1.0,1.0a,4.0,5.0,5.1
Platform : MS-DOS NT OS/2 WINDOWS
Issue type :


Last Reviewed: November 3, 1999
© 2000 Microsoft Corporation. All rights reserved. Terms of Use.