00001 subroutine copy_def_quantities_derived_to_mpt(impt)
00002 use def_quantities_derived
00003 use def_quantities_derived_mpt
00004
00005 implicit none
00006 integer :: i, impt
00007
00008 i=0
00009 i=i+1; def_quantities_derived_real_(i,impt) = coord_radius_normalized_x
00010 i=i+1; def_quantities_derived_real_(i,impt) = coord_radius_normalized_y
00011 i=i+1; def_quantities_derived_real_(i,impt) = coord_radius_normalized_z
00012 i=i+1; def_quantities_derived_real_(i,impt) = coord_axis_ratio_yx
00013 i=i+1; def_quantities_derived_real_(i,impt) = proper_axis_ratio_yx
00014 i=i+1; def_quantities_derived_real_(i,impt) = coord_axis_ratio_zx
00015 i=i+1; def_quantities_derived_real_(i,impt) = proper_axis_ratio_zx
00016 i=i+1; def_quantities_derived_real_(i,impt) = coord_eccentricity_zx
00017 i=i+1; def_quantities_derived_real_(i,impt) = proper_eccentricity_zx
00018 i=i+1; def_quantities_derived_real_(i,impt) = omega
00019 i=i+1; def_quantities_derived_real_(i,impt) = omega_M
00020 i=i+1; def_quantities_derived_real_(i,impt) = omega2_M2
00021 i=i+1; def_quantities_derived_real_(i,impt) = E_bind_over_M
00022 i=i+1; def_quantities_derived_real_(i,impt) = J_over_M2
00023 i=i+1; def_quantities_derived_real_(i,impt) = J_over_Madm2
00024 i=i+1; def_quantities_derived_real_(i,impt) = Madm_MK_virial
00025 i=i+1; def_quantities_derived_real_(i,impt) = M0_minus_M0sph_normalized
00026 i=i+1; def_quantities_derived_real_(i,impt) = rho_c_normalized
00027 i=i+1; def_quantities_derived_real_(i,impt) = pre_c_normalized
00028 i=i+1; def_quantities_derived_real_(i,impt) = epsilon_c_normalized
00029 i=i+1; def_quantities_derived_real_(i,impt) = p_over_rho_c_normalized
00030
00031
00032
00033 end subroutine copy_def_quantities_derived_to_mpt
