LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ cbeg()

 complex function cbeg ( logical reset )

Definition at line 3155 of file cblat2.f.

3156*
3157* Generates complex numbers as pairs of random numbers uniformly
3158* distributed between -0.5 and 0.5.
3159*
3160* Auxiliary routine for test program for Level 2 Blas.
3161*
3162* -- Written on 10-August-1987.
3163* Richard Hanson, Sandia National Labs.
3164* Jeremy Du Croz, NAG Central Office.
3165*
3166* .. Scalar Arguments ..
3167 LOGICAL RESET
3168* .. Local Scalars ..
3169 INTEGER I, IC, J, MI, MJ
3170* .. Save statement ..
3171 SAVE i, ic, j, mi, mj
3172* .. Intrinsic Functions ..
3173 INTRINSIC cmplx
3174* .. Executable Statements ..
3175 IF( reset )THEN
3176* Initialize local variables.
3177 mi = 891
3178 mj = 457
3179 i = 7
3180 j = 7
3181 ic = 0
3182 reset = .false.
3183 END IF
3184*
3185* The sequence of values of I or J is bounded between 1 and 999.
3186* If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
3187* If initial I or J = 4 or 8, the period will be 25.
3188* If initial I or J = 5, the period will be 10.
3189* IC is used to break up the period by skipping 1 value of I or J
3190* in 6.
3191*
3192 ic = ic + 1
3193 10 i = i*mi
3194 j = j*mj
3195 i = i - 1000*( i/1000 )
3196 j = j - 1000*( j/1000 )
3197 IF( ic.GE.5 )THEN
3198 ic = 0
3199 GO TO 10
3200 END IF
3201 cbeg = cmplx( ( i - 500 )/1001.0, ( j - 500 )/1001.0 )
3202 RETURN
3203*
3204* End of CBEG
3205*
complex function cbeg(reset)
Definition cblat2.f:3156
Here is the call graph for this function:
Here is the caller graph for this function: