real function sbeg

(

logical

RESET

)

Definition at line 2417 of file c_sblat3.f.

*
*  Generates random numbers uniformly distributed between -0.5 and 0.5.
*
*  Auxiliary routine for test program for Level 3 Blas.
*
*  -- Written on 8-February-1989.
*     Jack Dongarra, Argonne National Laboratory.
*     Iain Duff, AERE Harwell.
*     Jeremy Du Croz, Numerical Algorithms Group Ltd.
*     Sven Hammarling, Numerical Algorithms Group Ltd.
*
*     .. Scalar Arguments ..
      LOGICAL            reset
*     .. Local Scalars ..
      INTEGER            i, ic, mi
*     .. Save statement ..
      SAVE               i, ic, mi
*     .. Executable Statements ..
      IF( reset )THEN
*        Initialize local variables.
         mi = 891
         i = 7
         ic = 0
         reset = .false.
      END IF
*
*     The sequence of values of I is bounded between 1 and 999.
*     If initial I = 1,2,3,6,7 or 9, the period will be 50.
*     If initial I = 4 or 8, the period will be 25.
*     If initial I = 5, the period will be 10.
*     IC is used to break up the period by skipping 1 value of I in 6.
*
      ic = ic + 1
   10 i = i*mi
      i = i - 1000*( i/1000 )
      IF( ic.GE.5 )THEN
         ic = 0
         GO TO 10
      END IF
      sbeg = ( i - 500 )/1001.0
      RETURN
*
*     End of SBEG.
*

Here is the call graph for this function: