zio_nf_put_var_real

INTERFACE:

         integer function zio_nf_put_var_real(filedesc,varid,rvals,      &
      &                                       distarray)

DESCRIPTION:

Puts the given real*4 variable to an output file.

REVISION HISTORY:

       2003-Jan-31 -- first prototype
       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
 #ifdef ZIO_CRAY
         real(zio_r8), intent(in) :: rvals(*)
 #else
         real(zio_r4), intent(in) :: rvals(*)
 #endif

\