qrgnin.f

Go to the documentation of this file.
00001       LOGICAL FUNCTION qrgnin()
00002 C**********************************************************************
00003 C
00004 C     LOGICAL FUNCTION QRGNIN()
00005 C               Q Random GeNerators INitialized?
00006 C
00007 C     A trivial routine to determine whether or not the random
00008 C     number generator has been initialized.  Returns .TRUE. if
00009 C     it has, else .FALSE.
00010 C
00011 C**********************************************************************
00012 C     .. Scalar Arguments ..
00013       LOGICAL qvalue
00014 C     ..
00015 C     .. Local Scalars ..
00016       LOGICAL qinit
00017 C     ..
00018 C     .. Entry Points ..
00019       LOGICAL qrgnsn
00020 C     ..
00021 C     .. Save statement ..
00022       SAVE qinit
00023 C     ..
00024 C     .. Data statements ..
00025       DATA qinit/.FALSE./
00026 C     ..
00027 C     .. Executable Statements ..
00028       qrgnin = qinit
00029       RETURN
00030 
00031       ENTRY qrgnsn(qvalue)
00032 C**********************************************************************
00033 C
00034 C     LOGICAL FUNCTION QRGNSN( QVALUE )
00035 C               Q Random GeNerators Set whether iNitialized
00036 C
00037 C     Sets state of whether random number generator is initialized
00038 C     to QVALUE.
00039 C
00040 C     This routine is actually an entry in QRGNIN, hence it is a
00041 C     logical function.  It returns the (meaningless) value .TRUE.
00042 C
00043 C**********************************************************************
00044       qinit = qvalue
00045       qrgnsn = .TRUE.
00046       RETURN
00047 
00048       END
 All Classes Files Functions Variables Typedefs Enumerations Enumerator Friends Defines