aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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
-