diff options
author | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2007-05-31 01:40:27 +0000 |
---|---|---|
committer | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2007-05-31 01:40:27 +0000 |
commit | a099d95e675126e2849dd46f806453a6c1e54e69 (patch) | |
tree | b47c5805adbfe635ac3fb8d996a555d07035f1b0 | |
parent | cd483db4b2580d0c7ac875ce2d176bd6af993f37 (diff) |
Convert integers to CCTK_INT when calling Boundary_SelectGroupForBC.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@127 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
-rw-r--r-- | src/ADMConstraints.F | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 36308c5..803d2d8 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -283,25 +283,28 @@ c = - (T_{i0} - beta^j T_{ij})/alpha DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS + CCTK_INT, parameter :: izero = 0 + integer, parameter :: ik = kind (izero) + c Return code from Cactus sync routine and boundary conditions. integer ierr c Apply flat boundary conditions at outer boundaries. - if (CCTK_Equals(bound,"flat") == 1) then - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + if (CCTK_EQUALS(bound,"flat")) then + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::hamiltonian", "Flat") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::normalized_hamiltonian", "Flat") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::momentum", "Flat") else - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::hamiltonian", "None") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::normalized_hamiltonian", "None") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectGroupForBC(cctkGH, int(CCTK_ALL_FACES,ik), 1_ik, -1_ik, $ "admconstraints::momentum", "None") end if |