/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_to_mpatch_all_BNS_CF.f90
Go to the documentation of this file.00001 subroutine copy_to_mpatch_all_BNS_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_peos_parameter_to_mpt(impt) 00009 call copy_def_matter_parameter_to_mpt(impt) 00010 ! call copy_def_bh_parameter_to_mpt(impt) 00011 call copy_grid_points_binary_excision_to_mpt(impt) 00012 call copy_coordinate_grav_r_to_mpt(impt) 00013 call copy_coordinate_grav_theta_to_mpt(impt) 00014 call copy_coordinate_grav_phi_to_mpt(impt) 00015 call copy_coordinate_grav_extended_to_mpt(impt) 00016 call copy_def_binary_parameter_to_mpt(impt) 00017 call copy_def_quantities_BNS_to_mpt(impt) 00018 ! call copy_def_quantities_ns_to_mpt(impt) 00019 call copy_def_quantities_derived_to_mpt(impt) 00020 call copy_def_vector_x_to_mpt(impt) 00021 call copy_def_vector_phi_to_mpt(impt) 00022 ! call copy_def_vector_bh_to_mpt(impt) 00023 call copy_legendre_fn_grav_to_mpt(impt) 00024 call copy_trigonometry_grav_theta_to_mpt(impt) 00025 call copy_trigonometry_grav_phi_to_mpt(impt) 00026 call copy_weight_midpoint_grav_to_mpt(impt) 00027 call copy_weight_midpoint_fluid_to_mpt(impt) 00028 call copy_weight_midpoint_binary_excision_to_mpt(impt) 00029 ! 00030 end subroutine copy_to_mpatch_all_BNS_CF
