zio_to_iopes_double

INTERFACE:

         integer function zio_to_iopes_double(fin,fout,distarray,iocomm, &
      &                                       niopes,istart,icount,      &
      &                                       index_order)

DESCRIPTION:

Remaps distributed local arrays to Z-decomposed arrays on I/O staging PEs

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       2003-Jul-14 -- allowed multiple rectangular blocks per task;
                      made niopes, istart, icount, and index_order
                      optional arguments
       2003-Aug-16 -- support single task mode: ZIO_SPMD undefined

USES:

         implicit none

INPUT PARAMETERS:

         real(zio_r8), intent(in)  :: fin(0:*)      ! input field
         integer, intent(in) :: distarray           ! array dist descriptor
         integer, intent(in) :: iocomm              ! I/O communicator object ID;
                                                    ! ignored for non-SPMD
         integer, intent(in), optional :: niopes    ! taget # of I/O PEs to use;
                                                    ! ignored for non-SPMD
         integer, intent(in), optional :: istart(:), icount(:) ! start and count
         integer, intent(in), optional :: index_order(:) ! output index order

OUTPUT PARAMETERS:

         real(zio_r8), intent(out) :: fout(0:*)     ! remapped array

\