LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ dbeg()

double precision function dbeg ( logical  RESET)

Definition at line 3034 of file dblat2.f.

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