MINICERN/mathlib/gen/c/bska.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       SUBROUTINE BSKA(X,IA,JA,NL,B)
  12       DOUBLE PRECISION D,DB(0:100)
  13       DIMENSION B(0:*)
  14
  15       SROUND(D)=D+(D-SNGL(D))
  16
  17       CALL DBSKA(DBLE(X),IA,JA,NL,DB)
  18       GO TO 9
  19
  20       ENTRY EBSKA(X,IA,JA,NL,B)
  21
  22       CALL DEBKA(DBLE(X),IA,JA,NL,DB)
  23     9 DO 1 N = 1,NL
  24     1 B(N)=SROUND(DB(N))
  25       RETURN
  26       END
  27 #endif