From a040a6336c48aeec5bdce04f34cfae6333641cef Mon Sep 17 00:00:00 2001 From: rhaas Date: Sat, 6 Jul 2013 18:10:08 +0000 Subject: GRHydro: change C2P interface From: Christian David Ott git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@540 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/Con2Prim_fortran_interfaces.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Con2Prim_fortran_interfaces.F90 b/src/Con2Prim_fortran_interfaces.F90 index 4f8a4bf..aac868b 100644 --- a/src/Con2Prim_fortran_interfaces.F90 +++ b/src/Con2Prim_fortran_interfaces.F90 @@ -6,7 +6,8 @@ module Con2Prim_fortran_interfaces interface subroutine Con2Prim_pt(& - handle, & + cctk_iteration,ii,jj,kk,& + handle, & dens, & sx, sy, sz, & tau, & @@ -23,6 +24,7 @@ module Con2Prim_fortran_interfaces GRHydro_reflevel, GRHydro_C2P_failed) implicit none + CCTK_INT cctk_iteration, ii, jj, kk CCTK_INT handle CCTK_REAL dens CCTK_REAL sx, sy, sz -- cgit v1.2.3