diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-10-29 22:59:56 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-10-29 22:59:56 +0000 |
| commit | fc43dd065267c246bd610ca477883129ccca9d83 (patch) | |
| tree | fd26cdeff980c4719c199a137c72ec0a9bc724f8 | |
| parent | c8b195ce85faa2480aae903f4f05bc528ad48603 (diff) | |
Getting EHFinder up to date with the recent changes in function aliasing
for fortran.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@160 2a26948c-0e4f-0410-aee8-f1d3e353619c
| -rw-r--r-- | src/EHFinder_Check.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_FindSurface.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_Generator_Sources.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_Generator_Sources2.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_Init.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_Integrate.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_ParamCheck.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_ReInitialize.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_ReadData.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_SetMask.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_SetSym.F90 | 1 | ||||
| -rw-r--r-- | src/EHFinder_Sources.F90 | 1 |
12 files changed, 12 insertions, 0 deletions
diff --git a/src/EHFinder_Check.F90 b/src/EHFinder_Check.F90 index 0e5e021..81d3413 100644 --- a/src/EHFinder_Check.F90 +++ b/src/EHFinder_Check.F90 @@ -5,6 +5,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_ReInitialize_Check(CCTK_ARGUMENTS) diff --git a/src/EHFinder_FindSurface.F90 b/src/EHFinder_FindSurface.F90 index 0090a49..63981bf 100644 --- a/src/EHFinder_FindSurface.F90 +++ b/src/EHFinder_FindSurface.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) diff --git a/src/EHFinder_Generator_Sources.F90 b/src/EHFinder_Generator_Sources.F90 index c50ee51..984d80f 100644 --- a/src/EHFinder_Generator_Sources.F90 +++ b/src/EHFinder_Generator_Sources.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_Generator_Sources(CCTK_ARGUMENTS) diff --git a/src/EHFinder_Generator_Sources2.F90 b/src/EHFinder_Generator_Sources2.F90 index 7f36c05..d0fd6aa 100644 --- a/src/EHFinder_Generator_Sources2.F90 +++ b/src/EHFinder_Generator_Sources2.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_Generator_Sources2(CCTK_ARGUMENTS) diff --git a/src/EHFinder_Init.F90 b/src/EHFinder_Init.F90 index 32c50a4..9238b99 100644 --- a/src/EHFinder_Init.F90 +++ b/src/EHFinder_Init.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_Init_F(CCTK_ARGUMENTS) diff --git a/src/EHFinder_Integrate.F90 b/src/EHFinder_Integrate.F90 index b8b8fcb..0aca34c 100644 --- a/src/EHFinder_Integrate.F90 +++ b/src/EHFinder_Integrate.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_FindSurfaceElement(CCTK_ARGUMENTS) diff --git a/src/EHFinder_ParamCheck.F90 b/src/EHFinder_ParamCheck.F90 index c2352db..89e0b5a 100644 --- a/src/EHFinder_ParamCheck.F90 +++ b/src/EHFinder_ParamCheck.F90 @@ -11,6 +11,7 @@ #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" +#include "cctk_Functions.h" subroutine EHFinder_ParamCheck(CCTK_ARGUMENTS) diff --git a/src/EHFinder_ReInitialize.F90 b/src/EHFinder_ReInitialize.F90 index 7f53df7..4e23b25 100644 --- a/src/EHFinder_ReInitialize.F90 +++ b/src/EHFinder_ReInitialize.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" ! Control routine for re-initialization of the level set function. diff --git a/src/EHFinder_ReadData.F90 b/src/EHFinder_ReadData.F90 index 0185f5b..23357d7 100644 --- a/src/EHFinder_ReadData.F90 +++ b/src/EHFinder_ReadData.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" !This routine reads in the metric (from ADMBase). subroutine EHFinder_Read_Metric(CCTK_ARGUMENTS) diff --git a/src/EHFinder_SetMask.F90 b/src/EHFinder_SetMask.F90 index eb13858..a068e4a 100644 --- a/src/EHFinder_SetMask.F90 +++ b/src/EHFinder_SetMask.F90 @@ -15,6 +15,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" ! This routine is called only once to initialise the mask at the physical ! outer boundaries. The value of the mask in these points should never diff --git a/src/EHFinder_SetSym.F90 b/src/EHFinder_SetSym.F90 index 14592e6..0a734b0 100644 --- a/src/EHFinder_SetSym.F90 +++ b/src/EHFinder_SetSym.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" +#include "cctk_Functions.h" subroutine EHFinder_SetSym(CCTK_ARGUMENTS) diff --git a/src/EHFinder_Sources.F90 b/src/EHFinder_Sources.F90 index 6e0b0dd..86a77ed 100644 --- a/src/EHFinder_Sources.F90 +++ b/src/EHFinder_Sources.F90 @@ -4,6 +4,7 @@ #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" subroutine EHFinder_Sources(CCTK_ARGUMENTS) |