00001 subroutine calc_physical_quantities_peos 00002 implicit none 00003 call calc_rest_mass_peos 00004 call calc_mass_peos 00005 call calc_proper_mass_peos 00006 call calc_ang_mom_peos 00007 call calc_ToverW_peos 00008 call calc_radius 00009 call calc_redblue_shift 00010 call calc_ang_mom_asymp 00011 call calc_quad_pole_peos 00012 call calc_physq_center_peos 00013 call calc_physq_cgs_peos 00014 call calc_enthalpy_xyzaxis 00015 end subroutine calc_physical_quantities_peos