diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 17:29:32 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 17:29:32 +0000 |
| commit | 646423ef89c9baa24b6aa08007a28dcc68f52e1e (patch) | |
| tree | 6611e68e043d94d02b3b9ca51677fd570a1396d2 /src/linear_extrap_one_bndry.F | |
| parent | f55c6c82e0d2c78f28486b2c306b20cc064daf8a (diff) | |
Add an option to #ifdef-out the only Fortran 90 code in this thorn
(the "arbitrary slice" option), allowing this thorn to be compiled
with only C and Fortran 77 compilers (i.e. with no Fortran 90 compiler).
n.b. This commit only adds an *option* to #ifdef-out the Fortran 90 code;
by default the Fortran 90 code is compiled as usual.
Modified Files:
doc/documentation.tex src/linear_extrap_one_bndry.F
src/slice_data.F src/slice_evolve.F src/slice_initialize.F
src/include/README
Added Files:
src/include/Exact.inc
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@142 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/linear_extrap_one_bndry.F')
| -rw-r--r-- | src/linear_extrap_one_bndry.F | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/linear_extrap_one_bndry.F b/src/linear_extrap_one_bndry.F index e10e770..f5ba75b 100644 --- a/src/linear_extrap_one_bndry.F +++ b/src/linear_extrap_one_bndry.F @@ -4,7 +4,10 @@ C $Header$ #include "cctk.h" #include "cctk_Arguments.h" +#include "Exact.inc" +c #define-ing the symbol EXACT_NO_F90 will turn this file into a no-op +#ifndef EXACT_NO_F90 subroutine Exact__linear_extrap_one_bndry(CCTK_ARGUMENTS,var) implicit none @@ -142,3 +145,4 @@ C 8 corners. return end +#endif |