topic Re: Defines and FPP in Software Archive

Defines and FPP

Intel_C_Intel — Wed, 12 Dec 2001 05:46:35 GMT

Is there a way to do text substitution similar to a #define in C++? For example in C++,
#define somevar someothervar
replaces all instances of somevar with the string someothervar. Trying the same thing in Fortran seems to have no effect.
The documentation for FPP says ?FPP is a modified version of the ANSI C preprocessor and supports ? #define , #elif, #else, ??. Is preprocessor text substitution possible in Fortran?

Re: Defines and FPP

Steven_L_Intel1 — Wed, 12 Dec 2001 06:05:52 GMT

In the Fortran Project Options, change /fpp to /fpp:"/m" to enable macro substitution.

Steve

Re: Defines and FPP

Intel_C_Intel — Wed, 12 Dec 2001 06:36:40 GMT

Thanks Steve. That works well in the source file. It doesn't work if the #define occurs in an included file. Is this supported?

Re: Defines and FPP

Steven_L_Intel1 — Wed, 12 Dec 2001 08:01:24 GMT

It is if you use #include. fpp doesn't process Fortran INCLUDE.

Steve

Re: Defines and FPP

Intel_C_Intel — Thu, 13 Dec 2001 08:18:30 GMT

Thanks Steve. This works well until you have an array index, e.g.:
type(sometype) somevar
#define myindex somevar.myindex

integer someArray(5), i
...
myindex = 5
i = someArray(myindex)

The first instance of myindex is substitued nicely, but the second instance (used as the index of someArray) doesn't get substituted.
Any way to do this? The command line help for fpp doesn't seem to mention anything.

Thanks,
Brad

Re: Defines and FPP

Steven_L_Intel1 — Thu, 13 Dec 2001 08:41:28 GMT

Please send an example to vf-support@compaq.com - our fpp expert (not me!) will look at it.

Steve