00001 subroutine copy_to_mpatch_interpolation_utility(impt) 00002 ! 00003 implicit none 00004 integer :: impt 00005 ! 00006 call copy_grid_parameter_to_mpt(impt) 00007 call copy_grid_parameter_binary_excision_to_mpt(impt) 00008 call copy_coordinate_grav_extended_to_mpt(impt) 00009 call copy_coordinate_grav_phi_to_mpt(impt) 00010 call copy_coordinate_grav_r_to_mpt(impt) 00011 call copy_coordinate_grav_theta_to_mpt(impt) 00012 call copy_def_binary_parameter_to_mpt(impt) 00013 call copy_def_quantities_derived_to_mpt(impt) 00014 call copy_def_quantities_to_mpt(impt) 00015 call copy_grid_points_binary_excision_to_mpt(impt) 00016 call copy_trigonometry_grav_phi_to_mpt(impt) 00017 call copy_trigonometry_grav_theta_to_mpt(impt) 00018 ! 00019 end subroutine copy_to_mpatch_interpolation_utility 00020