gpamela/gpcdes/gpch2.inc

*
*
* gpch2.inc
*
*-- Author :    Marialuigia Ambriola   27/10/2006
C
C Common storing the Special tracking parameter for tracking media CH2
C Polyethylene
C
      REAL CUTGAMCH2,CUTELECH2,CUTNEUCH2,CUTHADCH2,CUTMUOCH2,
     +     BCUTECH2,BCUTMCH2,DCUTMCH2,DCUTECH2,PPCUTMCH2,PAIRCH2,
     +     COMPCH2,PHOTCH2,PFISCH2,DRAYCH2,ANNICH2,BREMCH2,
     +     HADRCH2,MUNUCH2,DCAYCH2,LOSSCH2,MULSCH2,BIRK1CH2,
     +     BIRK2CH2,BIRK3CH2,LABSCH2,SYNCCH2,STRACH2
*     
      COMMON /GPCCH2/ CUTGAMCH2,CUTELECH2,CUTNEUCH2,CUTHADCH2,
     +                 CUTMUOCH2,BCUTECH2,BCUTMCH2,DCUTMCH2,
     +                 DCUTECH2,
     +                 PPCUTMCH2,PAIRCH2,COMPCH2,PHOTCH2,PFISCH2,
     +                 DRAYCH2,ANNICH2,BREMCH2,HADRCH2,MUNUCH2,
     +                 DCAYCH2,LOSSCH2,MULSCH2,BIRK1CH2,BIRK2CH2,
     +                 BIRK3CH2,LABSCH2,SYNCCH2,STRACH2
1	pam-ba	3.1	*
2			*
3			* gpch2.inc
4			*
5			*-- Author : Marialuigia Ambriola 27/10/2006
6			C
7			C Common storing the Special tracking parameter for tracking media CH2
8			C Polyethylene
9			C
10			REAL CUTGAMCH2,CUTELECH2,CUTNEUCH2,CUTHADCH2,CUTMUOCH2,
11			+ BCUTECH2,BCUTMCH2,DCUTMCH2,DCUTECH2,PPCUTMCH2,PAIRCH2,
12			+ COMPCH2,PHOTCH2,PFISCH2,DRAYCH2,ANNICH2,BREMCH2,
13			+ HADRCH2,MUNUCH2,DCAYCH2,LOSSCH2,MULSCH2,BIRK1CH2,
14			+ BIRK2CH2,BIRK3CH2,LABSCH2,SYNCCH2,STRACH2
15			*
16			COMMON /GPCCH2/ CUTGAMCH2,CUTELECH2,CUTNEUCH2,CUTHADCH2,
17			+ CUTMUOCH2,BCUTECH2,BCUTMCH2,DCUTMCH2,
18			+ DCUTECH2,
19			+ PPCUTMCH2,PAIRCH2,COMPCH2,PHOTCH2,PFISCH2,
20			+ DRAYCH2,ANNICH2,BREMCH2,HADRCH2,MUNUCH2,
21			+ DCAYCH2,LOSSCH2,MULSCH2,BIRK1CH2,BIRK2CH2,
22			+ BIRK3CH2,LABSCH2,SYNCCH2,STRACH2