zio_nf_get_vara_real

INTERFACE:

         integer function zio_nf_get_vara_real(filedesc,varid,istart,    &
      &                                        icount,rvals,distarray)

DESCRIPTION:

Gets a range of the given real*4 variable from an input file.

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       2003-Feb-20 -- istart and icount changed to assumed-size arrays
       2003-Aug-13 -- minor change regarding broadcasting strategy
       2003-Aug-16 -- support single task mode: ZIO_SPMD undefined

INPUT PARAMETERS:

         implicit none
         integer, intent(in) :: filedesc
         integer, intent(in) :: varid
         integer, intent(in) :: istart(*), icount(*)  ! in output index order
         integer, optional, intent(in) :: distarray

INPUT PARAMETERS:

 #ifdef ZIO_CRAY
         real(zio_r8), intent(out) :: rvals(*)
 #else
         real(zio_r4), intent(out) :: rvals(*)
 #endif

REMARKS:

   istart and icount used to refer only to the array section in the
   netCDF data space in disk, but not array's memory space.  However,
   currently we let istart and icount refer to an array section in BOTH
   the netCDF data and memory space.  That is, an array section in
   netCDF data space is written from or read into the corresponding
   section of the global array.

\