]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1995/10/24 10:20:32 cernlib | |
6 | * Geant | |
7 | * | |
8 | * | |
9 | #ifndef CERNLIB_GEANT321_GCONSP_INC | |
10 | #define CERNLIB_GEANT321_GCONSP_INC | |
11 | * | |
12 | * | |
13 | * gconsp.inc | |
14 | * | |
15 | #if !defined(CERNLIB_INCLUDE) | |
16 | #if defined(CERNLIB_SINGLE) | |
17 | REAL PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS | |
18 | REAL EMMU,PMASS,AVO | |
19 | * | |
20 | PARAMETER (PI=3.14159265358979324) | |
21 | PARAMETER (TWOPI=6.28318530717958648) | |
22 | PARAMETER (PIBY2=1.57079632679489662) | |
23 | PARAMETER (DEGRAD=0.0174532925199432958) | |
24 | PARAMETER (RADDEG=57.2957795130823209) | |
25 | PARAMETER (CLIGHT=29979245800.) | |
26 | PARAMETER (BIG=10000000000.) | |
27 | PARAMETER (EMASS=0.00051099906) | |
28 | PARAMETER (EMMU=0.105658389) | |
29 | PARAMETER (PMASS=0.93827231) | |
30 | PARAMETER (AVO=0.60221367) | |
31 | * | |
32 | #endif | |
33 | #endif | |
34 | #if !defined(CERNLIB_INCLUDE) | |
35 | #if !defined(CERNLIB_SINGLE) | |
36 | DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS | |
37 | DOUBLE PRECISION EMMU,PMASS,AVO | |
38 | * | |
39 | PARAMETER (PI=3.14159265358979324D0) | |
40 | PARAMETER (TWOPI=6.28318530717958648D0) | |
41 | PARAMETER (PIBY2=1.57079632679489662D0) | |
42 | PARAMETER (DEGRAD=0.0174532925199432958D0) | |
43 | PARAMETER (RADDEG=57.2957795130823209D0) | |
44 | PARAMETER (CLIGHT=29979245800.D0) | |
45 | PARAMETER (BIG=10000000000.D0) | |
46 | PARAMETER (EMASS=0.0005109990615D0) | |
47 | PARAMETER (EMMU=0.105658387D0) | |
48 | PARAMETER (PMASS=0.9382723128D0) | |
49 | PARAMETER (AVO=0.60221367D0) | |
50 | * | |
51 | #endif | |
52 | #endif | |
53 | * | |
54 | * gconsp.inc | |
55 | * | |
56 | #if defined(CERNLIB_INCLUDE) | |
57 | * | |
58 | #include "geant321/incbeg.inc" | |
59 | + gconsp | |
60 | #include "geant321/incend.inc" | |
61 | #endif | |
62 | ||
63 | #endif |