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