diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:08 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-07-06 18:10:08 +0000 |
| commit | a040a6336c48aeec5bdce04f34cfae6333641cef (patch) | |
| tree | 3eb38f3b23911c7efceb5ec404a1544f96ef9c2e | |
| parent | 23a28d6643802dbb0aff311a5d452fb4f1acdb9f (diff) | |
GRHydro: change C2P interface
From: Christian David Ott <cott@zwicky-b.(none)>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@540 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
| -rw-r--r-- | src/Con2Prim_fortran_interfaces.F90 | 4 |
1 files changed, 3 insertions, 1 deletions
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 |