00001 subroutine copy_grid_parameter_from_mpt(impt)
00002 use grid_parameter_mpt
00003 use grid_parameter
00004 use def_quantities
00005 implicit none
00006 integer :: i, impt
00007
00008 i=0
00009 i=i+1; nrg = grid_param_int_(i,impt)
00010 i=i+1; ntg = grid_param_int_(i,impt)
00011 i=i+1; npg = grid_param_int_(i,impt)
00012 i=i+1; nlg = grid_param_int_(i,impt)
00013 i=i+1; nrf = grid_param_int_(i,impt)
00014 i=i+1; ntf = grid_param_int_(i,impt)
00015 i=i+1; npf = grid_param_int_(i,impt)
00016 i=i+1; nlf = grid_param_int_(i,impt)
00017 i=i+1; nrf_deform = grid_param_int_(i,impt)
00018 i=i+1; nrgin = grid_param_int_(i,impt)
00019 i=i+1; ntgpolp = grid_param_int_(i,impt)
00020 i=i+1; ntgpolm = grid_param_int_(i,impt)
00021 i=i+1; ntgeq = grid_param_int_(i,impt)
00022 i=i+1; ntgxy = grid_param_int_(i,impt)
00023 i=i+1; npgxzp = grid_param_int_(i,impt)
00024 i=i+1; npgxzm = grid_param_int_(i,impt)
00025 i=i+1; npgyzp = grid_param_int_(i,impt)
00026 i=i+1; npgyzm = grid_param_int_(i,impt)
00027 i=i+1; ntfpolp = grid_param_int_(i,impt)
00028 i=i+1; ntfpolm = grid_param_int_(i,impt)
00029 i=i+1; ntfeq = grid_param_int_(i,impt)
00030 i=i+1; ntfxy = grid_param_int_(i,impt)
00031 i=i+1; npfxzp = grid_param_int_(i,impt)
00032 i=i+1; npfxzm = grid_param_int_(i,impt)
00033 i=i+1; npfyzp = grid_param_int_(i,impt)
00034 i=i+1; npfyzm = grid_param_int_(i,impt)
00035 i=i+1; iter_max = grid_param_int_(i,impt)
00036 i=i+1; num_sol_seq = grid_param_int_(i,impt)
00037 i=i+1; deform_par = grid_param_int_(i,impt)
00038
00039 i=0
00040 i=i+1; indata_type = grid_param_char2_(i,impt)
00041 i=i+1; outdata_type = grid_param_char2_(i,impt)
00042 i=i+1; NS_shape = grid_param_char2_(i,impt)
00043 i=i+1; EQ_point = grid_param_char2_(i,impt)
00044
00045 i=0
00046 i=i+1; chrot = grid_param_char1_(i,impt)
00047 i=i+1; chgra = grid_param_char1_(i,impt)
00048 i=i+1; chope = grid_param_char1_(i,impt)
00049 i=i+1; sw_mass_iter = grid_param_char1_(i,impt)
00050 i=i+1; sw_art_deform = grid_param_char1_(i,impt)
00051
00052 i=0
00053 i=i+1; rgin = grid_param_real_(i,impt)
00054 i=i+1; rgmid = grid_param_real_(i,impt)
00055 i=i+1; rgout = grid_param_real_(i,impt)
00056 i=i+1; ratio = grid_param_real_(i,impt)
00057 i=i+1; conv_gra = grid_param_real_(i,impt)
00058 i=i+1; conv_den = grid_param_real_(i,impt)
00059 i=i+1; conv_vep = grid_param_real_(i,impt)
00060 i=i+1; conv_ini = grid_param_real_(i,impt)
00061 i=i+1; conv0_gra = grid_param_real_(i,impt)
00062 i=i+1; conv0_den = grid_param_real_(i,impt)
00063 i=i+1; conv0_vep = grid_param_real_(i,impt)
00064 i=i+1; eps = grid_param_real_(i,impt)
00065 i=i+1; mass_eps = grid_param_real_(i,impt)
00066
00067 i=i+1; restmass_sph = grid_param_real_(i,impt)
00068 i=i+1; gravmass_sph = grid_param_real_(i,impt)
00069 i=i+1; MoverR_sph = grid_param_real_(i,impt)
00070 i=i+1; schwarz_radi_sph = grid_param_real_(i,impt)
00071
00072 i=0
00073 i=i+1; nrg_1 = surf_param_int_(i,impt)
00074 i=i+1; sw_sepa = surf_param_int_(i,impt)
00075 i=i+1; sw_quant = surf_param_int_(i,impt)
00076 i=i+1; sw_spin = surf_param_int_(i,impt)
00077
00078 i=0
00079 i=i+1; r_surf = surf_param_real_(i,impt)
00080 i=i+1; target_sepa = surf_param_real_(i,impt)
00081 i=i+1; target_qt = surf_param_real_(i,impt)
00082 i=i+1; target_sx = surf_param_real_(i,impt)
00083 i=i+1; target_sy = surf_param_real_(i,impt)
00084 i=i+1; target_sz = surf_param_real_(i,impt)
00085
00086 end subroutine copy_grid_parameter_from_mpt
