Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Main_code/Main_helmholtz_hrethadv

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 '../Module/weight_midpoint_binary_excision.f90'
00006 include '../Module/radial_green_fn_hrethadv.f90'
00007 include '../Module/radial_green_fn_helmholtz.f90'
00008 include '../Module/copy_array_3d.f90'
00009 include '../Module/copy_array_4d.f90'
00010 !
00011 include '../Include_file/include_interface_modulefiles_peos.f90'
00012 include '../Module_interface/interface_error_metric.f90'
00013 include '../Module_interface/interface_grdr_gridpoint_type0.f90'
00014 include '../Module_interface/interface_sourceterm_helmholtz_solver_test.f90'
00015 include '../Module_interface/interface_helmholtz_solver.f90'
00016 include '../Module_interface/interface_helmholtz_solver_vol_int.f90'
00017 include '../Module_interface/interface_copy_to_bsjy_and_sbsjy.f90'
00018 !
00019 include '../Include_file/include_subroutines_peos.f90'
00020 include '../Subroutine/IO_output_poisson_test_3D.f90'
00021 include '../Subroutine/iteration_helmholtz_solver_test.f90'
00022 include '../Subroutine/error_metric.f90'
00023 include '../Subroutine/printout_error_metric.f90'
00024 include '../Subroutine/sourceterm_helmholtz_solver_test.f90'
00025 include '../Subroutine/helmholtz_solver.f90'
00026 include '../Subroutine/helmholtz_solver_vol_int.f90'
00027 include '../Subroutine/grdr_gridpoint_type0.f90'
00028 include '../Subroutine/test_source_helical.f90'
00029 include '../Subroutine/allocate_poisson_solver_test.f90'
00030 include '../Subroutine/test_analytic_solution.f90'
00031 include '../Subroutine/calc_radial_green_fn_hrethadv.f90'
00032 include '../Subroutine/copy_to_bsjy_and_sbsjy.f90'
00033 include '../Subroutine/sphbess.f90'
00034 include '../Subroutine/sphbess_and_dx.f90'
00035 include '../Subroutine/bessjy.f90'
00036 include '../Subroutine/beschb.f90'
00037 include '../Function/chebev.f90'
00038 !______________________________________________
00039 !
00040 !              Main Program
00041 !______________________________________________
00042 PROGRAM Main_helmholtz_hrethadv_test
00043 !
00044   use grid_parameter, only : indata_type, outdata_type, & 
00045   &                          iter_max
00046   use radial_green_fn_helmholtz
00047   use radial_green_fn_hrethadv
00048   implicit none
00049   integer :: iseq, iter_count, total_iteration
00050 !
00051   call coordinate_patch_kit_grav
00052   call allocate_poisson_solver_test
00053   call allocate_radial_green_fn_helmholtz
00054   call allocate_radial_green_fn_hrethadv
00055   call test_source_helical
00056 ! call test_analytic_solution
00057 ! 
00058   call iteration_helmholtz_solver_test(iter_count)
00059   if (total_iteration.ge.iter_max) then
00060     write(6,*)' ** Solution did not converge **'
00061   end if
00062 !  call printout_NS_shape_seq(iseq)
00063   if (outdata_type.eq.'3D') call IO_output_poisson_test_3D
00064 !!  call printout_debug
00065 !  call printout_NS_shape
00066 !
00067 END PROGRAM Main_helmholtz_hrethadv_test
/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_code/Main_helmholtz_hrethadv_test.f90
