| 1 |
* |
* |
| 2 |
* $Id$ |
* $Id: gpcal.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $ |
| 3 |
|
* |
| 4 |
|
* $Log: gpcal.inc,v $ |
| 5 |
|
* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna |
| 6 |
|
* First GPAMELA release on CVS |
| 7 |
* |
* |
|
* $Log$ |
|
| 8 |
* |
* |
| 9 |
* |
* |
| 10 |
* gpcal.inc |
* gpcal.inc |
| 19 |
* |
* |
| 20 |
INTEGER NTHCAL,ICAPL,ICASI,ICAST |
INTEGER NTHCAL,ICAPL,ICASI,ICAST |
| 21 |
REAL XINCAL,YINCAL,ZINCAL,ERELCAL |
REAL XINCAL,YINCAL,ZINCAL,ERELCAL |
| 22 |
|
C Ml: 14/03/2003 |
| 23 |
|
INTEGER ICASTRIP,ICAPLANE,ICAMOD |
| 24 |
|
REAL ENESTRIP |
| 25 |
|
C end Ml. 14/03/2003 |
| 26 |
COMMON /GPCCASI/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL), |
COMMON /GPCCASI/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL), |
| 27 |
+ XINCAL(NHMCAL),YINCAL(NHMCAL), |
+ XINCAL(NHMCAL),YINCAL(NHMCAL), |
| 28 |
+ ZINCAL(NHMCAL),ERELCAL(NHMCAL) |
+ ZINCAL(NHMCAL),ERELCAL(NHMCAL), |
| 29 |
|
C Ml: 14/03/2003 |
| 30 |
|
+ ICASTRIP(NHMCAL),ICAPLANE(NHMCAL), |
| 31 |
|
+ ICAMOD(NHMCAL),ENESTRIP(NHMCAL) |
| 32 |
|
C end Ml 14/03/2003 |
| 33 |
* |
* |