LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ dbeg()

double precision function dbeg ( logical  reset)

Definition at line 3058 of file dblat2.f.

3059*
3060* Generates random numbers uniformly distributed between -0.5 and 0.5.
3061*
3062* Auxiliary routine for test program for Level 2 Blas.
3063*
3064* -- Written on 10-August-1987.
3065* Richard Hanson, Sandia National Labs.
3066* Jeremy Du Croz, NAG Central Office.
3067*
3068* .. Scalar Arguments ..
3069 LOGICAL RESET
3070* .. Local Scalars ..
3071 INTEGER I, IC, MI
3072* .. Save statement ..
3073 SAVE i, ic, mi
3074* .. Intrinsic Functions ..
3075 INTRINSIC dble
3076* .. Executable Statements ..
3077 IF( reset )THEN
3078* Initialize local variables.
3079 mi = 891
3080 i = 7
3081 ic = 0
3082 reset = .false.
3083 END IF
3084*
3085* The sequence of values of I is bounded between 1 and 999.
3086* If initial I = 1,2,3,6,7 or 9, the period will be 50.
3087* If initial I = 4 or 8, the period will be 25.
3088* If initial I = 5, the period will be 10.
3089* IC is used to break up the period by skipping 1 value of I in 6.
3090*
3091 ic = ic + 1
3092 10 i = i*mi
3093 i = i - 1000*( i/1000 )
3094 IF( ic.GE.5 )THEN
3095 ic = 0
3096 GO TO 10
3097 END IF
3098 dbeg = dble( i - 500 )/1001.0d0
3099 RETURN
3100*
3101* End of DBEG
3102*
double precision function dbeg(reset)
Definition dblat2.f:3059
Here is the call graph for this function:
Here is the caller graph for this function: