00001
00002 include '../Include_file/include_modulefiles_peos.f90'
00003 include '../Include_file/include_modulefiles_analysis_RNS_CF_peos_plot.f90'
00004 include '../Include_file/include_interface_modulefiles_analysis_RNS_CF_peos_plot.f90'
00005 include '../Include_file/include_interface_utilities.f90'
00006 include '../Include_file/include_subroutines_utilities.f90'
00007 include '../Include_file/include_PEOS_modulefile.f90'
00008 include '../Include_file/include_PEOS_subroutines.f90'
00009 include '../Include_file/include_functions.f90'
00010
00011 include '../Module/def_matter_velocity.f90'
00012
00013 include '../Subroutine/allocate_metric_CF.f90'
00014 include '../Subroutine/allocate_matter_emdrsrho.f90'
00015 include '../Subroutine/allocate_matter_3velocity.f90'
00016 include '../Subroutine/allocate_matter_4velocity.f90'
00017 include '../Subroutine/calc_3velocity_corot.f90'
00018 include '../Subroutine/calc_4velocity_corot.f90'
00019 include '../Subroutine/calc_matter_rhof.f90'
00020
00021 include '../Subroutine/interpolation_fl2gr_IDall.f90'
00022 include '../Subroutine/IO_input_converged_solution_3D.f90'
00023 include '../Subroutine/IO_input_converged_solution_fluid_3D.f90'
00024 include '../Subroutine/IO_output_solution_IDall_3D.f90'
00025
00026 include '../Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90'
00027 include '../Analysis/Subroutine/coordinate_patch_cartesian.f90'
00028 include '../Analysis/Subroutine/IO_output_and_interpolation_unigridID_3D.f90'
00029 include '../Analysis/Subroutine/interpolation_matter.f90'
00030 include '../Analysis/Subroutine/interpolation_metric.f90'
00031 include '../Analysis/Subroutine/interpo_gr2cgr_4th.f90'
00032 include '../Analysis/Subroutine/interpo_fl2cgr_4th.f90'
00033
00034
00035
00036
00037 PROGRAM interpolation_unigridID
00038
00039 use def_vector_phi
00040 implicit none
00041
00042 call coordinate_patch_kit_grav_noGreen
00043 call coordinate_patch_cartesian
00044 call peos_initialize
00045 call allocate_metric_CF
00046 call allocate_matter_emdrsrho
00047 call allocate_matter_3velocity
00048 call allocate_matter_4velocity
00049 call allocate_vector_phi
00050 call IO_input_converged_solution_3D
00051 call IO_input_converged_solution_fluid_3D
00052
00053 call calc_vector_phi_matter(1)
00054 call calc_3velocity_corot
00055 call calc_4velocity_corot
00056 call calc_matter_rhof
00057
00058 call IO_output_and_interpolation_unigridID_3D
00059
00060 END PROGRAM interpolation_unigridID
