00001 subroutine copy_grid_parameter_from_mpt(impt)
00002 use grid_parameter_mpt
00003 use grid_parameter
00004 implicit none
00005 integer :: i, impt
00006
00007 i=0
00008 i=i+1; nrg = grid_param_int_(i,impt)
00009 i=i+1; ntg = grid_param_int_(i,impt)
00010 i=i+1; npg = grid_param_int_(i,impt)
00011 i=i+1; nlg = grid_param_int_(i,impt)
00012 i=i+1; nrf = grid_param_int_(i,impt)
00013 i=i+1; ntf = grid_param_int_(i,impt)
00014 i=i+1; npf = grid_param_int_(i,impt)
00015 i=i+1; nlf = grid_param_int_(i,impt)
00016 i=i+1; nrf_deform = grid_param_int_(i,impt)
00017 i=i+1; nrgin = grid_param_int_(i,impt)
00018 i=i+1; ntgpolp = grid_param_int_(i,impt)
00019 i=i+1; ntgpolm = grid_param_int_(i,impt)
00020 i=i+1; ntgeq = grid_param_int_(i,impt)
00021 i=i+1; ntgxy = grid_param_int_(i,impt)
00022 i=i+1; npgxzp = grid_param_int_(i,impt)
00023 i=i+1; npgxzm = grid_param_int_(i,impt)
00024 i=i+1; npgyzp = grid_param_int_(i,impt)
00025 i=i+1; npgyzm = grid_param_int_(i,impt)
00026 i=i+1; ntfpolp = grid_param_int_(i,impt)
00027 i=i+1; ntfpolm = grid_param_int_(i,impt)
00028 i=i+1; ntfeq = grid_param_int_(i,impt)
00029 i=i+1; ntfxy = grid_param_int_(i,impt)
00030 i=i+1; npfxzp = grid_param_int_(i,impt)
00031 i=i+1; npfxzm = grid_param_int_(i,impt)
00032 i=i+1; npfyzp = grid_param_int_(i,impt)
00033 i=i+1; npfyzm = grid_param_int_(i,impt)
00034 i=i+1; iter_max = grid_param_int_(i,impt)
00035 i=i+1; num_sol_seq = grid_param_int_(i,impt)
00036 i=i+1; deform_par = grid_param_int_(i,impt)
00037
00038 i=0
00039 i=i+1; indata_type = grid_param_char2_(i,impt)
00040 i=i+1; outdata_type = grid_param_char2_(i,impt)
00041 i=i+1; NS_shape = grid_param_char2_(i,impt)
00042 i=i+1; EQ_point = grid_param_char2_(i,impt)
00043
00044 i=0
00045 i=i+1; chrot = grid_param_char1_(i,impt)
00046 i=i+1; chgra = grid_param_char1_(i,impt)
00047 i=i+1; chope = grid_param_char1_(i,impt)
00048 i=i+1; sw_mass_iter = grid_param_char1_(i,impt)
00049 i=i+1; sw_art_deform = grid_param_char1_(i,impt)
00050
00051 i=0
00052 i=i+1; rgin = grid_param_real_(i,impt)
00053 i=i+1; rgmid = grid_param_real_(i,impt)
00054 i=i+1; rgout = grid_param_real_(i,impt)
00055 i=i+1; ratio = grid_param_real_(i,impt)
00056 i=i+1; conv_gra = grid_param_real_(i,impt)
00057 i=i+1; conv_den = grid_param_real_(i,impt)
00058 i=i+1; conv_vep = grid_param_real_(i,impt)
00059 i=i+1; conv_ini = grid_param_real_(i,impt)
00060 i=i+1; conv0_gra = grid_param_real_(i,impt)
00061 i=i+1; conv0_den = grid_param_real_(i,impt)
00062 i=i+1; conv0_vep = grid_param_real_(i,impt)
00063 i=i+1; eps = grid_param_real_(i,impt)
00064 i=i+1; mass_eps = grid_param_real_(i,impt)
00065
00066 end subroutine copy_grid_parameter_from_mpt
