00001 subroutine calc_physical_quantities 00002 implicit none 00003 call calc_rest_mass 00004 call calc_mass 00005 call calc_proper_mass 00006 call calc_ang_mom 00007 call calc_ToverW 00008 call calc_radius 00009 call calc_redblue_shift 00010 call calc_mass_asympto('ns') 00011 call calc_ang_mom_asymp('ns') 00012 call calc_physq_center 00013 end subroutine calc_physical_quantities