5 * Revision 1.1.1.1 1996/04/01 15:02:19 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE RDERIV(F,X,DELTA,DFDX,RERR)
14 PARAMETER (NAME = 'RDERIV')
15 ENTRY DERIV(F,X,DELTA,DFDX,RERR)
16 CALL MTLPRT(NAME,'C401.0','Not available on this machine')