/*
       DOUBLE PRECISION FUNCTION UDOUBLE(UNSIGNED_INT)
C
C----------------------------------------------------------------------
C
C.IDENTIFICATION: Function read_time_32
C.LIBRARY:        GENERAL
C.AUTHOR:         D. Dal Fiume - TeSRE Bologna
C.VERSIONS:       0.1 - 01 Apr 95 - First operative version
C                 0.2 - 08 Nov 96 - change of name to UDOUBLE
C.PURPOSE:        stores a 32 bit UNSIGNED integer in a double float
C.METHOD:         cast
C.SYNTAX:         DOUBLEVAR = UDOUBLE(unsigned_int)
C.PARAMETERS:     INTEGER   unsigned_int     : 32 bit integer
C.RESTRICTIONS:   none
C.NOTES:
C.FILES:
C.REFERENCES
C
C----------------------------------------------------------------------
C
*/

#ifdef SYSV
   double udouble(unsigned_int)
#else
   double udouble_(unsigned_int)
#endif

   unsigned int *unsigned_int;
   {
     return (double) *unsigned_int;
   }