GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
qrgnin.f
Go to the documentation of this file.
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
qrgnin
logical function qrgnin()
Definition: qrgnin.f:2