diff options
| -rw-r--r-- | src/EOS_Polytrope.F | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/EOS_Polytrope.F b/src/EOS_Polytrope.F index 122328c..c9fd9b4 100644 --- a/src/EOS_Polytrope.F +++ b/src/EOS_Polytrope.F @@ -33,7 +33,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_REAL rho + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_Pressure = p_geom_factor * eos_k_cgs * . (rho * rho_geom_factor_inv) ** eos_gamma @@ -116,7 +117,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_REAL rho + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_DPressByDRho = p_geom_factor * eos_k_cgs * . eos_gamma * rho_geom_factor_inv * @@ -145,7 +147,8 @@ implicit none DECLARE_CCTK_PARAMETERS - CCTK_REAL rho, eps + CCTK_DECLARE(CCTK_REAL, rho, ) + CCTK_DECLARE(CCTK_REAL, eps, ) EOS_Polytrope_DPressByDEps = 0.d0 |