00001 subroutine copy_to_mpatch_all_BBH_CF(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_def_bh_parameter_to_mpt(impt) 00009 call copy_grid_points_binary_excision_to_mpt(impt) 00010 call copy_coordinate_grav_r_to_mpt(impt) 00011 call copy_coordinate_grav_theta_to_mpt(impt) 00012 call copy_coordinate_grav_phi_to_mpt(impt) 00013 call copy_coordinate_grav_extended_to_mpt(impt) 00014 call copy_def_binary_parameter_to_mpt(impt) 00015 call copy_def_quantities_to_mpt(impt) 00016 call copy_def_quantities_derived_to_mpt(impt) 00017 call copy_def_vector_x_to_mpt(impt) 00018 call copy_def_vector_phi_to_mpt(impt) 00019 call copy_def_vector_bh_to_mpt(impt) 00020 call copy_legendre_fn_grav_to_mpt(impt) 00021 call copy_trigonometry_grav_theta_to_mpt(impt) 00022 call copy_trigonometry_grav_phi_to_mpt(impt) 00023 call copy_weight_midpoint_grav_to_mpt(impt) 00024 call copy_weight_midpoint_fluid_to_mpt(impt) 00025 call copy_weight_midpoint_binary_excision_to_mpt(impt) 00026 ! 00027 end subroutine copy_to_mpatch_all_BBH_CF
1.6.1