00001 subroutine copy_def_matter_parameter_from_mpt(impt)
00002 use def_matter_parameter_mpt
00003 use def_matter_parameter
00004 implicit none
00005 integer :: i, impt
00006
00007 i=0
00008 i=i+1; pinx = def_matter_param_real_(i,impt)
00009 i=i+1; emdc = def_matter_param_real_(i,impt)
00010 i=i+1; ome = def_matter_param_real_(i,impt)
00011 i=i+1; ber = def_matter_param_real_(i,impt)
00012 i=i+1; radi = def_matter_param_real_(i,impt)
00013 i=i+1; A2DR = def_matter_param_real_(i,impt)
00014 i=i+1; index_DR = def_matter_param_real_(i,impt)
00015 i=i+1; velx = def_matter_param_real_(i,impt)
00016 i=i+1; delome = def_matter_param_real_(i,impt)
00017 i=i+1; delvel = def_matter_param_real_(i,impt)
00018
00019 i=0
00020 i=i+1; ROT_LAW = def_matter_param_char2_(i,impt)
00021
00022 end subroutine copy_def_matter_parameter_from_mpt
