Searched refs:rc2f (Results 1 – 1 of 1) sorted by relevance
16 extern int rcchk_(integer *order, real *rc1f, real *rc2f);55 /* Subroutine */ int rcchk_(integer *order, real *rc1f, real *rc2f) in rcchk_() argument67 --rc2f; in rcchk_()73 if ((r__1 = rc2f[i__], abs(r__1)) > .99f) { in rcchk_()88 rc2f[i__] = rc1f[i__]; in rcchk_()