LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dbeg()

double precision function dbeg ( logical  RESET)

Definition at line 2412 of file c_dblat3.f.

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