From fe924cbdcc5a9bccac9278f11f52c364a69763f2 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb>
Date: Wed, 5 May 2004 02:11:36 +0000
Subject: Use Fortran interfaces.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@12 f47d718b-0e4f-0410-8445-f2f96c8ccefb
---
 par/calck.par        | 7 +++++--
 par/copy_to_next.par | 4 +++-
 par/copy_to_prev.par | 4 +++-
 par/ih.par           | 7 +++++--
 src/CalcK.F90        | 1 +
 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"
diff --git a/par/ih.par b/par/ih.par
index d4e1580..0e46789 100644
--- a/par/ih.par
+++ b/par/ih.par
@@ -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
-- 
cgit v1.2.3