00001 subroutine copy_def_quantities_derived_from_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; coord_radius_normalized_x = def_quantities_derived_real_(i,impt)
00010 i=i+1; coord_radius_normalized_y = def_quantities_derived_real_(i,impt)
00011 i=i+1; coord_radius_normalized_z = def_quantities_derived_real_(i,impt)
00012 i=i+1; coord_axis_ratio_yx = def_quantities_derived_real_(i,impt)
00013 i=i+1; proper_axis_ratio_yx = def_quantities_derived_real_(i,impt)
00014 i=i+1; coord_axis_ratio_zx = def_quantities_derived_real_(i,impt)
00015 i=i+1; proper_axis_ratio_zx = def_quantities_derived_real_(i,impt)
00016 i=i+1; coord_eccentricity_zx = def_quantities_derived_real_(i,impt)
00017 i=i+1; proper_eccentricity_zx = def_quantities_derived_real_(i,impt)
00018 i=i+1; omega = def_quantities_derived_real_(i,impt)
00019 i=i+1; omega_M = def_quantities_derived_real_(i,impt)
00020 i=i+1; omega2_M2 = def_quantities_derived_real_(i,impt)
00021 i=i+1; E_bind_over_M = def_quantities_derived_real_(i,impt)
00022 i=i+1; J_over_M2 = def_quantities_derived_real_(i,impt)
00023 i=i+1; J_over_Madm2 = def_quantities_derived_real_(i,impt)
00024 i=i+1; Madm_MK_virial = def_quantities_derived_real_(i,impt)
00025 i=i+1; M0_minus_M0sph_normalized = def_quantities_derived_real_(i,impt)
00026 i=i+1; rho_c_normalized = def_quantities_derived_real_(i,impt)
00027 i=i+1; pre_c_normalized = def_quantities_derived_real_(i,impt)
00028 i=i+1; epsilon_c_normalized = def_quantities_derived_real_(i,impt)
00029 i=i+1; p_over_rho_c_normalized = def_quantities_derived_real_(i,impt)
00030
00031
00032
00033 end subroutine copy_def_quantities_derived_from_mpt
