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

◆ cbeg()

 complex function cbeg ( logical RESET )

Definition at line 2673 of file c_cblat2.f.

2674*
2675* Generates complex numbers as pairs of random numbers uniformly
2676* distributed between -0.5 and 0.5.
2677*
2678* Auxiliary routine for test program for Level 2 Blas.
2679*
2680* -- Written on 10-August-1987.
2681* Richard Hanson, Sandia National Labs.
2682* Jeremy Du Croz, NAG Central Office.
2683*
2684* .. Scalar Arguments ..
2685 LOGICAL RESET
2686* .. Local Scalars ..
2687 INTEGER I, IC, J, MI, MJ
2688* .. Save statement ..
2689 SAVE i, ic, j, mi, mj
2690* .. Intrinsic Functions ..
2691 INTRINSIC cmplx
2692* .. Executable Statements ..
2693 IF( reset )THEN
2694* Initialize local variables.
2695 mi = 891
2696 mj = 457
2697 i = 7
2698 j = 7
2699 ic = 0
2700 reset = .false.
2701 END IF
2702*
2703* The sequence of values of I or J is bounded between 1 and 999.
2704* If initial I or J = 1,2,3,6,7 or 9, the period will be 50.
2705* If initial I or J = 4 or 8, the period will be 25.
2706* If initial I or J = 5, the period will be 10.
2707* IC is used to break up the period by skipping 1 value of I or J
2708* in 6.
2709*
2710 ic = ic + 1
2711 10 i = i*mi
2712 j = j*mj
2713 i = i - 1000*( i/1000 )
2714 j = j - 1000*( j/1000 )
2715 IF( ic.GE.5 )THEN
2716 ic = 0
2717 GO TO 10
2718 END IF
2719 cbeg = cmplx( ( i - 500 )/1001.0, ( j - 500 )/1001.0 )
2720 RETURN
2721*
2722* End of CBEG.
2723*
complex function cbeg(RESET)
Definition: cblat2.f:3156
Here is the call graph for this function: