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

/* Common Block Declarations */

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

#define mn_1 mn_

logical dlctsx_(doublereal *ar, doublereal *ai, doublereal *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 DDRGSX, do not */
/*  change the code UNLESS you are testing input examples and not */
/*  using the built-in examples. */

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

/*  AR      (input) DOUBLE PRECISION */
/*          The numerator of the real part of a complex eigenvalue */
/*          (AR/BETA) + i*(AI/BETA). */

/*  AI      (input) DOUBLE PRECISION */
/*          The numerator of the imaginary part of a complex eigenvalue */
/*          (AR/BETA) + i*(AI). */

/*  BETA    (input) DOUBLE PRECISION */
/*          The denominator part of a complex eigenvalue */
/*          (AR/BETA) + i*(AI/BETA). */

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

/*     .. 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( AR/BETA.GT.0.0 )THEN */
/*          DLCTSX = .TRUE. */
/*       ELSE */
/*          DLCTSX = .FALSE. */
/*       END IF */

    return ret_val;

/*     End of DLCTSX */

} /* dlctsx_ */