zio_uf_write_real

INTERFACE:

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

DESCRIPTION:

Unformatted write

REVISION HISTORY:

       2003-Jan-31 -- first prototype

USES:

         implicit none

INPUT PARAMETERS:

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

\