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

◆ dbeg()

double precision function dbeg ( logical  RESET)

Definition at line 2846 of file c_dblat2.f.

2847*
2848* Generates random numbers uniformly distributed between -0.5 and 0.5.
2849*
2850* Auxiliary routine for test program for Level 2 Blas.
2851*
2852* -- Written on 10-August-1987.
2853* Richard Hanson, Sandia National Labs.
2854* Jeremy Du Croz, NAG Central Office.
2855*
2856* .. Scalar Arguments ..
2857 LOGICAL RESET
2858* .. Local Scalars ..
2859 INTEGER I, IC, MI
2860* .. Save statement ..
2861 SAVE i, ic, mi
2862* .. Intrinsic Functions ..
2863 INTRINSIC dble
2864* .. Executable Statements ..
2865 IF( reset )THEN
2866* Initialize local variables.
2867 mi = 891
2868 i = 7
2869 ic = 0
2870 reset = .false.
2871 END IF
2872*
2873* The sequence of values of I is bounded between 1 and 999.
2874* If initial I = 1,2,3,6,7 or 9, the period will be 50.
2875* If initial I = 4 or 8, the period will be 25.
2876* If initial I = 5, the period will be 10.
2877* IC is used to break up the period by skipping 1 value of I in 6.
2878*
2879 ic = ic + 1
2880 10 i = i*mi
2881 i = i - 1000*( i/1000 )
2882 IF( ic.GE.5 )THEN
2883 ic = 0
2884 GO TO 10
2885 END IF
2886 dbeg = dble( i - 500 )/1001.0d0
2887 RETURN
2888*
2889* End of DBEG.
2890*
double precision function dbeg(RESET)
Definition: dblat2.f:3059
Here is the call graph for this function: