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

## ◆ sbeg()

 real function sbeg ( logical reset )

Definition at line 2720 of file sblat3.f.

2721*
2722* Generates random numbers uniformly distributed between -0.5 and 0.5.
2723*
2724* Auxiliary routine for test program for Level 3 Blas.
2725*
2726* -- Written on 8-February-1989.
2727* Jack Dongarra, Argonne National Laboratory.
2728* Iain Duff, AERE Harwell.
2729* Jeremy Du Croz, Numerical Algorithms Group Ltd.
2730* Sven Hammarling, Numerical Algorithms Group Ltd.
2731*
2732* .. Scalar Arguments ..
2733 LOGICAL RESET
2734* .. Local Scalars ..
2735 INTEGER I, IC, MI
2736* .. Save statement ..
2737 SAVE i, ic, mi
2738* .. Executable Statements ..
2739 IF( reset )THEN
2740* Initialize local variables.
2741 mi = 891
2742 i = 7
2743 ic = 0
2744 reset = .false.
2745 END IF
2746*
2747* The sequence of values of I is bounded between 1 and 999.
2748* If initial I = 1,2,3,6,7 or 9, the period will be 50.
2749* If initial I = 4 or 8, the period will be 25.
2750* If initial I = 5, the period will be 10.
2751* IC is used to break up the period by skipping 1 value of I in 6.
2752*
2753 ic = ic + 1
2754 10 i = i*mi
2755 i = i - 1000*( i/1000 )
2756 IF( ic.GE.5 )THEN
2757 ic = 0
2758 GO TO 10
2759 END IF
2760 sbeg = ( i - 500 )/1001.0
2761 RETURN
2762*
2763* End of SBEG
2764*
real function sbeg(reset)
Definition sblat2.f:3059
Here is the call graph for this function: