User: rhaas Date: 2013/03/27 08:46 PM
Modified: /trunk/src/ GRHydro_HLLE.F90
Log: GRHydro: convert more tabs to (8) spaces. No other changes.
From: Roland Haas rhaas@tapir.caltech.edu
File Changes:
Directory: /trunk/src/ ======================
File [modified]: GRHydro_HLLE.F90 Delta lines: +4 -4 =================================================================== --- trunk/src/GRHydro_HLLE.F90 2013-03-28 01:46:29 UTC (rev 492) +++ trunk/src/GRHydro_HLLE.F90 2013-03-28 01:46:32 UTC (rev 493) @@ -114,13 +114,13 @@ if (evolve_temper.ne.1) then
call EOS_Omni_press(GRHydro_eos_handle,keytemp,GRHydro_eos_rf_prec,n,& - rho(i,j,k),eps(i,j,k),xtemp,xye,xpress,keyerr,anyerr) + rho(i,j,k),eps(i,j,k),xtemp,xye,xpress,keyerr,anyerr)
- call EOS_Omni_DPressByDEps(GRHydro_eos_handle,keytemp,GRHydro_eos_rf_prec,n,& - rho(i,j,k),eps(i,j,k),xtemp,xye,dpdeps,keyerr,anyerr) + call EOS_Omni_DPressByDEps(GRHydro_eos_handle,keytemp,GRHydro_eos_rf_prec,n,& + rho(i,j,k),eps(i,j,k),xtemp,xye,dpdeps,keyerr,anyerr)
call EOS_Omni_DPressByDRho(GRHydro_eos_handle,keytemp,GRHydro_eos_rf_prec,n,& - rho(i,j,k),eps(i,j,k),xtemp,xye,dpdrho,keyerr,anyerr) + rho(i,j,k),eps(i,j,k),xtemp,xye,dpdrho,keyerr,anyerr)
cs2 = (dpdrho + xpress(1) * dpdeps / (rho(i,j,k)**2))/ & (1.0d0 + eps(i,j,k) + xpress(1)/rho(i,j,k))