From fc43dd065267c246bd610ca477883129ccca9d83 Mon Sep 17 00:00:00 2001 From: diener Date: Wed, 29 Oct 2003 22:59:56 +0000 Subject: 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 --- src/EHFinder_Check.F90 | 1 + src/EHFinder_FindSurface.F90 | 1 + src/EHFinder_Generator_Sources.F90 | 1 + src/EHFinder_Generator_Sources2.F90 | 1 + src/EHFinder_Init.F90 | 1 + src/EHFinder_Integrate.F90 | 1 + src/EHFinder_ParamCheck.F90 | 1 + src/EHFinder_ReInitialize.F90 | 1 + src/EHFinder_ReadData.F90 | 1 + src/EHFinder_SetMask.F90 | 1 + src/EHFinder_SetSym.F90 | 1 + src/EHFinder_Sources.F90 | 1 + 12 files changed, 12 insertions(+) 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) -- cgit v1.2.3