LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ cbeg()

complex function cbeg ( logical  RESET)

Definition at line 3127 of file cblat2.f.

3128 *
3129 * Generates complex numbers as pairs of random numbers uniformly
3130 * distributed between -0.5 and 0.5.
3131 *
3132 * Auxiliary routine for test program for Level 2 Blas.
3133 *
3134 * -- Written on 10-August-1987.
3135 * Richard Hanson, Sandia National Labs.
3136 * Jeremy Du Croz, NAG Central Office.
3137 *
3138 * .. Scalar Arguments ..
3139  LOGICAL RESET
3140 * .. Local Scalars ..
3141  INTEGER I, IC, J, MI, MJ
3142 * .. Save statement ..
3143  SAVE i, ic, j, mi, mj
3144 * .. Intrinsic Functions ..
3145  INTRINSIC cmplx
3146 * .. Executable Statements ..
3147  IF( reset )THEN
3148 * Initialize local variables.
3149  mi = 891
3150  mj = 457
3151  i = 7
3152  j = 7
3153  ic = 0
3154  reset = .false.
3155  END IF
3156 *
3157 * The sequence of values of I or J is bounded between 1 and 999.
3158 * If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3159 * If initial I or J = 4 or 8, the period will be 25.
3160 * If initial I or J = 5, the period will be 10.
3161 * IC is used to break up the period by skipping 1 value of I or J
3162 * in 6.
3163 *
3164  ic = ic + 1
3165  10 i = i*mi
3166  j = j*mj
3167  i = i - 1000*( i/1000 )
3168  j = j - 1000*( j/1000 )
3169  IF( ic.GE.5 )THEN
3170  ic = 0
3171  GO TO 10
3172  END IF
3173  cbeg = cmplx( ( i - 500 )/1001.0, ( j - 500 )/1001.0 )
3174  RETURN
3175 *
3176 * End of CBEG
3177 *
complex function cbeg(RESET)
Definition: cblat2.f:3128
Here is the caller graph for this function: