5 * Revision 1.1.1.1 1996/04/01 15:02:22 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE RFRDH1(F,G,M,TV,NGTV,WS,IDIM,N)
13 CALL MTLPRT('RFRDH1','D601.0','Not available on this machine')
16 ENTRY RFRDH2(F,G,X,WS,IDIM,N)
17 CALL MTLPRT('RFRDH2','D601.0','Not available on this machine')
20 ENTRY RFRDH3(H,WS,IDIM,N)
21 CALL MTLPRT('RFRDH3','D601.0','Not available on this machine')