zio_nf_put_var1_double

INTERFACE:

         integer function zio_nf_put_var1_double(filedesc,varid,indx,    &
      &                                          dval)

DESCRIPTION:

Puts the given real*8 variable at the specified location in an output file.

REVISION HISTORY:

       2003-Jan-31 -- first prototype

INPUT PARAMETERS:

         implicit none
         integer, intent(in) :: filedesc
         integer, intent(in) :: indx(*)
         integer, intent(in) :: varid
         real(zio_r8), intent(in) :: dval

\