/home/uryu/Cocal_svn_checkinout/Cocal/code/Module/make_array_3d.f90
Go to the documentation of this file.00001 ! ---------------------------------------------------------------------- 00002 ! Allocate array 00003 ! ---------------------------------------------------------------------- 00004 module make_array_3d 00005 use phys_constant, only : long 00006 implicit none 00007 contains 00008 ! - - - - - 00009 ! 3D array 00010 subroutine alloc_array3d(array,n1min,n1max,n2min,n2max,n3min,n3max) 00011 implicit none 00012 integer,Intent(IN) :: n1min, n1max, n2min, n2max, n3min, n3max 00013 integer :: status 00014 Real(long), Pointer :: array(:,:,:) 00015 Allocate(array(n1min:n1max,n2min:n2max,n3min:n3max),stat=status) 00016 end subroutine alloc_array3d 00017 end module make_array_3d
