/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/calc_physical_quantities_helm_test_mpt.f90
Go to the documentation of this file.00001 subroutine calc_physical_quantities_helm_test_mpt 00002 use phys_constant, only : long, nmpt 00003 implicit none 00004 integer :: impt 00005 ! 00006 ! -- Asymptotic mass and angular momentum 00007 impt = nmpt 00008 call copy_from_mpatch_all_BBH_CF(impt) 00009 call copy_def_metric_from_mpt(impt) 00010 call calc_vector_x_grav(2) 00011 call calc_vector_phi_grav(2) 00012 call calc_vector_bh(2) 00013 ! 00014 call calc_scalar_wave_moment 00015 ! 00016 call copy_def_quantities_to_mpt(impt) 00017 ! 00018 end subroutine calc_physical_quantities_helm_test_mpt
