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