LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dbeg()

double precision function dbeg ( logical  RESET)

Definition at line 2720 of file dblat3.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  dbeg = ( i - 500 )/1001.0d0
2761  RETURN
2762 *
2763 * End of DBEG
2764 *
double precision function dbeg(RESET)
Definition: dblat2.f:3031
Here is the call graph for this function: