LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sbeg()

real function sbeg ( logical  RESET)

Definition at line 2416 of file c_sblat3.f.

2417 *
2418 * Generates random numbers uniformly distributed between -0.5 and 0.5.
2419 *
2420 * Auxiliary routine for test program for Level 3 Blas.
2421 *
2422 * -- Written on 8-February-1989.
2423 * Jack Dongarra, Argonne National Laboratory.
2424 * Iain Duff, AERE Harwell.
2425 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2426 * Sven Hammarling, Numerical Algorithms Group Ltd.
2427 *
2428 * .. Scalar Arguments ..
2429  LOGICAL RESET
2430 * .. Local Scalars ..
2431  INTEGER I, IC, MI
2432 * .. Save statement ..
2433  SAVE i, ic, mi
2434 * .. Executable Statements ..
2435  IF( reset )THEN
2436 * Initialize local variables.
2437  mi = 891
2438  i = 7
2439  ic = 0
2440  reset = .false.
2441  END IF
2442 *
2443 * The sequence of values of I is bounded between 1 and 999.
2444 * If initial I = 1,2,3,6,7 or 9, the period will be 50.
2445 * If initial I = 4 or 8, the period will be 25.
2446 * If initial I = 5, the period will be 10.
2447 * IC is used to break up the period by skipping 1 value of I in 6.
2448 *
2449  ic = ic + 1
2450  10 i = i*mi
2451  i = i - 1000*( i/1000 )
2452  IF( ic.GE.5 )THEN
2453  ic = 0
2454  GO TO 10
2455  END IF
2456  sbeg = ( i - 500 )/1001.0
2457  RETURN
2458 *
2459 * End of SBEG.
2460 *
real function sbeg(RESET)
Definition: sblat2.f:3031
Here is the call graph for this function: