00001 subroutine copy_def_matter_parameter_to_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; def_matter_param_real_(i,impt) = pinx
00009 i=i+1; def_matter_param_real_(i,impt) = emdc
00010 i=i+1; def_matter_param_real_(i,impt) = ome
00011 i=i+1; def_matter_param_real_(i,impt) = ber
00012 i=i+1; def_matter_param_real_(i,impt) = radi
00013 i=i+1; def_matter_param_real_(i,impt) = A2DR
00014 i=i+1; def_matter_param_real_(i,impt) = index_DR
00015 i=i+1; def_matter_param_real_(i,impt) = velx
00016 i=i+1; def_matter_param_real_(i,impt) = delome
00017 i=i+1; def_matter_param_real_(i,impt) = delvel
00018
00019 i=0
00020 i=i+1; def_matter_param_char2_(i,impt) = ROT_LAW
00021
00022 end subroutine copy_def_matter_parameter_to_mpt
