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