LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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:3128
Here is the call graph for this function: