[Commits] [svn:einsteintoolkit] EOS_Hybrid/trunk/src/ (Rev. 7)

schnetter at cct.lsu.edu schnetter at cct.lsu.edu
Thu Sep 23 18:30:30 CDT 2010


User: eschnett
Date: 2010/09/23 06:30 PM

Modified:
 /trunk/src/
  EOS_Hybrid_Startup.F

Log:
 Change comment syntax to avoid spurious syntax errors on some AIX systems

File Changes:

Directory: /trunk/src/
======================

File [modified]: EOS_Hybrid_Startup.F
Delta lines: +12 -12
===================================================================
--- trunk/src/EOS_Hybrid_Startup.F	2010-07-12 14:50:23 UTC (rev 6)
+++ trunk/src/EOS_Hybrid_Startup.F	2010-09-23 23:30:30 UTC (rev 7)
@@ -61,20 +61,20 @@
 
       end if
 
-c$$$      all these are now set by the polytropic EOS
+cccc      all these are now set by the polytropic EOS
 
-c$$$      These constants match the values in RNSID: consts.h
+cccc      These constants match the values in RNSID: consts.h
 
-c$$$      m_solar_cgs = 1.987d33
-c$$$      c_cgs = 2.9979d10
-c$$$      G_cgs = 6.6732d-8
-c$$$
-c$$$      m_solar_geom = G_cgs / c_cgs**2 * m_solar_cgs
-c$$$      p_geom_factor = G_cgs / c_cgs**4 * m_solar_geom**2
-c$$$      rho_geom_factor = p_geom_factor * c_cgs**2
-c$$$      rho_geom_factor_inv = 1.d0 / rho_geom_factor 
-c$$$
-c$$$      eos_k_cgs = eos_k * rho_geom_factor**gamma_ini / p_geom_factor 
+cccc      m_solar_cgs = 1.987d33
+cccc      c_cgs = 2.9979d10
+cccc      G_cgs = 6.6732d-8
+cccc
+cccc      m_solar_geom = G_cgs / c_cgs**2 * m_solar_cgs
+cccc      p_geom_factor = G_cgs / c_cgs**4 * m_solar_geom**2
+cccc      rho_geom_factor = p_geom_factor * c_cgs**2
+cccc      rho_geom_factor_inv = 1.d0 / rho_geom_factor 
+cccc
+cccc      eos_k_cgs = eos_k * rho_geom_factor**gamma_ini / p_geom_factor 
 
       eos_k_supernuclear_cgs = eos_k_cgs * (rho_nuc * rho_geom_factor_inv)**
      .     (eos_gamma - eos_gamma_supernuclear)



More information about the Commits mailing list