zio_nf_put_att_real

INTERFACE:

         integer function zio_nf_put_att_real(filedesc,varid,name,       &
      &                                       xtype,length,rvals)

DESCRIPTION:

Puts the given real*4 attribute value to variable ID.

REVISION HISTORY:

       2003-Jan-31 -- first prototype

INPUT PARAMETERS:

         implicit none
         integer, intent(in):: filedesc
         integer, intent(in):: varid
         character(len=*), intent(in):: name
         integer, intent(in):: xtype
         integer, intent(in):: length
 #ifdef ZIO_CRAY
         real(zio_r8), intent(in):: rvals(*)
 #else
         real(zio_r4), intent(in):: rvals(*)
 #endif

\