MINICERN/mathlib/gen/c/besj0128.F

   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