From a2508f3d268c2abf4fab3eeb6e553508d32a0436 Mon Sep 17 00:00:00 2001 From: rhaas Date: Mon, 11 Feb 2013 16:30:06 +0000 Subject: * add option to reconstruct temperature to GRHydro This does not yet work with the MHD part of the code, but Philipp is going to change this. * Improve TOVSolverHot; in particular, give functions unique names to avoid duplicate symbols with TOVSolverC From: Christian Ott git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@473 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/GRHydro_Eigenproblem.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GRHydro_Eigenproblem.F90') diff --git a/src/GRHydro_Eigenproblem.F90 b/src/GRHydro_Eigenproblem.F90 index 69a6232..1a69403 100644 --- a/src/GRHydro_Eigenproblem.F90 +++ b/src/GRHydro_Eigenproblem.F90 @@ -129,7 +129,7 @@ subroutine eigenvalues(handle,rho,velx,vely,velz,eps, & end subroutine eigenvalues -subroutine eigenvalues_hot(handle,ii,jj,kk,rho,velx,vely,velz,eps, & +subroutine eigenvalues_hot(handle,keytemp,ii,jj,kk,rho,velx,vely,velz,eps, & temp,ye,w_lorentz,lam,gxx,gxy,gxz,gyy,gyz,gzz,u,alp,beta) implicit none @@ -150,7 +150,7 @@ subroutine eigenvalues_hot(handle,ii,jj,kk,rho,velx,vely,velz,eps, & ! begin EOS Omni vars integer :: n,keytemp,anyerr,keyerr(1) real*8 :: xpress,xeps - n=1;keytemp=0;anyerr=0;keyerr(1)=0 + n=1;anyerr=0;keyerr(1)=0 xpress=0.0d0;xeps=0.0d0 ! end EOS Omni vars -- cgit v1.2.3