diff options
Diffstat (limited to 'src/GRHydro_Eigenproblem_Marquina.F90')
| -rw-r--r-- | src/GRHydro_Eigenproblem_Marquina.F90 | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/src/GRHydro_Eigenproblem_Marquina.F90 b/src/GRHydro_Eigenproblem_Marquina.F90 index 79c7390..4efa494 100644 --- a/src/GRHydro_Eigenproblem_Marquina.F90 +++ b/src/GRHydro_Eigenproblem_Marquina.F90 @@ -49,8 +49,8 @@ subroutine eigenproblem_marquina(handle,rhor,velxr,velyr,& DECLARE_CCTK_PARAMETERS - CCTK_REAL rhor,velxr,velyr,velzr,epsr,w_lorentzr - CCTK_REAL rhol,velxl,velyl,velzl,epsl,w_lorentzl + CCTK_REAL rhor,velxr,velyr,velzr,epsr + CCTK_REAL rhol,velxl,velyl,velzl,epsl CCTK_REAL densl,sxl,syl,szl,taul CCTK_REAL densr,sxr,syr,szr,taur @@ -63,8 +63,8 @@ subroutine eigenproblem_marquina(handle,rhor,velxr,velyr,& !!$ LOCAL VARS - CCTK_REAL du(5),aa(5,5),qdiff1,qdiff2,qdiff3,qdiff4,qdiff5 - integer i,j,k,l + CCTK_REAL du(5),aa(5,5) + integer i,j,k CCTK_REAL paug(5,6),tmp1,tmp2,sump,summ,f_du(5) CCTK_REAL leivec1l(5),leivec2l(5),leivec3l(5),leivecpl(5),leivecml(5) CCTK_REAL leivec1r(5),leivec2r(5),leivec3r(5),leivecpr(5),leivecmr(5) @@ -78,8 +78,6 @@ subroutine eigenproblem_marquina(handle,rhor,velxr,velyr,& CCTK_REAL vlowxr,vlowyr,vlowzr,v2r,wr CCTK_REAL vlowxl,vlowyl,vlowzl,v2l,wl - CCTK_REAL lamp_nobeta,lamm_nobeta - CCTK_REAL pressl,dpdrhol,dpdepsl,enthalpyl,kappal CCTK_REAL pressr,dpdrhor,dpdepsr,enthalpyr,kappar CCTK_REAL axpl,axml,vxpl,vxml,xsil,dltl @@ -774,8 +772,8 @@ subroutine eigenproblem_marquina_hot(handle,keytemp,rhor,velxr,velyr,& DECLARE_CCTK_PARAMETERS - CCTK_REAL rhor,velxr,velyr,velzr,epsr,w_lorentzr - CCTK_REAL rhol,velxl,velyl,velzl,epsl,w_lorentzl + CCTK_REAL rhor,velxr,velyr,velzr,epsr + CCTK_REAL rhol,velxl,velyl,velzl,epsl CCTK_REAL densl,sxl,syl,szl,taul CCTK_REAL densr,sxr,syr,szr,taur CCTK_REAL templ,tempr,ye_l,ye_r @@ -789,8 +787,8 @@ subroutine eigenproblem_marquina_hot(handle,keytemp,rhor,velxr,velyr,& !!$ LOCAL VARS - CCTK_REAL du(5),aa(5,5),qdiff1,qdiff2,qdiff3,qdiff4,qdiff5 - integer i,j,k,l + CCTK_REAL du(5),aa(5,5) + integer i,j,k CCTK_REAL paug(5,6),tmp1,tmp2,sump,summ,f_du(5) CCTK_REAL leivec1l(5),leivec2l(5),leivec3l(5),leivecpl(5),leivecml(5) CCTK_REAL leivec1r(5),leivec2r(5),leivec3r(5),leivecpr(5),leivecmr(5) @@ -804,10 +802,8 @@ subroutine eigenproblem_marquina_hot(handle,keytemp,rhor,velxr,velyr,& CCTK_REAL vlowxr,vlowyr,vlowzr,v2r,wr CCTK_REAL vlowxl,vlowyl,vlowzl,v2l,wl - CCTK_REAL lamp_nobeta,lamm_nobeta - - CCTK_REAL pressl,dpdrhol,dpdepsl,enthalpyl,kappal - CCTK_REAL pressr,dpdrhor,dpdepsr,enthalpyr,kappar + CCTK_REAL pressl,dpdepsl,enthalpyl,kappal + CCTK_REAL pressr,dpdepsr,enthalpyr,kappar CCTK_REAL axpl,axml,vxpl,vxml,xsil,dltl CCTK_REAL axpr,axmr,vxpr,vxmr,xsir,dltr CCTK_REAL cxx,cxy,cxz,gam,vxa,vxb |