MINICERN/mathlib/gen/c/besi0.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:00  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       FUNCTION BESI0(X)
  12       IMPLICIT DOUBLE PRECISION (D)
  13
  14       SROUND(D)=D+(D-SNGL(D))
  15       BESI0=SROUND(DBESI0(DBLE(X)))
  16       RETURN
  17
  18       ENTRY BESI1(X)
  19       BESI1=SROUND(DBESI1(DBLE(X)))
  20       RETURN
  21
  22       ENTRY EBESI0(X)
  23       EBESI0=SROUND(DEBSI0(DBLE(X)))
  24       RETURN
  25
  26       ENTRY EBESI1(X)
  27       EBESI1=SROUND(DEBSI1(DBLE(X)))
  28       RETURN
  29
  30       ENTRY BESK0(X)
  31       BESK0=SROUND(DBESK0(DBLE(X)))
  32       RETURN
  33
  34       ENTRY BESK1(X)
  35       BESK1=SROUND(DBESK1(DBLE(X)))
  36       RETURN
  37
  38       ENTRY EBESK0(X)
  39       EBESK0=SROUND(DEBSK0(DBLE(X)))
  40       RETURN
  41
  42       ENTRY EBESK1(X)
  43       EBESK1=SROUND(DEBSK1(DBLE(X)))
  44       RETURN
  45       END
  46 #endif