diff options
author | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-05-05 02:11:36 +0000 |
---|---|---|
committer | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-05-05 02:11:36 +0000 |
commit | fe924cbdcc5a9bccac9278f11f52c364a69763f2 (patch) | |
tree | 04cce8fdd5f475b67fdbab654dbcf5e57fcb8ecd | |
parent | d5edf122962d1c09b52031aeca9f45b00711480f (diff) |
Use Fortran interfaces.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@12 f47d718b-0e4f-0410-8445-f2f96c8ccefb
-rw-r--r-- | par/calck.par | 7 | ||||
-rw-r--r-- | par/copy_to_next.par | 4 | ||||
-rw-r--r-- | par/copy_to_prev.par | 4 | ||||
-rw-r--r-- | par/ih.par | 7 | ||||
-rw-r--r-- | src/CalcK.F90 | 1 | ||||
-rw-r--r-- | src/copy.F90 | 3 |
6 files changed, 20 insertions, 6 deletions
diff --git a/par/calck.par b/par/calck.par index c472436..155d643 100644 --- a/par/calck.par +++ b/par/calck.par @@ -45,8 +45,11 @@ ActiveThorns = "ADMBase ADMCoupling ADMMacros CoordGauge SpaceMask StaticConform ADMBase::metric_type = "static conformal" StaticConformal::conformal_storage = "factor" -ADMBase::initial_data = unset -ADMBase::initial_shift = zero +ActiveThorns = "IDFileADM" + +ADMBase::initial_data = "read from file" +ADMBase::initial_lapse = "read from file" +ADMBase::initial_shift = "read from file" ActiveThorns = "Time" Time::dtfac = 0.25 diff --git a/par/copy_to_next.par b/par/copy_to_next.par index fb9d042..c71bde4 100644 --- a/par/copy_to_next.par +++ b/par/copy_to_next.par @@ -36,7 +36,9 @@ ActiveThorns = "ADMBase ADMCoupling ADMMacros CoordGauge SpaceMask StaticConform ADMBase::metric_type = "static conformal" StaticConformal::conformal_storage = "factor" -ADMBase::initial_data = unset +ActiveThorns = "IDFileADM" + +ADMBase::initial_data = "read from file" ADMBase::initial_shift = zero ActiveThorns = "CalcK" diff --git a/par/copy_to_prev.par b/par/copy_to_prev.par index 73b2c10..d97c01b 100644 --- a/par/copy_to_prev.par +++ b/par/copy_to_prev.par @@ -36,7 +36,9 @@ ActiveThorns = "ADMBase ADMCoupling ADMMacros CoordGauge SpaceMask StaticConform ADMBase::metric_type = "static conformal" StaticConformal::conformal_storage = "factor" -ADMBase::initial_data = unset +ActiveThorns = "IDFileADM" + +ADMBase::initial_data = "read from file" ADMBase::initial_shift = zero ActiveThorns = "CalcK" @@ -55,8 +55,11 @@ ActiveThorns = "ADMBase ADMCoupling ADMMacros CoordGauge SpaceMask StaticConform ADMBase::metric_type = "static conformal" StaticConformal::conformal_storage = "factor" -ADMBase::initial_data = unset -ADMBase::initial_shift = zero +ActiveThorns = "IDFileADM" + +ADMBase::initial_data = "read from file" +ADMBase::initial_lapse = "read from file" +ADMBase::initial_shift = "read from file" ActiveThorns = "AHFinderDirect" AHFinderDirect::N_horizons = 2 diff --git a/src/CalcK.F90 b/src/CalcK.F90 index 7a64d5a..b753360 100644 --- a/src/CalcK.F90 +++ b/src/CalcK.F90 @@ -6,6 +6,7 @@ #include "cctk_Parameters.h" subroutine CalcK (CCTK_ARGUMENTS) + use cctk implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS diff --git a/src/copy.F90 b/src/copy.F90 index 78ea694..ddbc3bb 100644 --- a/src/copy.F90 +++ b/src/copy.F90 @@ -6,6 +6,7 @@ #include "cctk_Parameters.h" subroutine CalcK_copy_to_prev (CCTK_ARGUMENTS) + use cctk implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS @@ -20,6 +21,7 @@ subroutine CalcK_copy_to_prev (CCTK_ARGUMENTS) end subroutine CalcK_copy_to_prev subroutine CalcK_copy_to_prev2 (CCTK_ARGUMENTS) + use cctk implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS @@ -34,6 +36,7 @@ subroutine CalcK_copy_to_prev2 (CCTK_ARGUMENTS) end subroutine CalcK_copy_to_prev2 subroutine CalcK_copy_to_next (CCTK_ARGUMENTS) + use cctk implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS |