From 924e2a974bae9731d9f1f339f0e4e9ff5a8f7d54 Mon Sep 17 00:00:00 2001 From: rhaas Date: Fri, 17 May 2013 16:16:49 +0000 Subject: GRHydro: add missing files git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@522 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/Con2PrimM_fortran_interfaces.F90 | 189 +++++++++++++++++++++++++++++++++++ src/Con2Prim_fortran_interfaces.F90 | 88 ++++++++++++++++ src/GRHydro_Interfaces.h | 107 -------------------- src/GRHydro_InterfacesM.h | 187 ---------------------------------- 4 files changed, 277 insertions(+), 294 deletions(-) create mode 100644 src/Con2PrimM_fortran_interfaces.F90 create mode 100644 src/Con2Prim_fortran_interfaces.F90 delete mode 100644 src/GRHydro_Interfaces.h delete mode 100644 src/GRHydro_InterfacesM.h (limited to 'src') diff --git a/src/Con2PrimM_fortran_interfaces.F90 b/src/Con2PrimM_fortran_interfaces.F90 new file mode 100644 index 0000000..c9a0090 --- /dev/null +++ b/src/Con2PrimM_fortran_interfaces.F90 @@ -0,0 +1,189 @@ +#include "cctk.h" + +module Con2PrimM_fortran_interfaces + implicit none + + interface + subroutine GRHydro_Con2PrimM_ptold( handle, & + local_gam, dens, & + sx, sy, sz, & + tau, & + Bconsx, Bconsy, Bconsz, & + rho, & + velx, vely, velz,& + epsilon, pressure,& + Bx, By, Bz, & + bsq,& + w_lorentz, & + gxx, gxy, gxz, & + gyy, gyz, gzz, & + uxx, uxy, uxz,& + uyy, uyz, uzz,& + det,& + epsnegative, & + retval) + + implicit none + CCTK_INT handle + CCTK_REAL local_gam + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL tau + CCTK_REAL Bconsx, Bconsy, Bconsz + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq + CCTK_REAL w_lorentz + CCTK_REAL gxx, gxy, gxz + CCTK_REAL gyy, gyz, gzz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_INT epsnegative + CCTK_REAL retval + end subroutine GRHydro_Con2PrimM_ptold + + subroutine GRHydro_Con2PrimM_pt2( handle, keytemp, eos_prec, prec, & + local_gam, dens, & + sx, sy, sz, & + tau, & + Bconsx, Bconsy, Bconsz, & + xye, xtemp, & + rho, & + velx, vely, velz,& + epsilon, pressure,& + Bx, By, Bz, & + bsq,& + w_lorentz, & + gxx, gxy, gxz, & + gyy, gyz, gzz, & + uxx, uxy, uxz,& + uyy, uyz, uzz,& + det,& + epsnegative, & + retval) + + implicit none + CCTK_INT handle + CCTK_INT keytemp + CCTK_REAL eos_prec + CCTK_REAL prec + CCTK_REAL local_gam + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL tau + CCTK_REAL Bconsx, Bconsy, Bconsz + CCTK_REAL xye + CCTK_REAL xtemp + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq + CCTK_REAL w_lorentz + CCTK_REAL gxx, gxy, gxz + CCTK_REAL gyy, gyz, gzz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_INT epsnegative + CCTK_REAL retval + end subroutine GRHydro_Con2PrimM_pt2 + + + subroutine GRHydro_Con2PrimM_pt( handle, GRHydro_reflevel, i, j, k, x, y, z, keytemp, eos_prec, prec, & + local_gam, dens, & + sx, sy, sz, & + tau, & + Bconsx, Bconsy, Bconsz, & + xye, xtemp, & + rho, & + velx, vely, velz,& + epsilon, pressure,& + Bx, By, Bz, & + bsq,& + w_lorentz, & + gxx, gxy, gxz, & + gyy, gyz, gzz, & + uxx, uxy, uxz,& + uyy, uyz, uzz,& + det,& + epsnegative, & + retval) + + implicit none + CCTK_INT handle + CCTK_INT GRHydro_reflevel + CCTK_INT i, j, k + CCTK_REAL x, y, z + CCTK_INT keytemp + CCTK_REAL eos_prec + CCTK_REAL prec + CCTK_REAL local_gam + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL tau + CCTK_REAL Bconsx, Bconsy, Bconsz + CCTK_REAL xye + CCTK_REAL xtemp + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq + CCTK_REAL w_lorentz + CCTK_REAL gxx, gxy, gxz + CCTK_REAL gyy, gyz, gzz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_INT epsnegative + CCTK_REAL retval + end subroutine GRHydro_Con2PrimM_pt + + subroutine GRHydro_Con2PrimM_Polytype_pt( handle, local_gam,& + dens, & + sx, sy, sz, & + sc, & + Bconsx, Bconsy, Bconsz, & + rho, & + velx, vely, velz,& + epsilon, pressure,& + Bx, By, Bz, & + bsq,& + w_lorentz, & + gxx, gxy, gxz, & + gyy, gyz, gzz, & + uxx, uxy, uxz,& + uyy, uyz, uzz,& + det,& + epsnegative, & + retval) + + implicit none + CCTK_INT handle + CCTK_REAL local_gam + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL sc + CCTK_REAL Bconsx, Bconsy, Bconsz + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq + CCTK_REAL w_lorentz + CCTK_REAL gxx, gxy, gxz + CCTK_REAL gyy, gyz, gzz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_INT epsnegative + CCTK_REAL retval + end subroutine GRHydro_Con2PrimM_Polytype_pt + + end interface + +end module Con2PrimM_fortran_interfaces diff --git a/src/Con2Prim_fortran_interfaces.F90 b/src/Con2Prim_fortran_interfaces.F90 new file mode 100644 index 0000000..4f8a4bf --- /dev/null +++ b/src/Con2Prim_fortran_interfaces.F90 @@ -0,0 +1,88 @@ +#include "cctk.h" + +module Con2Prim_fortran_interfaces + implicit none + + interface + + subroutine Con2Prim_pt(& + handle, & + dens, & + sx, sy, sz, & + tau, & + rho, & + velx, vely, velz, & + epsilon, press, & + w_lorentz, & + uxx, uxy, uxz, & + uyy, uyz, uzz, & + det, & + x, y, z, r, & + epsnegative, & + GRHydro_rho_min, pmin, epsmin, & + GRHydro_reflevel, GRHydro_C2P_failed) + + implicit none + CCTK_INT handle + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL tau + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL epsilon, press + CCTK_REAL w_lorentz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_REAL x, y, z, r + logical epsnegative + CCTK_REAL GRHydro_rho_min, pmin, epsmin + CCTK_INT GRHydro_reflevel + CCTK_REAL GRHydro_C2P_failed + end subroutine Con2Prim_pt + + subroutine Con2Prim_ptPolytype(GRHydro_polytrope_handle, & + dens, & + sx, sy, sz, & + tau, & + rho, & + velx, vely, velz, & + eps, press, & + w_lorentz, & + uxx, uxy, uxz, uyy, uyz, uzz, & + det, & + x, y, z, r, & + GRHydro_rho_min, & + GRHydro_reflevel, GRHydro_C2P_failed) + + implicit none + CCTK_INT GRHydro_polytrope_handle + CCTK_REAL dens + CCTK_REAL sx, sy, sz + CCTK_REAL tau + CCTK_REAL rho + CCTK_REAL velx, vely, velz + CCTK_REAL eps, press + CCTK_REAL w_lorentz + CCTK_REAL uxx, uxy, uxz + CCTK_REAL uyy, uyz, uzz + CCTK_REAL det + CCTK_REAL x, y, z, r + CCTK_REAL GRHydro_rho_min + CCTK_INT GRHydro_reflevel + CCTK_REAL GRHydro_C2P_failed + end subroutine Con2Prim_ptPolytype + + subroutine Con2Prim_ptTracer(cons_tracer, tracer, dens) + implicit none + CCTK_REAL cons_tracer, tracer, dens + end subroutine Con2Prim_ptTracer + + subroutine Con2Prim_ptBoundsTracer(cons_tracer, tracer, rho, one_over_w_lorentz, det) + implicit none + CCTK_REAL cons_tracer, tracer, rho, one_over_w_lorentz, det + end subroutine Con2Prim_ptBoundsTracer + + end interface + +end module Con2Prim_fortran_interfaces diff --git a/src/GRHydro_Interfaces.h b/src/GRHydro_Interfaces.h deleted file mode 100644 index 1839c3f..0000000 --- a/src/GRHydro_Interfaces.h +++ /dev/null @@ -1,107 +0,0 @@ -module Con2Prim_fortran_interfaces - implicit none - - interface - - subroutine Con2Prim_pt(handle, & - dens, & - sx, sy, sz, & - tau, & - rho, & - velx, vely, velz, & - epsilon, press, & - w_lorentz, & - uxx, uxy, uxz, & - uyy, uyz, uzz, & - det, & - x, y, z, r, & - epsnegative, & - GRHydro_rho_min, pmin, epsmin, & - GRHydro_reflevel, GRHydro_C2P_failed) - - implicit none - CCTK_INT handle - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL tau - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL epsilon, press - CCTK_REAL w_lorentz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_REAL x, y, z, r - logical epsnegative - CCTK_REAL GRHydro_rho_min, pmin, epsmin - CCTK_INT GRHydro_reflevel - CCTK_REAL GRHydro_C2P_failed - end subroutine Con2Prim_pt - - subroutine Con2Prim_ptPolytype(GRHydro_polytrope_handle, & - dens, & - sx, sy, sz, & - tau, & - rho, & - velx, vely, velz, & - eps, press, & - w_lorentz, & - uxx, uxy, uxz, uyy, uyz, uzz, & - det, & - x, y, z, r, & - GRHydro_rho_min, & - GRHydro_reflevel, GRHydro_C2P_failed) - - implicit none - CCTK_INT GRHydro_polytrope_handle - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL tau - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL eps, press - CCTK_REAL w_lorentz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_REAL x, y, z, r - CCTK_REAL GRHydro_rho_min - CCTK_INT GRHydro_reflevel - CCTK_REAL GRHydro_C2P_failed - end subroutine Con2Prim_ptPolytype - - subroutine Con2Prim_ptTracer(cons_tracer, tracer, dens) - implicit none - CCTK_REAL cons_tracer, tracer, dens - end subroutine Con2Prim_ptTracer - - subroutine Con2Prim_ptBoundsTracer(cons_tracer, tracer, rho, one_over_w_lorentz, det) - implicit none - CCTK_REAL cons_tracer, tracer, rho, one_over_w_lorentz, det - end subroutine Con2Prim_ptBoundsTracer - - 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 - diff --git a/src/GRHydro_InterfacesM.h b/src/GRHydro_InterfacesM.h deleted file mode 100644 index 6d90adf..0000000 --- a/src/GRHydro_InterfacesM.h +++ /dev/null @@ -1,187 +0,0 @@ -module Con2PrimM_fortran_interfaces - implicit none - - interface - subroutine GRHydro_Con2PrimM_ptold( handle, & - local_gam, dens, & - sx, sy, sz, & - tau, & - Bconsx, Bconsy, Bconsz, & - rho, & - velx, vely, velz,& - epsilon, pressure,& - Bx, By, Bz, & - bsq,& - w_lorentz, & - gxx, gxy, gxz, & - gyy, gyz, gzz, & - uxx, uxy, uxz,& - uyy, uyz, uzz,& - det,& - epsnegative, & - retval) - - implicit none - CCTK_INT handle - CCTK_REAL local_gam - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL tau - CCTK_REAL Bconsx, Bconsy, Bconsz - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL epsilon, pressure - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq - CCTK_REAL w_lorentz - CCTK_REAL gxx, gxy, gxz - CCTK_REAL gyy, gyz, gzz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_INT epsnegative - CCTK_REAL retval - end subroutine GRHydro_Con2PrimM_ptold - - subroutine GRHydro_Con2PrimM_pt2( handle, keytemp, eos_prec, prec, & - local_gam, dens, & - sx, sy, sz, & - tau, & - Bconsx, Bconsy, Bconsz, & - xye, xtemp, & - rho, & - velx, vely, velz,& - epsilon, pressure,& - Bx, By, Bz, & - bsq,& - w_lorentz, & - gxx, gxy, gxz, & - gyy, gyz, gzz, & - uxx, uxy, uxz,& - uyy, uyz, uzz,& - det,& - epsnegative, & - retval) - - implicit none - CCTK_INT handle - CCTK_INT keytemp - CCTK_REAL eos_prec - CCTK_REAL prec - CCTK_REAL local_gam - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL tau - CCTK_REAL Bconsx, Bconsy, Bconsz - CCTK_REAL xye - CCTK_REAL xtemp - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL epsilon, pressure - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq - CCTK_REAL w_lorentz - CCTK_REAL gxx, gxy, gxz - CCTK_REAL gyy, gyz, gzz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_INT epsnegative - CCTK_REAL retval - end subroutine GRHydro_Con2PrimM_pt2 - - - subroutine GRHydro_Con2PrimM_pt( handle, GRHydro_reflevel, i, j, k, x, y, z, keytemp, eos_prec, prec, & - local_gam, dens, & - sx, sy, sz, & - tau, & - Bconsx, Bconsy, Bconsz, & - xye, xtemp, & - rho, & - velx, vely, velz,& - epsilon, pressure,& - Bx, By, Bz, & - bsq,& - w_lorentz, & - gxx, gxy, gxz, & - gyy, gyz, gzz, & - uxx, uxy, uxz,& - uyy, uyz, uzz,& - det,& - epsnegative, & - retval) - - implicit none - CCTK_INT handle - CCTK_INT GRHydro_reflevel - CCTK_INT i, j, k - CCTK_REAL x, y, z - CCTK_INT keytemp - CCTK_REAL eos_prec - CCTK_REAL prec - CCTK_REAL local_gam - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL tau - CCTK_REAL Bconsx, Bconsy, Bconsz - CCTK_REAL xye - CCTK_REAL xtemp - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL epsilon, pressure - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq - CCTK_REAL w_lorentz - CCTK_REAL gxx, gxy, gxz - CCTK_REAL gyy, gyz, gzz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_INT epsnegative - CCTK_REAL retval - end subroutine GRHydro_Con2PrimM_pt - - subroutine GRHydro_Con2PrimM_Polytype_pt( handle, local_gam,& - dens, & - sx, sy, sz, & - sc, & - Bconsx, Bconsy, Bconsz, & - rho, & - velx, vely, velz,& - epsilon, pressure,& - Bx, By, Bz, & - bsq,& - w_lorentz, & - gxx, gxy, gxz, & - gyy, gyz, gzz, & - uxx, uxy, uxz,& - uyy, uyz, uzz,& - det,& - epsnegative, & - retval) - - implicit none - CCTK_INT handle - CCTK_REAL local_gam - CCTK_REAL dens - CCTK_REAL sx, sy, sz - CCTK_REAL sc - CCTK_REAL Bconsx, Bconsy, Bconsz - CCTK_REAL rho - CCTK_REAL velx, vely, velz - CCTK_REAL epsilon, pressure - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq - CCTK_REAL w_lorentz - CCTK_REAL gxx, gxy, gxz - CCTK_REAL gyy, gyz, gzz - CCTK_REAL uxx, uxy, uxz - CCTK_REAL uyy, uyz, uzz - CCTK_REAL det - CCTK_INT epsnegative - CCTK_REAL retval - end subroutine GRHydro_Con2PrimM_Polytype_pt - - end interface - -end module Con2PrimM_fortran_interfaces -- cgit v1.2.3