Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_potential_BBH

00001 !______________________________________________
00002 include '../Include_file/include_modulefiles_peos.f90'
00003 include '../Module/grid_parameter_binary_excision.f90'
00004 include '../Module/grid_points_binary_excision.f90'
00005 include '../Include_file/include_interface_modulefiles_peos.f90'
00006 include '../Include_file/include_subroutines_peos.f90'
00007 !
00008 include '../Subroutine/interpo_lag4th_2Dsurf.f90'
00009 !
00010 include '../Analysis/Module/grid_parameter_cartesian.f90'
00011 include '../Analysis/Module/coordinate_grav_xyz.f90'
00012 include '../Analysis/Module/def_metric_cartesian.f90'
00013 include '../Analysis/Module/def_matter_cartesian.f90'
00014 include '../Analysis/Module/interface_modules_cartesian.f90'
00015 !
00016 include '../Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90'
00017 include '../Analysis/Subroutine/coordinate_patch_cartesian.f90'
00018 include '../Analysis/Subroutine/allocate_metric_and_matter_cartesian.f90'
00019 include '../Analysis/Subroutine/IO_output_cartesian_contour_potential_2pot_test.f90'
00020 include '../Analysis/Subroutine/IO_output_cartesian_contour_potential_BBH_CF.f90'
00021 include '../Analysis/Subroutine/IO_output_cartesian_contour_potential_BBH_CF_v1.f90'
00022 include '../Analysis/Subroutine/IO_output_cartesian_planes.f90'
00023 include '../Analysis/Subroutine/interpo_gr2cgr_4th.f90'
00024 include '../Analysis/Subroutine/interpo_fl2cgr_4th.f90'
00025 include '../Analysis/Subroutine/interpolation_fillup_cartesian.f90'
00026 include '../Analysis/Subroutine/interpolation_fillup_cartesian_parity.f90'
00027 include '../Analysis/Subroutine/interpolation_fillup_cartesian_bh_parity.f90'
00028 include '../Analysis/Subroutine/interpolation_fillup_cartesian_bh.f90'
00029 include '../Analysis/Subroutine/interpolation_fillup_cartesian_bh_all.f90'
00030 include '../Analysis/Subroutine/interpolation_matter.f90'
00031 include '../Analysis/Subroutine/IO_output_bhex_2pot.f90'
00032 include '../Analysis/Subroutine/IO_output_BBH_CF.f90'
00033 include '../Analysis/Subroutine/average_error.f90'
00034 include '../Analysis/Subroutine/makeline.f90'
00035 !include '../Subroutine/allocate_poisson_solver_test.f90'
00036 include '../Subroutine/allocate_poisson_bbh_test.f90'
00037 include '../Subroutine/IO_input_potential_test_3D.f90'
00038 include '../Subroutine/test_analytic_solution_bhex_psialph.f90'
00039 !______________________________________________
00040 !
00041 !              Interpolation Program
00042 !______________________________________________
00043 PROGRAM interpolation_contour_potential_BBH_CF
00044 !
00045   use def_metric
00046   use def_metric_cartesian  
00047   use interface_modules_cartesian
00048   use grid_parameter_binary_excision
00049   use grid_points_binary_excision
00050   use grid_parameter
00051   implicit none
00052   integer :: irg, itg, ipg
00053 !
00054   call coordinate_patch_kit_grav_noGreen
00055   call read_parameter_binary_excision
00056   call calc_parameter_binary_excision
00057   call coordinate_patch_cartesian
00058   call allocate_poisson_bbh_test
00059   call allocate_metric_and_matter_cartesian
00060   call allocate_grid_points_binary_excision
00061   call calc_grid_points_binary_excision
00062   call IO_input_potential_test_3D
00063   call interpolation_fillup_cartesian_bh_all
00064 !  call interpolation_fillup_cartesian(psi,psica)
00065 !  call interpolation_fillup_cartesian(alph,alphca)
00066 !  call interpolation_fillup_cartesian_parity(bvxd,bvxdca,-1.0d0)
00067 !  call interpolation_fillup_cartesian_parity(bvyd,bvydca,-1.0d0)
00068 !  call interpolation_fillup_cartesian_parity(bvzd,bvzdca,+1.0d0)
00069 !  call interpolation_fillup_cartesian_bh(psi,psica)
00070 !  call interpolation_fillup_cartesian_bh(alph,alphca)
00071 !  call interpolation_fillup_cartesian_bh_parity(bvxd,bvxdca,-1.0d0)
00072 !  call interpolation_fillup_cartesian_bh_parity(bvyd,bvydca,-1.0d0)
00073 !  call interpolation_fillup_cartesian_bh_parity(bvzd,bvzdca,+1.0d0)
00074   call makeline
00075 !
00076   call IO_output_cartesian_contour_potential_BBH_CF
00077   call IO_output_cartesian_contour_potential_BBH_CF_v1
00078   call IO_output_cartesian_planes
00079 !  call test_analytic_solution_bhex_psialph
00080   call IO_output_BBH_CF
00081 !  call average_error
00082 !
00083 END PROGRAM interpolation_contour_potential_BBH_CF
/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_potential_BBH_CF.f90
