00001 include '../Subroutine/IO_input_initial_1D.f90' 00002 include '../Subroutine/IO_input_initial_3D.f90' 00003 include '../Subroutine/IO_input_initial_3D_WL.f90' 00004 include '../Subroutine/IO_output_solution_1D.f90' 00005 include '../Subroutine/IO_output_solution_3D.f90' 00006 include '../Subroutine/IO_output_solution_3D_WL.f90' 00007 include '../Subroutine/SEM_tensor.f90' 00008 include '../Subroutine/adjust_rest_mass.f90' 00009 include '../Subroutine/adjusthij.f90' 00010 include '../Subroutine/allocate_SEM_tensor.f90' 00011 include '../Subroutine/allocate_matter_4velocity.f90' 00012 include '../Subroutine/allocate_matter_emdrsrho.f90' 00013 include '../Subroutine/allocate_matter_rotlaw.f90' 00014 include '../Subroutine/allocate_metric_WL.f90' 00015 include '../Subroutine/allocate_metric_and_matter_WL.f90' 00016 include '../Subroutine/allocate_metric_on_SFC_WL.f90' 00017 include '../Subroutine/ap2alps.f90' 00018 include '../Subroutine/artificial_deformation.f90' 00019 include '../Subroutine/beschb.f90' 00020 include '../Subroutine/bessjy.f90' 00021 include '../Subroutine/calc_ToverW_peos.f90' 00022 include '../Subroutine/calc_ang_mom_WL.f90' 00023 include '../Subroutine/calc_angmom_asympto.f90' 00024 include '../Subroutine/calc_enthalpy_xyzaxis.f90' 00025 include '../Subroutine/calc_mass_WL.f90' 00026 include '../Subroutine/calc_mass_asympto.f90' 00027 include '../Subroutine/calc_omega_drot.f90' 00028 include '../Subroutine/calc_physical_quantities_WL.f90' 00029 include '../Subroutine/calc_physq_center_peos.f90' 00030 include '../Subroutine/calc_physq_cgs_peos.f90' 00031 include '../Subroutine/calc_proper_mass_peos.f90' 00032 include '../Subroutine/calc_quad_pole_peos.f90' 00033 include '../Subroutine/calc_radial_green_fn_hret_mi_hadv.f90' 00034 include '../Subroutine/calc_radial_green_fn_hrethadv.f90' 00035 include '../Subroutine/calc_radius_WL.f90' 00036 include '../Subroutine/calc_redblue_shift_WL.f90' 00037 include '../Subroutine/calc_rest_mass_peos.f90' 00038 include '../Subroutine/calc_shift2rotshift.f90' 00039 include '../Subroutine/calc_shift_down2up.f90' 00040 include '../Subroutine/calc_surface.f90' 00041 include '../Subroutine/calc_vector_phi_grav.f90' 00042 include '../Subroutine/calc_vector_phi_matter.f90' 00043 include '../Subroutine/calc_vector_x_grav.f90' 00044 include '../Subroutine/calc_vector_x_matter.f90' 00045 include '../Subroutine/calc_virial_WL.f90' 00046 include '../Subroutine/cleargeometry.f90' 00047 include '../Subroutine/compute_alps2alph.f90' 00048 include '../Subroutine/compute_fnc_multiple.f90' 00049 include '../Subroutine/compute_shift.f90' 00050 include '../Subroutine/coordinate_patch_kit_grav.f90' 00051 include '../Subroutine/copy_to_bsjy_and_sbsjy.f90' 00052 include '../Subroutine/correct_matter_source_midpoint.f90' 00053 include '../Subroutine/cristoffel_gridpoint.f90' 00054 include '../Subroutine/cristoffel_midpoint.f90' 00055 include '../Subroutine/dadbscalar_3rd2nd_type0.f90' 00056 include '../Subroutine/dadbscalar_type0.f90' 00057 include '../Subroutine/dadbscalar_type2.f90' 00058 include '../Subroutine/dadbscalar_type3.f90' 00059 include '../Subroutine/error_matter.f90' 00060 include '../Subroutine/error_metric_type0.f90' 00061 include '../Subroutine/error_metric_type2.f90' 00062 include '../Subroutine/excurve_WL_gridpoint.f90' 00063 include '../Subroutine/excurve_WL_midpoint.f90' 00064 include '../Subroutine/flgrad_2nd_gridpoint.f90' 00065 include '../Subroutine/gauge.f90' 00066 include '../Subroutine/gauge_hiju.f90' 00067 include '../Subroutine/grd2phi_midpoint_type0.f90' 00068 include '../Subroutine/grdphi_gridpoint_type0.f90' 00069 include '../Subroutine/grdphi_midpoint_type0.f90' 00070 include '../Subroutine/grdr_gridpoint_type0_nosym.f90' 00071 include '../Subroutine/grgrad1g_midpoint.f90' 00072 include '../Subroutine/grgrad_2nd_gridpoint.f90' 00073 include '../Subroutine/grgrad_4th_gridpoint.f90' 00074 include '../Subroutine/grgrad_4th_gridpoint_bhex.f90' 00075 include '../Subroutine/grgrad_gridpoint_type0.f90' 00076 include '../Subroutine/grgrad_midpoint.f90' 00077 include '../Subroutine/grgrad_midpoint_r2nd.f90' 00078 include '../Subroutine/grgrad_midpoint_r3rd.f90' 00079 include '../Subroutine/grgrad_midpoint_r3rd_type0.f90' 00080 include '../Subroutine/grgrad_midpoint_type0.f90' 00081 include '../Subroutine/grgrad_type0.f90' 00082 include '../Subroutine/helmholtz_solver.f90' 00083 include '../Subroutine/helmholtz_solver_outgoing.f90' 00084 include '../Subroutine/helmholtz_solver_vol_int.f90' 00085 include '../Subroutine/helmholtz_solver_vol_int_hret_mi_hadv.f90' 00086 include '../Subroutine/hydrostatic_eq_WL_peos.f90' 00087 include '../Subroutine/index_vec_down2up.f90' 00088 include '../Subroutine/initialize_field.f90' 00089 include '../Subroutine/interpo_3D_initial_4th.f90' 00090 include '../Subroutine/interpo_3D_initial_4th_surface.f90' 00091 include '../Subroutine/interpo_fl2gr.f90' 00092 include '../Subroutine/interpo_fl2gr_midpoint.f90' 00093 include '../Subroutine/interpo_gr2fl.f90' 00094 include '../Subroutine/interpo_gr2fl_metric_WL.f90' 00095 include '../Subroutine/interpo_gr2fl_type0.f90' 00096 include '../Subroutine/interpo_linear_type0.f90' 00097 include '../Subroutine/interpo_linear_type0_2Dsurf.f90' 00098 include '../Subroutine/interpo_radial1p_grav.f90' 00099 include '../Subroutine/invhij.f90' 00100 include '../Subroutine/invhij_up2down.f90' 00101 include '../Subroutine/iteration_HS.f90' 00102 include '../Subroutine/liegmab_gridpoint.f90' 00103 include '../Subroutine/liegmab_midpoint.f90' 00104 include '../Subroutine/minv.f90' 00105 include '../Subroutine/next_solution.f90' 00106 include '../Subroutine/poisson_solver.f90' 00107 include '../Subroutine/printout_NS_shape.f90' 00108 include '../Subroutine/printout_NS_shape_seq.f90' 00109 include '../Subroutine/printout_debug.f90' 00110 include '../Subroutine/printout_error.f90' 00111 include '../Subroutine/printout_error_metric_combined_2.f90' 00112 include '../Subroutine/printout_error_metric_combined_3.f90' 00113 include '../Subroutine/printout_physq_WL_MHD.f90' 00114 include '../Subroutine/printout_physq_console.f90' 00115 include '../Subroutine/printout_physq_plot.f90' 00116 include '../Subroutine/printout_quad_pole.f90' 00117 include '../Subroutine/radial_int_fluid.f90' 00118 include '../Subroutine/reset_fluid.f90' 00119 include '../Subroutine/riccitensor_midpoint.f90' 00120 include '../Subroutine/rotation_law_WL.f90' 00121 include '../Subroutine/source_HaC_WL.f90' 00122 include '../Subroutine/source_MoC_WL.f90' 00123 include '../Subroutine/source_adm_mass_WL.f90' 00124 include '../Subroutine/source_ang_mom_WL.f90' 00125 include '../Subroutine/source_angmom_asympto.f90' 00126 include '../Subroutine/source_komar_mass_compact_WL.f90' 00127 include '../Subroutine/source_komar_mass_peos.f90' 00128 include '../Subroutine/source_mass_asympto.f90' 00129 include '../Subroutine/source_mp_minus_madm_peos.f90' 00130 include '../Subroutine/source_proper_mass_peos.f90' 00131 include '../Subroutine/source_quad_pole_peos.f90' 00132 include '../Subroutine/source_rest_mass_peos.f90' 00133 include '../Subroutine/source_trG_WL.f90' 00134 include '../Subroutine/source_trfreeG_WL.f90' 00135 include '../Subroutine/source_virial_WL.f90' 00136 include '../Subroutine/source_virial_gravity_WL.f90' 00137 include '../Subroutine/source_virial_matter.f90' 00138 include '../Subroutine/sourceterm_HaC_CF.f90' 00139 include '../Subroutine/sourceterm_HaC_CF_corot.f90' 00140 include '../Subroutine/sourceterm_HaC_WL.f90' 00141 include '../Subroutine/sourceterm_HaC_WL_test.f90' 00142 include '../Subroutine/sourceterm_HaC_drot_SFC.f90' 00143 include '../Subroutine/sourceterm_MoC_CF_drot_SFC.f90' 00144 include '../Subroutine/sourceterm_MoC_CF_with_divshift.f90' 00145 include '../Subroutine/sourceterm_MoC_WL.f90' 00146 include '../Subroutine/sourceterm_MoC_WL_corot.f90' 00147 include '../Subroutine/sourceterm_MoC_WL_drot_SFC.f90' 00148 include '../Subroutine/sourceterm_trG_CF.f90' 00149 include '../Subroutine/sourceterm_trG_CF_corot.f90' 00150 include '../Subroutine/sourceterm_trG_WL.f90' 00151 include '../Subroutine/sourceterm_trG_drot_SFC.f90' 00152 include '../Subroutine/sourceterm_trfreeG_WL.f90' 00153 include '../Subroutine/sourceterm_trfreeG_drot_SFC.f90' 00154 include '../Subroutine/sphbess.f90' 00155 include '../Subroutine/sphbess_and_dx.f90' 00156 include '../Subroutine/surf_int_grav_rg.f90' 00157 include '../Subroutine/update_grfield.f90' 00158 include '../Subroutine/update_matter.f90' 00159 include '../Subroutine/update_parameter_WL_peos.f90' 00160 include '../Subroutine/update_parameter_axisym_WL_peos.f90' 00161 include '../Subroutine/update_parameter_axisym_WL_peos_drot.f90' 00162 include '../Subroutine/update_parameter_spherical_peos.f90' 00163 include '../Subroutine/update_parameter_triaxial_WL_peos.f90' 00164 include '../Subroutine/update_surface.f90' 00165 include '../Subroutine/vol_int_fluid.f90' 00166 include '../Subroutine/vol_int_grav.f90'