00001 subroutine copy_grid_parameter_interpo_from_mpt(impt)
00002 use grid_parameter_interpo
00003 use grid_parameter_mpt, only : grid_param_int_, grid_param_real_
00004 implicit none
00005 integer :: i, impt
00006
00007 i=0
00008 i=i+1; nrg_itp = grid_param_int_(i,impt)
00009 i=i+1; ntg_itp = grid_param_int_(i,impt)
00010 i=i+1; npg_itp = grid_param_int_(i,impt)
00011
00012 i=0
00013 i=i+1; rgin_itp = grid_param_real_(i,impt)
00014 i=i+1; rgmid_itp = grid_param_real_(i,impt)
00015 i=i+1; rgout_itp = grid_param_real_(i,impt)
00016 i=i+1; ratio_itp = grid_param_real_(i,impt)
00017
00018 end subroutine copy_grid_parameter_interpo_from_mpt
