[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / rfrdh1.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:22  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      SUBROUTINE RFRDH1(F,G,M,TV,NGTV,WS,IDIM,N)
C
      CALL MTLPRT('RFRDH1','D601.0','Not available on this machine')
      RETURN
C
      ENTRY RFRDH2(F,G,X,WS,IDIM,N)
      CALL MTLPRT('RFRDH2','D601.0','Not available on this machine')
      RETURN
C
      ENTRY RFRDH3(H,WS,IDIM,N)
      CALL MTLPRT('RFRDH3','D601.0','Not available on this machine')
      RETURN
C
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:22 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_DOUBLE)
	11	SUBROUTINE RFRDH1(F,G,M,TV,NGTV,WS,IDIM,N)
	12	C
	13	CALL MTLPRT('RFRDH1','D601.0','Not available on this machine')
	14	RETURN
	15	C
	16	ENTRY RFRDH2(F,G,X,WS,IDIM,N)
	17	CALL MTLPRT('RFRDH2','D601.0','Not available on this machine')
	18	RETURN
	19	C
	20	ENTRY RFRDH3(H,WS,IDIM,N)
	21	CALL MTLPRT('RFRDH3','D601.0','Not available on this machine')
	22	RETURN
	23	C
	24	END
	25	#endif