00001 subroutine calc_physical_quantities_WL 00002 implicit none 00003 call interpo_gr2fl_metric_WL 00004 call calc_rest_mass_peos 00005 call calc_mass_WL 00006 call calc_proper_mass_peos 00007 call calc_ang_mom_WL 00008 call calc_ToverW_peos ! to compute I_inertia 00009 call calc_virial_WL 00010 call calc_radius_WL 00011 call calc_redblue_shift_WL 00012 ! 00013 call excurve_WL_gridpoint 00014 call calc_mass_asympto('ns') 00015 call calc_angmom_asympto('ns') 00016 ! 00017 call calc_quad_pole_peos 00018 call calc_physq_center_peos 00019 call calc_physq_cgs_peos 00020 call calc_enthalpy_xyzaxis 00021 end subroutine calc_physical_quantities_WL