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	cafagna	3.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