LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dbeg()

double precision function dbeg ( logical  RESET)

Definition at line 3030 of file dblat2.f.

3031 *
3032 * Generates random numbers uniformly distributed between -0.5 and 0.5.
3033 *
3034 * Auxiliary routine for test program for Level 2 Blas.
3035 *
3036 * -- Written on 10-August-1987.
3037 * Richard Hanson, Sandia National Labs.
3038 * Jeremy Du Croz, NAG Central Office.
3039 *
3040 * .. Scalar Arguments ..
3041  LOGICAL RESET
3042 * .. Local Scalars ..
3043  INTEGER I, IC, MI
3044 * .. Save statement ..
3045  SAVE i, ic, mi
3046 * .. Intrinsic Functions ..
3047  INTRINSIC dble
3048 * .. Executable Statements ..
3049  IF( reset )THEN
3050 * Initialize local variables.
3051  mi = 891
3052  i = 7
3053  ic = 0
3054  reset = .false.
3055  END IF
3056 *
3057 * The sequence of values of I is bounded between 1 and 999.
3058 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
3059 * If initial I = 4 or 8, the period will be 25.
3060 * If initial I = 5, the period will be 10.
3061 * IC is used to break up the period by skipping 1 value of I in 6.
3062 *
3063  ic = ic + 1
3064  10 i = i*mi
3065  i = i - 1000*( i/1000 )
3066  IF( ic.GE.5 )THEN
3067  ic = 0
3068  GO TO 10
3069  END IF
3070  dbeg = dble( i - 500 )/1001.0d0
3071  RETURN
3072 *
3073 * End of DBEG
3074 *
double precision function dbeg(RESET)
Definition: dblat2.f:3031
Here is the caller graph for this function: