zio_uf_write_double

INTERFACE:

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

DESCRIPTION:

Unformatted write

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       2003-Aug-14 -- added partial support of filling dataset

USES:

         implicit none

INPUT PARAMETERS:

         integer, intent(in):: filedesc, distarray
         real(zio_r8), intent(in) :: arr(*)
         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
         real(zio_r8), optional, intent(in) :: fillvalue

\