home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / ranlib / qrgnin.f < prev    next >
Text File  |  1996-09-28  |  1KB  |  49 lines
  1.       LOGICAL FUNCTION qrgnin()
  2. C**********************************************************************
  3. C
  4. C     LOGICAL FUNCTION QRGNIN()
  5. C               Q Random GeNerators INitialized?
  6. C
  7. C     A trivial routine to determine whether or not the random
  8. C     number generator has been initialized.  Returns .TRUE. if
  9. C     it has, else .FALSE.
  10. C
  11. C**********************************************************************
  12. C     .. Scalar Arguments ..
  13.       LOGICAL qvalue
  14. C     ..
  15. C     .. Local Scalars ..
  16.       LOGICAL qinit
  17. C     ..
  18. C     .. Entry Points ..
  19.       LOGICAL qrgnsn
  20. C     ..
  21. C     .. Save statement ..
  22.       SAVE qinit
  23. C     ..
  24. C     .. Data statements ..
  25.       DATA qinit/.FALSE./
  26. C     ..
  27. C     .. Executable Statements ..
  28.       qrgnin = qinit
  29.       RETURN
  30.  
  31.       ENTRY qrgnsn(qvalue)
  32. C**********************************************************************
  33. C
  34. C     LOGICAL FUNCTION QRGNSN( QVALUE )
  35. C               Q Random GeNerators Set whether iNitialized
  36. C
  37. C     Sets state of whether random number generator is initialized
  38. C     to QVALUE.
  39. C
  40. C     This routine is actually an entry in QRGNIN, hence it is a
  41. C     logical function.  It returns the (meaningless) value .TRUE.
  42. C
  43. C**********************************************************************
  44.       qinit = qvalue
  45.       qrgnsn = .TRUE.
  46.       RETURN
  47.  
  48.       END
  49.