00001 subroutine calc_physical_quantities_WL 00002 implicit none 00003 write(6,*)' rest mass' 00004 call calc_rest_mass_peos 00005 write(6,*)' ADM mass' 00006 call calc_mass_WL 00007 write(6,*)' proper mass' 00008 call calc_proper_mass_peos 00009 write(6,*)' ang mom' 00010 call calc_ang_mom_WL 00011 write(6,*)' ToverW' 00012 call calc_ToverW_peos 00013 write(6,*)' radius' 00014 call calc_radius_WL 00015 write(6,*)' red shift' 00016 call calc_redblue_shift_WL 00017 write(6,*)' other' 00018 call calc_ang_mom_asymp 00019 call calc_quad_pole_peos 00020 call calc_physq_center_peos 00021 call calc_physq_cgs_peos 00022 end subroutine calc_physical_quantities_WL