gpamela/gcdes/gcphrd.inc

*
* $Id$
*
* $Log$
*
*
* gcphrd.inc
*
C  GRATE - radiative modes' rates
      INTEGER KSHLS,L1SHLS,L2SHLS,L3SHLS,ISHLS,ISHLUS,ISHLTR
      REAL GPHRAT
      PARAMETER (KSHLS=6)
      PARAMETER (L1SHLS=8)
      PARAMETER (L2SHLS=7)
      PARAMETER (L3SHLS=8)
      PARAMETER (ISHLS=29)
      COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)
C
*
* gcphrd.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcphrd
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcphrd.inc
8			*
9			C GRATE - radiative modes' rates
10			INTEGER KSHLS,L1SHLS,L2SHLS,L3SHLS,ISHLS,ISHLUS,ISHLTR
11			REAL GPHRAT
12			PARAMETER (KSHLS=6)
13			PARAMETER (L1SHLS=8)
14			PARAMETER (L2SHLS=7)
15			PARAMETER (L3SHLS=8)
16			PARAMETER (ISHLS=29)
17			COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)
18			C
19			*
20			* gcphrd.inc
21			*
22			#if defined(GPAMELA_INCLUDE)
23			*
24			#include "incbeg.inc"
25			+ gcphrd
26			#include "incend.inc"
27			#endif