00001 subroutine calc_physical_quantities_BH_WL 00002 implicit none 00003 ! 00004 call calc_vector_x_grav(1) 00005 call calc_vector_phi_grav(1) 00006 call calc_mass_asympto('bh') 00007 call calc_angmom_asympto('bh') 00008 call calc_admmom_asympto('bh') 00009 ! 00010 end subroutine calc_physical_quantities_BH_WL