/home/uryu/Cocal_svn_checkinout/Cocal/code/Module_mpatch/copy_array_static_1dto0d_mpt.f90
Go to the documentation of this file.00001 ! ---------------------------------------------------------------------- 00002 ! Copy array 00003 ! ---------------------------------------------------------------------- 00004 module copy_array_static_1dto0d_mpt 00005 use phys_constant, only : long, nnmpt 00006 implicit none 00007 contains 00008 ! - - - - - 00009 ! 00010 subroutine copy_arraystatic_1dto0d_mpt(impt,array1,array2) 00011 implicit none 00012 integer, intent(in) :: impt 00013 real(long) :: array1(1:nnmpt), array2 00014 array2& 00015 & = array1(impt) 00016 end subroutine copy_arraystatic_1dto0d_mpt 00017 end module copy_array_static_1dto0d_mpt
