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 /src | |
| parent | d5edf122962d1c09b52031aeca9f45b00711480f (diff) | |
Use Fortran interfaces.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@12 f47d718b-0e4f-0410-8445-f2f96c8ccefb
Diffstat (limited to 'src')
| -rw-r--r-- | src/CalcK.F90 | 1 | ||||
| -rw-r--r-- | src/copy.F90 | 3 |
2 files changed, 4 insertions, 0 deletions
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 |