MINICERN/mathlib/gen/c/rtheta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:12  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       FUNCTION RTHETA( K, X, Q )
  12       DOUBLE PRECISION D,DTHETA
  13 C
  14 C  RTHETA is set equal to the correctly rounded value of DTHETA.
  15 C  (Version 9.04.1992)
  16 C
  17 C--Start.
  18       D = DTHETA( K, DBLE(X), DBLE(Q) )
  19       RTHETA = D + ( D - SNGL(D) )
  20       RETURN
  21       END
  22 #endif