00001 subroutine copy_from_mpatch_all_test(impt) 00002 ! 00003 implicit none 00004 integer :: impt 00005 ! 00006 call copy_grid_parameter_from_mpt(impt) 00007 call copy_grid_parameter_binary_excision_from_mpt(impt) 00008 call copy_grid_points_binary_excision_from_mpt(impt) 00009 call copy_coordinate_grav_r_from_mpt(impt) 00010 call copy_coordinate_grav_theta_from_mpt(impt) 00011 call copy_coordinate_grav_phi_from_mpt(impt) 00012 call copy_coordinate_grav_extended_from_mpt(impt) 00013 call copy_def_binary_parameter_from_mpt(impt) 00014 call copy_def_quantities_from_mpt(impt) 00015 call copy_def_quantities_derived_from_mpt(impt) 00016 call copy_def_vector_x_from_mpt(impt) 00017 call copy_def_vector_phi_from_mpt(impt) 00018 call copy_legendre_fn_grav_from_mpt(impt) 00019 call copy_trigonometry_grav_theta_from_mpt(impt) 00020 call copy_trigonometry_grav_phi_from_mpt(impt) 00021 call copy_weight_midpoint_grav_from_mpt(impt) 00022 call copy_weight_midpoint_fluid_from_mpt(impt) 00023 call copy_weight_midpoint_binary_excision_from_mpt(impt) 00024 ! 00025 end subroutine copy_from_mpatch_all_test