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