MINICERN/mathlib/gen/c/bsir3128.F

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