[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / besj0128.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:01:59  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if !defined(CERNLIB_DOUBLE)
      FUNCTION DBESJ0(X)
#include "gen/imp128.inc"
      CHARACTER*(*) NAME1, NAME2, NAME3, NAME4
      PARAMETER( NAME1='DBESJ0')
      PARAMETER( NAME2='DBESJ1')
      PARAMETER( NAME3='DBESY0')
      PARAMETER( NAME4='DBESY1')
      DBESJ0=0
      CALL MTLPRT(NAME1,'C312.0','Not available on this machine')
      RETURN

      ENTRY DBESJ1(X)
      DBESJ1=0
      CALL MTLPRT(NAME2,'C312.0','Not available on this machine')
      RETURN

      ENTRY DBESY0(X)
      DBESY0=0
      CALL MTLPRT(NAME3,'C312.0','Not available on this machine')
      RETURN

      ENTRY DBESY1(X)
      DBESY1=0
      CALL MTLPRT(NAME4,'C312.0','Not available on this machine')
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:01:59 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if !defined(CERNLIB_DOUBLE)
	11	FUNCTION DBESJ0(X)
	12	#include "gen/imp128.inc"
	13	CHARACTER() NAME1, NAME2, NAME3, NAME4
	14	PARAMETER( NAME1='DBESJ0')
	15	PARAMETER( NAME2='DBESJ1')
	16	PARAMETER( NAME3='DBESY0')
	17	PARAMETER( NAME4='DBESY1')
	18	DBESJ0=0
	19	CALL MTLPRT(NAME1,'C312.0','Not available on this machine')
	20	RETURN
	21
	22	ENTRY DBESJ1(X)
	23	DBESJ1=0
	24	CALL MTLPRT(NAME2,'C312.0','Not available on this machine')
	25	RETURN
	26
	27	ENTRY DBESY0(X)
	28	DBESY0=0
	29	CALL MTLPRT(NAME3,'C312.0','Not available on this machine')
	30	RETURN
	31
	32	ENTRY DBESY1(X)
	33	DBESY1=0
	34	CALL MTLPRT(NAME4,'C312.0','Not available on this machine')
	35	RETURN
	36	END
	37	#endif