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