gpamela/gcdes/gconsp.inc

*
* $Id$
*
* $Log$
*
*
* gconsp.inc
*
#if defined(GPAMELA_SINGLE)
      REAL PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
      REAL EMMU,PMASS,AVO
*
      PARAMETER (PI=3.14159265358979324)
      PARAMETER (TWOPI=6.28318530717958648)
      PARAMETER (PIBY2=1.57079632679489662)
      PARAMETER (DEGRAD=0.0174532925199432958)
      PARAMETER (RADDEG=57.2957795130823209)
      PARAMETER (CLIGHT=29979245800.)
      PARAMETER (BIG=10000000000.)
      PARAMETER (EMASS=0.00051099906)
      PARAMETER (EMMU=0.105658389)
      PARAMETER (PMASS=0.93827231)
      PARAMETER (AVO=0.60221367)
*
#endif
#if !defined(GPAMELA_SINGLE)
      DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
      DOUBLE PRECISION EMMU,PMASS,AVO
*
      PARAMETER (PI=3.14159265358979324D0)
      PARAMETER (TWOPI=6.28318530717958648D0)
      PARAMETER (PIBY2=1.57079632679489662D0)
      PARAMETER (DEGRAD=0.0174532925199432958D0)
      PARAMETER (RADDEG=57.2957795130823209D0)
      PARAMETER (CLIGHT=29979245800.D0)
      PARAMETER (BIG=10000000000.D0)
      PARAMETER (EMASS=0.0005109990615D0)
      PARAMETER (EMMU=0.105658387D0)
      PARAMETER (PMASS=0.9382723128D0)
      PARAMETER (AVO=0.60221367D0)
*
#endif
*
* gconsp.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gconsp
#include "incend.inc"
#endif
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gconsp.inc
8	*
9	#if defined(GPAMELA_SINGLE)
10	REAL PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
11	REAL EMMU,PMASS,AVO
12	*
13	PARAMETER (PI=3.14159265358979324)
14	PARAMETER (TWOPI=6.28318530717958648)
15	PARAMETER (PIBY2=1.57079632679489662)
16	PARAMETER (DEGRAD=0.0174532925199432958)
17	PARAMETER (RADDEG=57.2957795130823209)
18	PARAMETER (CLIGHT=29979245800.)
19	PARAMETER (BIG=10000000000.)
20	PARAMETER (EMASS=0.00051099906)
21	PARAMETER (EMMU=0.105658389)
22	PARAMETER (PMASS=0.93827231)
23	PARAMETER (AVO=0.60221367)
24	*
25	#endif
26	#if !defined(GPAMELA_SINGLE)
27	DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
28	DOUBLE PRECISION EMMU,PMASS,AVO
29	*
30	PARAMETER (PI=3.14159265358979324D0)
31	PARAMETER (TWOPI=6.28318530717958648D0)
32	PARAMETER (PIBY2=1.57079632679489662D0)
33	PARAMETER (DEGRAD=0.0174532925199432958D0)
34	PARAMETER (RADDEG=57.2957795130823209D0)
35	PARAMETER (CLIGHT=29979245800.D0)
36	PARAMETER (BIG=10000000000.D0)
37	PARAMETER (EMASS=0.0005109990615D0)
38	PARAMETER (EMMU=0.105658387D0)
39	PARAMETER (PMASS=0.9382723128D0)
40	PARAMETER (AVO=0.60221367D0)
41	*
42	#endif
43	*
44	* gconsp.inc
45	*
46	#if defined(GPAMELA_INCLUDE)
47	*
48	#include "incbeg.inc"
49	+ gconsp
50	#include "incend.inc"
51	#endif