diff options
| author | schnetter <> | 2003-10-27 14:31:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2003-10-27 14:31:00 +0000 |
| commit | 656b9c64b2ce01a5d40bc0a61a30ec362784cf68 (patch) | |
| tree | 91e5bd082528c31fa9583eb937588e2cddb1b6ee /CarpetExtra/IDScalarWave | |
| parent | d224598c9fd5042022184215655ece15d2ee0a9a (diff) | |
Change include mechanism for aliased functions in Fortran. One now has to
Change include mechanism for aliased functions in Fortran. One now has to
#include "cctk_Functions.h" and then use the macro
DECLARE_CCTK_FUNCTIONS.
darcs-hash:20031027143140-07bb3-c89b45361b934b875cad21d4f74b278d9eacdd46.gz
Diffstat (limited to 'CarpetExtra/IDScalarWave')
| -rw-r--r-- | CarpetExtra/IDScalarWave/src/CheckParameters.F77 | 3 | ||||
| -rw-r--r-- | CarpetExtra/IDScalarWave/src/InitialData.F77 | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/CarpetExtra/IDScalarWave/src/CheckParameters.F77 b/CarpetExtra/IDScalarWave/src/CheckParameters.F77 index cf55fd742..f711b7ab5 100644 --- a/CarpetExtra/IDScalarWave/src/CheckParameters.F77 +++ b/CarpetExtra/IDScalarWave/src/CheckParameters.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/CheckParameters.F77,v 1.3 2001/12/14 18:00:01 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/CheckParameters.F77,v 1.4 2003/10/27 15:31:40 schnetter Exp $ /*@@ @file CheckParameters.F77 @@ -13,6 +13,7 @@ c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/Check #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" /*@@ diff --git a/CarpetExtra/IDScalarWave/src/InitialData.F77 b/CarpetExtra/IDScalarWave/src/InitialData.F77 index 8f69823c1..7c1a22a3c 100644 --- a/CarpetExtra/IDScalarWave/src/InitialData.F77 +++ b/CarpetExtra/IDScalarWave/src/InitialData.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.12 2002/06/05 21:03:01 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.13 2003/10/27 15:31:40 schnetter Exp $ /*@@ @file InitialData.F77 @@ -13,6 +13,7 @@ c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/Initi #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" /*@@ |