ISAJET/isajet/pi.inc

   1 #ifndef CERNLIB_ISAJET_PI_INC
   2 #define CERNLIB_ISAJET_PI_INC
   3 *
   4 *
   5 * pi.inc
   6 *
   7         DOUBLE PRECISION PI, TWOPI, HALFPI, RADIAN
   8 C
   9 C last significant (correctly rounded) decimal place on VAX:
  10 C                                                |
  11 C                                                V
  12         PARAMETER (PI=        3.1415 92653 58979 32384 6)
  13         PARAMETER (TWOPI=     6.2831 85307 17958 64769 3)
  14         PARAMETER (HALFPI=    1.5707 96326 79489 66192 3)
  15         PARAMETER (RADIAN= 0.0174532 92519 94329 5769237)
  16
  17 #endif