/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/calc_physical_quantities_BH.f90
Go to the documentation of this file.00001 subroutine calc_physical_quantities_BH 00002 implicit none 00003 ! 00004 call calc_vector_x_grav(1) 00005 call calc_vector_phi_grav(1) 00006 call copy_Aij_pBH_to_tfkij 00007 call calc_mass_pBH 00008 call calc_mass_asympto('bh') 00009 call calc_angmom_asympto('bh') 00010 call calc_admmom_asympto('bh') 00011 ! 00012 end subroutine calc_physical_quantities_BH
