gpamela/gcdes/gcphys.inc

*
* $Id$
*
* $Log$
*
*
* gcphys.inc
*
      COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
     +             ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
     +             ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
     +             ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
     +             ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
     +             ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
     +             ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
     +             ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
     +             ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
     +             ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
     +             ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
     +             ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
     +             ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
      COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
     +             ,ISYNC
     +             ,ISTRA
*
#if defined(GPAMELA_TYPE)
#include "gtphys.inc"
#endif
*
* gcphys.inc
*
#if defined(GPAMELA_INCLUDE)
*
#include "incbeg.inc"
     +   gcphys
#include "incend.inc"
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gcphys.inc
8			*
9			COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
10			+ ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
11			+ ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
12			+ ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
13			+ ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
14			+ ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
15			+ ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
16			+ ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
17			+ ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
18			+ ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
19			+ ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
20			+ ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
21			+ ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
22			COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
23			+ ,ISYNC
24			+ ,ISTRA
25			*
26			#if defined(GPAMELA_TYPE)
27			#include "gtphys.inc"
28			#endif
29			*
30			* gcphys.inc
31			*
32			#if defined(GPAMELA_INCLUDE)
33			*
34			#include "incbeg.inc"
35			+ gcphys
36			#include "incend.inc"
37			#endif