00001 !______________________________________________ 00002 include '../Include_file/include_modulefiles_poisson_bbh_2pot_test1.f90' 00003 include '../Include_file/include_interface_modulefiles_poisson_bbh_2pot_test1.f90' 00004 include '../Include_file/include_subroutines_poisson_bbh_2pot_test1.f90' 00005 include '../Include_file/include_functions.f90' 00006 !______________________________________________ 00007 ! 00008 ! Main Program 00009 !______________________________________________ 00010 PROGRAM Main_poisson_bbh_2pot_test1 00011 ! 00012 use grid_parameter, only : indata_type, outdata_type, iter_max 00013 use radial_green_fn_grav 00014 use radial_green_fn_grav_bhex_nb 00015 use radial_green_fn_grav_bhex_dd 00016 use radial_green_fn_grav_bhex_nd 00017 use radial_green_fn_grav_bhex_rd 00018 use grid_parameter_binary_excision 00019 use grid_points_binary_excision 00020 use weight_midpoint_binary_excision 00021 use interface_copy_to_hgfn_and_gfnsf 00022 use def_bh_parameter, only: bh_sptype 00023 implicit none 00024 integer :: iseq, iter_count, total_iteration 00025 ! 00026 call coordinate_patch_kit_bhex 00027 call allocate_hgfn_bhex 00028 call allocate_hgfn_bhex_dd 00029 call calc_hgfn_bhex_dd 00030 call allocate_hgfn_bhex_nd 00031 call calc_hgfn_bhex_nd 00032 call allocate_hgfn_bhex_rd 00033 call calc_hgfn_bhex_rd 00034 ! -- No boundary Green's fn 00035 call allocate_hgfn_bhex_nb 00036 call calc_hgfn_bhex_nb 00037 ! call copy_to_hgfn_and_gfnsf(hgfn_nb,gfnsf_nb) 00038 ! -- 00039 call read_parameter_bh 00040 call read_parameter_binary_excision 00041 call calc_parameter_binary_excision 00042 call IO_printout_grid_data 00043 call allocate_grid_points_binary_excision 00044 call calc_grid_points_binary_excision 00045 call allocate_weight_midpoint_binary_excision 00046 call calc_weight_midpoint_binary_excision 00047 ! call calc_weight_midpoint_binary_excision_hybrid 00048 call allocate_poisson_bbh_test 00049 if (indata_type.eq.'IN') call initial_metric_CF 00050 if (indata_type.eq.'3D') call IO_input_initial_3D 00051 ! call test_analytic_solution_bhex_psialph 00052 ! 00053 total_iteration = 0 00054 00055 call iteration_poisson_bbh_2pot_test1(total_iteration) 00056 00057 if (outdata_type.eq.'3D') call IO_output_solution_3D 00058 ! 00059 END PROGRAM Main_poisson_bbh_2pot_test1