zio_nf_get_var_double

INTERFACE:

         integer function zio_nf_get_var_double(filedesc,varid,dvals,    &
      &                                         distarray)

DESCRIPTION:

Gets the given real*8 variable from an input 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
         integer, optional, intent(in) :: distarray

OUTPUT PARAMETERS:

         real(zio_r8), intent(out) :: dvals(*)

\