00001 subroutine calc_physical_quantities_qeos 00002 implicit none 00003 call calc_rest_mass_qeos 00004 call calc_mass_qeos 00005 call calc_proper_mass_qeos 00006 call calc_ang_mom_qeos 00007 call calc_ToverW_qeos 00008 call calc_virial_CF_qeos 00009 call calc_radius 00010 call calc_redblue_shift 00011 call calc_mass_asympto('ns') 00012 ! call calc_ang_mom_asymp('ns') 00013 call excurve_CF_gridpoint 00014 call calc_angmom_asympto('ns') 00015 call calc_quad_pole_qeos 00016 call calc_physq_center_qeos 00017 call calc_physq_cgs_peos 00018 call calc_enthalpy_xyzaxis_qeos 00019 call calc_ergo 00020 end subroutine calc_physical_quantities_qeos