00001
00002 include '../Include_file/include_modulefiles_peos.f90'
00003 include '../Include_file/include_interface_modulefiles_peos.f90'
00004 include '../Module/grid_parameter_binary_excision.f90'
00005 include '../Module/grid_points_binary_excision.f90'
00006 include '../Module/weight_midpoint_binary_excision.f90'
00007
00008 include '../Include_file/include_subroutines_peos.f90'
00009
00010 include '../Subroutine/interpo_lag4th_2Dsurf.f90'
00011
00012 include '../Analysis/Module/grid_parameter_cartesian.f90'
00013 include '../Analysis/Module/coordinate_grav_xyz.f90'
00014 include '../Analysis/Module/def_metric_cartesian.f90'
00015 include '../Analysis/Module/def_matter_cartesian.f90'
00016 include '../Analysis/Module/interface_modules_cartesian.f90'
00017
00018 include '../Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90'
00019 include '../Analysis/Subroutine/coordinate_patch_cartesian.f90'
00020 include '../Analysis/Subroutine/allocate_metric_and_matter_cartesian.f90'
00021 include '../Analysis/Subroutine/IO_output_cartesian_contour_potential_2pot_test.f90'
00022 include '../Analysis/Subroutine/interpo_gr2cgr_4th.f90'
00023 include '../Analysis/Subroutine/interpo_fl2cgr_4th.f90'
00024 include '../Analysis/Subroutine/interpolation_fillup_cartesian.f90'
00025 include '../Analysis/Subroutine/interpolation_matter.f90'
00026 include '../Analysis/Subroutine/IO_output_bhex_2pot.f90'
00027 include '../Analysis/Subroutine/IO_output_plot_averaged_error.f90'
00028 include '../Analysis/Subroutine/average_error.f90'
00029
00030 include '../Subroutine/allocate_poisson_bbh_test.f90'
00031 include '../Subroutine/IO_input_potential_test_3D.f90'
00032 include '../Subroutine/test_analytic_solution_bhex_psialph.f90'
00033
00034
00035
00036
00037 PROGRAM interpolation_contour_potential_bhex_2pot_test
00038
00039 use def_metric, only : psi, alph
00040 use def_metric_cartesian, only : psica, alphca
00041 use interface_modules_cartesian
00042 use grid_parameter_binary_excision
00043 use grid_points_binary_excision
00044 implicit none
00045
00046 call coordinate_patch_kit_grav_noGreen
00047 call read_parameter_binary_excision
00048 call calc_parameter_binary_excision
00049 call coordinate_patch_cartesian
00050 call allocate_poisson_bbh_test
00051 call allocate_metric_and_matter_cartesian
00052 call allocate_grid_points_binary_excision
00053 call calc_grid_points_binary_excision
00054 call IO_input_potential_test_3D
00055 call interpolation_fillup_cartesian(psi,psica)
00056 call interpolation_fillup_cartesian(alph,alphca)
00057
00058 call IO_output_cartesian_contour_potential_2pot_test
00059 call test_analytic_solution_bhex_psialph
00060 call IO_output_bhex_2pot
00061 call IO_output_plot_averaged_error
00062 call average_error
00063
00064 END PROGRAM interpolation_contour_potential_bhex_2pot_test
