!======================================================================!
  REAL FUNCTION Rnd (r)
!----------------------------------------------------------------------!
!   Computes random double precision number in the range 0.0-1.0.      !
!----------------------------------------------------------------------!
!-----------------------------[Parameters]-----------------------------!
  INTEGER :: r
!--------------------------------[CVS]---------------------------------!
!  $Id: Rnd.f90,v 1.4 2002/10/30 16:29:33 niceno Exp $
!  $Source: /home/muhamed/.CVSROOT/T-Rex/Library/Rnd.f90,v $
!======================================================================!

  call init_random_seed(r)
  call random_number(rnd)

  END FUNCTION Rnd
