#include "f2c.h"
#include "blaswrap.h"

/* Common Block Declarations */

struct {
    integer m, n, mplusn, i__;
    logical fs;
} mn_;

#define mn_1 mn_

logical zlctsx_(doublecomplex *alpha, doublecomplex *beta)
{
    /* System generated locals */
    logical ret_val;


/*  -- LAPACK test routine (version 3.1) -- */
/*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
/*     November 2006 */

/*     .. Scalar Arguments .. */
/*     .. */

/*  Purpose */
/*  ======= */

/*  This function is used to determine what eigenvalues will be */
/*  selected.  If this is part of the test driver ZDRGSX, do not */
/*  change the code UNLESS you are testing input examples and not */
/*  using the built-in examples. */

/*  Arguments */
/*  ========= */

/*  ALPHA   (input) COMPLEX*16 */
/*  BETA    (input) COMPLEX*16 */
/*          parameters to decide whether the pair (ALPHA, BETA) is */
/*          selected. */

/*  ===================================================================== */

/*     .. Parameters .. */
/*     DOUBLE PRECISION               ZERO */
/*     PARAMETER          ( ZERO = 0.0E+0 ) */
/*     COMPLEX*16            CZERO */
/*     PARAMETER          ( CZERO = ( 0.0E+0, 0.0E+0 ) ) */
/*     .. */
/*     .. Scalars in Common .. */
/*     .. */
/*     .. Common blocks .. */
/*     .. */
/*     .. Save statement .. */
/*     .. */
/*     .. Executable Statements .. */

    if (mn_1.fs) {
	++mn_1.i__;
	if (mn_1.i__ <= mn_1.m) {
	    ret_val = FALSE_;
	} else {
	    ret_val = TRUE_;
	}
	if (mn_1.i__ == mn_1.mplusn) {
	    mn_1.fs = FALSE_;
	    mn_1.i__ = 0;
	}
    } else {
	++mn_1.i__;
	if (mn_1.i__ <= mn_1.n) {
	    ret_val = TRUE_;
	} else {
	    ret_val = FALSE_;
	}
	if (mn_1.i__ == mn_1.mplusn) {
	    mn_1.fs = TRUE_;
	    mn_1.i__ = 0;
	}
    }

/*      IF( BETA.EQ.CZERO ) THEN */
/*         ZLCTSX = ( DBLE( ALPHA ).GT.ZERO ) */
/*      ELSE */
/*         ZLCTSX = ( DBLE( ALPHA/BETA ).GT.ZERO ) */
/*      END IF */

    return ret_val;

/*     End of ZLCTSX */

} /* zlctsx_ */