Mercurial > hg > octave-nkf

view liboctave/cruft/ranlib/qrgnin.f @ 17173:3a23cbde59d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
interpft.m: Fix interpolation to preserve spectral symmetry (bug #39566) * interpft.m: Fix interpolation to preserve spectral symmetry, be compatible with Matlab. Add test cases.
author Mike Miller <mtmiller@ieee.org>
date Sun, 04 Aug 2013 17:27:40 -0400
parents 648dabbb4c6b
children
line wrap: on
line source

      LOGICAL FUNCTION qrgnin()
C**********************************************************************
C
C     LOGICAL FUNCTION QRGNIN()
C               Q Random GeNerators INitialized?
C
C     A trivial routine to determine whether or not the random
C     number generator has been initialized.  Returns .TRUE. if
C     it has, else .FALSE.
C
C**********************************************************************
C     .. Scalar Arguments ..
      LOGICAL qvalue
C     ..
C     .. Local Scalars ..
      LOGICAL qinit
C     ..
C     .. Entry Points ..
      LOGICAL qrgnsn
C     ..
C     .. Save statement ..
      SAVE qinit
C     ..
C     .. Data statements ..
      DATA qinit/.FALSE./
C     ..
C     .. Executable Statements ..
      qrgnin = qinit
      RETURN

      ENTRY qrgnsn(qvalue)
C**********************************************************************
C
C     LOGICAL FUNCTION QRGNSN( QVALUE )
C               Q Random GeNerators Set whether iNitialized
C
C     Sets state of whether random number generator is initialized
C     to QVALUE.
C
C     This routine is actually an entry in QRGNIN, hence it is a
C     logical function.  It returns the (meaningless) value .TRUE.
C
C**********************************************************************
      qinit = qvalue
      qrgnsn = .TRUE.
      RETURN

      END