GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
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