29 #ifdef P_R_O_T_O_T_Y_P_E_S
30 extern int rcchk_(integer *order, real *rc1f, real *rc2f);
82 int rcchk_(integer *order, real *rc1f, real *rc2f)
99 for (i__ = 1; i__ <= i__1; ++i__) {
100 if ((r__1 = rc2f[i__], abs(r__1)) > .99f) {
114 for (i__ = 1; i__ <= i__1; ++i__) {
115 rc2f[i__] = rc1f[i__];