5 * Revision 1.1.1.1 1996/04/01 15:02:28 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE RCHECF(F,A,B,EPS,C,NC,DELTA)
14 PARAMETER (NAME = 'RCHECF')
15 ENTRY CHECF(F,A,B,EPS,C,NC,DELTA)
16 CALL MTLPRT(NAME,'E406.0','Not available on this machine')