zio_uf_read_double

INTERFACE:

         integer function zio_uf_read_double(filedesc,distarray,arr,rec, &
      &                                      istart,icount,n)

DESCRIPTION:

Unformatted read

REVISION HISTORY:

       2003-Jan-31 -- first prototype

USES:

         implicit none

INPUT PARAMETERS:

         integer, intent(in):: filedesc, distarray
         integer, optional, intent(in) :: rec        ! global beg record number
                                                     ! (1-based)
         integer, optional, intent(in) :: istart(:), icount(:)
                                                     ! in local index order
         integer, optional, intent(in) :: n          ! # of elements in case of
                                                     !  replicated array

OUTPUT PARAMETERS:

         real(zio_r8), intent(out) :: arr(*)

\