/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_main.f90
Go to the documentation of this file.00001 !______________________________________________ 00002 include '../Include_file/include_modulefiles_RNS_CF_peos_plot.f90' 00003 include '../Include_file/include_modulefiles_analysis_RNS_CF_peos_plot.f90' 00004 include '../Include_file/include_interface_modulefiles_RNS_CF_peos_plot.f90' 00005 include '../Include_file/include_interface_modulefiles_analysis_RNS_CF_peos_plot.f90' 00006 include '../Include_file/include_subroutines_RNS_CF_peos_plot.f90' 00007 include '../Include_file/include_subroutines_analysis_RNS_CF_peos_plot.f90' 00008 include '../Include_file/include_PEOS_modulefile.f90' 00009 include '../Include_file/include_PEOS_subroutines.f90' 00010 include '../Include_file/include_functions.f90' 00011 !______________________________________________ 00012 ! 00013 ! Interpolation Program 00014 !______________________________________________ 00015 PROGRAM interpolation_main 00016 ! 00017 implicit none 00018 ! 00019 call coordinate_patch_kit_grav_noGreen 00020 call coordinate_patch_cartesian 00021 call allocate_metric_and_matter 00022 call allocate_metric_and_matter_cartesian 00023 call allocate_matter_velocity 00024 call IO_input_initial_3D 00025 ! 00026 call interpolation_cartesian 00027 call IO_output_cartesian_contour 00028 call IO_output_surface 00029 call IO_output_plot_xyz 00030 call printout_NS_shape_seq(1) 00031 ! 00032 END PROGRAM interpolation_main
