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
1.7.1
