00001 subroutine copy_def_quantities_to_mpt(impt)
00002 use def_quantities
00003 use def_quantities_mpt
00004 implicit none
00005 integer :: i, impt, ia, ib
00006
00007 i=0
00008 i=i+1; def_quantities_real_(i,impt) = admmass
00009 i=i+1; def_quantities_real_(i,impt) = komarmass
00010 i=i+1; def_quantities_real_(i,impt) = komarmass_nc
00011 i=i+1; def_quantities_real_(i,impt) = restmass
00012 i=i+1; def_quantities_real_(i,impt) = propermass
00013 i=i+1; def_quantities_real_(i,impt) = angmom
00014 i=i+1; def_quantities_real_(i,impt) = admmass_asymp
00015 i=i+1; def_quantities_real_(i,impt) = komarmass_asymp
00016 i=i+1; def_quantities_real_(i,impt) = angmom_asymp
00017
00018 i=i+1; def_quantities_real_(i,impt) = admmom_asymp(1)
00019 i=i+1; def_quantities_real_(i,impt) = admmom_asymp(2)
00020 i=i+1; def_quantities_real_(i,impt) = admmom_asymp(3)
00021
00022 i=i+1; def_quantities_real_(i,impt) = T_kinene
00023 i=i+1; def_quantities_real_(i,impt) = W_gravene
00024 i=i+1; def_quantities_real_(i,impt) = P_intene
00025 i=i+1; def_quantities_real_(i,impt) = M_emfene
00026 i=i+1; def_quantities_real_(i,impt) = M_torBene
00027 i=i+1; def_quantities_real_(i,impt) = M_polBene
00028 i=i+1; def_quantities_real_(i,impt) = M_eleEene
00029 i=i+1; def_quantities_real_(i,impt) = Virial
00030 i=i+1; def_quantities_real_(i,impt) = ToverW
00031 i=i+1; def_quantities_real_(i,impt) = PoverW
00032 i=i+1; def_quantities_real_(i,impt) = MoverW
00033 i=i+1; def_quantities_real_(i,impt) = MtorBoverW
00034 i=i+1; def_quantities_real_(i,impt) = MpolBoverW
00035 i=i+1; def_quantities_real_(i,impt) = MeleEoverW
00036 i=i+1; def_quantities_real_(i,impt) = I_inertia
00037 i=i+1; def_quantities_real_(i,impt) = gravmass_sph
00038 i=i+1; def_quantities_real_(i,impt) = restmass_sph
00039 i=i+1; def_quantities_real_(i,impt) = propermass_sph
00040 i=i+1; def_quantities_real_(i,impt) = MoverR_sph
00041 i=i+1; def_quantities_real_(i,impt) = schwarz_radi_sph
00042 i=i+1; def_quantities_real_(i,impt) = schwarz_radi_sph_km
00043 i=i+1; def_quantities_real_(i,impt) = coord_radius_x
00044 i=i+1; def_quantities_real_(i,impt) = coord_radius_y
00045 i=i+1; def_quantities_real_(i,impt) = coord_radius_z
00046 i=i+1; def_quantities_real_(i,impt) = proper_radius_x
00047 i=i+1; def_quantities_real_(i,impt) = proper_radius_y
00048 i=i+1; def_quantities_real_(i,impt) = proper_radius_z
00049 i=i+1; def_quantities_real_(i,impt) = rho_c
00050 i=i+1; def_quantities_real_(i,impt) = pre_c
00051 i=i+1; def_quantities_real_(i,impt) = q_c
00052 i=i+1; def_quantities_real_(i,impt) = rho_max
00053 i=i+1; def_quantities_real_(i,impt) = pre_max
00054 i=i+1; def_quantities_real_(i,impt) = epsi_max
00055 i=i+1; def_quantities_real_(i,impt) = q_max
00056 i=i+1; def_quantities_real_(i,impt) = coord_radius_x_km
00057 i=i+1; def_quantities_real_(i,impt) = coord_radius_y_km
00058 i=i+1; def_quantities_real_(i,impt) = coord_radius_z_km
00059 i=i+1; def_quantities_real_(i,impt) = proper_radius_x_km
00060 i=i+1; def_quantities_real_(i,impt) = proper_radius_y_km
00061 i=i+1; def_quantities_real_(i,impt) = proper_radius_z_km
00062 i=i+1; def_quantities_real_(i,impt) = rho_c_cgs
00063 i=i+1; def_quantities_real_(i,impt) = pre_c_cgs
00064 i=i+1; def_quantities_real_(i,impt) = epsi_c_cgs
00065 i=i+1; def_quantities_real_(i,impt) = q_c_cgs
00066 i=i+1; def_quantities_real_(i,impt) = rho_max_cgs
00067 i=i+1; def_quantities_real_(i,impt) = pre_max_cgs
00068 i=i+1; def_quantities_real_(i,impt) = epsi_max_cgs
00069 i=i+1; def_quantities_real_(i,impt) = q_max_cgs
00070 i=i+1; def_quantities_real_(i,impt) = zrb_xp_plus
00071 i=i+1; def_quantities_real_(i,impt) = zrb_xp_minus
00072 i=i+1; def_quantities_real_(i,impt) = zrb_yp_plus
00073 i=i+1; def_quantities_real_(i,impt) = zrb_yp_minus
00074 i=i+1; def_quantities_real_(i,impt) = zrb_zp_plus
00075 i=i+1; def_quantities_real_(i,impt) = zrb_zp_minus
00076 i=i+1; def_quantities_real_(i,impt) = dhdr_x
00077 i=i+1; def_quantities_real_(i,impt) = dhdr_y
00078 i=i+1; def_quantities_real_(i,impt) = dhdr_z
00079
00080 do ib = 1, 3
00081 do ia = 1, 3
00082 i=i+1; def_quantities_real_(i,impt) = Iij(ia, ib)
00083 i=i+1; def_quantities_real_(i,impt) = Itf(ia, ib)
00084 i=i+1; def_quantities_real_(i,impt) = dt1Itf(ia, ib)
00085 i=i+1; def_quantities_real_(i,impt) = dt2Itf(ia, ib)
00086 i=i+1; def_quantities_real_(i,impt) = dt3Itf(ia, ib)
00087 end do
00088 end do
00089
00090 i=i+1; def_quantities_real_(i,impt) = LGW
00091
00092 do ia = 1, 3
00093 i=i+1; def_quantities_real_(i,impt) = dJdt(ia)
00094 end do
00095
00096 i=i+1; def_quantities_real_(i,impt) = hplus
00097 i=i+1; def_quantities_real_(i,impt) = hcross
00098 end subroutine copy_def_quantities_to_mpt
