zio_new_distarray

INTERFACE:

         integer function zio_new_distarray(distarray,nblks,ndims,loff,  &
      &                                    lsize,ghstl,ghstr,index_order)

DESCRIPTION:

Create a descriptor for a distributed array made of nblks disjoint rectangular blocks of ndims dimensions whose offsets, local sizes, LHS ghost nodes, RHS ghost nodes and the output order are given respectively by loff(1:ndims,1:nblks), lsize(1:ndims,1:nblks), ghstl(1:ndims), ghstr(1:ndims), and index_order(1:ndims).

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       2003-Jul-14 -- allowed multiple rectangular blocks per task
       2003-Aug-16 -- support single task mode: ZIO_SPMD undefined

USES:

         implicit none

OUTPUT PARAMETERS:

         integer, intent(out) :: distarray             ! dist array obj

INPUT PARAMETERS:

         integer, intent(in)  :: nblks                 ! number of rect blocks
         integer, intent(in)  :: ndims                 ! number of dimensions
         integer, intent(in)  :: loff(*)               ! local offsets
         integer, intent(in)  :: lsize(*)              ! local sizes
         integer, optional, intent(in) :: ghstl(ndims)       ! LHS ghost nodes
         integer, optional, intent(in) :: ghstr(ndims)       ! RHS ghost nodes
         integer, optional, intent(in) :: index_order(ndims) ! index order
         integer, optional, intent(in) :: ghstl(*)       ! LHS ghost nodes
         integer, optional, intent(in) :: ghstr(*)       ! RHS ghost nodes
         integer, optional, intent(in) :: index_order(*) ! index order

\