rcchk.c File Reference

#include "f2c.h"

Include dependency graph for rcchk.c:

Go to the source code of this file.

Functions
int	rcchk_ (integer *order, real *rc1f, real *rc2f)

Function Documentation

rcchk_()

int rcchk_	(	integer *	order,
		real *	rc1f,
		real *	rc2f
	)

Definition at line 82 of file rcchk.c.

{
    /* System generated locals */
    integer i__1;
    real r__1;
 
    /* Local variables */
    integer i__;
 
/*       Arguments */
/*       Local variables that need not be saved */
    /* Parameter adjustments */
    --rc2f;
    --rc1f;
 
    /* Function Body */
    i__1 = *order;
    for (i__ = 1; i__ <= i__1; ++i__) {
    if ((r__1 = rc2f[i__], abs(r__1)) > .99f) {
        goto L10;
    }
    }
    return 0;
/*       Note: In version embedded in other software, all calls to ERROR
*/
/*       should probably be removed. */
L10:
 
/*       This call to ERROR is only needed for debugging purposes. */
 
/*       CALL ERROR('RCCHK',2,I) */
    i__1 = *order;
    for (i__ = 1; i__ <= i__1; ++i__) {
    rc2f[i__] = rc1f[i__];
    }
    return 0;
} /* rcchk_ */

References abs, and order.

Referenced by analys_().