diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Con2PrimM_fortran_interfaces.F90 (renamed from src/GRHydro_InterfacesM.h) | 2 | ||||
-rw-r--r-- | src/Con2Prim_fortran_interfaces.F90 (renamed from src/GRHydro_Interfaces.h) | 27 |
2 files changed, 6 insertions, 23 deletions
diff --git a/src/GRHydro_InterfacesM.h b/src/Con2PrimM_fortran_interfaces.F90 index 6d90adf..c9a0090 100644 --- a/src/GRHydro_InterfacesM.h +++ b/src/Con2PrimM_fortran_interfaces.F90 @@ -1,3 +1,5 @@ +#include "cctk.h" + module Con2PrimM_fortran_interfaces implicit none diff --git a/src/GRHydro_Interfaces.h b/src/Con2Prim_fortran_interfaces.F90 index 1839c3f..4f8a4bf 100644 --- a/src/GRHydro_Interfaces.h +++ b/src/Con2Prim_fortran_interfaces.F90 @@ -1,9 +1,12 @@ +#include "cctk.h" + module Con2Prim_fortran_interfaces implicit none interface - subroutine Con2Prim_pt(handle, & + subroutine Con2Prim_pt(& + handle, & dens, & sx, sy, sz, & tau, & @@ -83,25 +86,3 @@ module Con2Prim_fortran_interfaces end interface end module Con2Prim_fortran_interfaces - -module Eigenproblem_interfaces - implicit none - - interface - - subroutine eigenvalues(handle,rho,velx,vely,velz,eps,w_lorentz,& - lam,gxx,gxy,gxz,gyy,gyz,gzz,u,alp,beta) - - implicit none - - CCTK_REAL rho,velx,vely,velz,eps,w_lorentz - CCTK_REAL lam(5) - CCTK_REAL gxx,gxy,gxz,gyy,gyz,gzz - CCTK_REAL alp,beta,u - CCTK_INT handle - end subroutine - - end interface - -end module Eigenproblem_interfaces - |