1 |
* |
* |
2 |
* $Id: gpucal.F,v 3.3 2005/06/21 02:42:04 cafagna Exp $ |
* $Id: gpucal.F,v 3.4 2005/12/14 03:13:53 cafagna Exp $ |
3 |
* |
* |
4 |
* $Log: gpucal.F,v $ |
* $Log: gpucal.F,v $ |
5 |
|
* Revision 3.4 2005/12/14 03:13:53 cafagna |
6 |
|
* Neutron detector added. Geometry and GPCALOR package |
7 |
|
* |
8 |
* Revision 3.3 2005/06/21 02:42:04 cafagna |
* Revision 3.3 2005/06/21 02:42:04 cafagna |
9 |
* Major modification to the geometry and to the random number chain |
* Major modification to the geometry and to the random number chain |
10 |
* |
* |
57 |
#include "gcflag.inc" |
#include "gcflag.inc" |
58 |
#include "gpencal.inc" |
#include "gpencal.inc" |
59 |
*end ml |
*end ml |
60 |
*EM: |
*EM: |
61 |
PARAMETER (CALIB=0.0001085200) |
PARAMETER (CALIB=0.0001085200) |
62 |
*END EM. |
*END EM. |
63 |
INTEGER IACT,IS,ID,IPA,IT,NUMVOL(20),IMEC,IDHIT |
INTEGER IACT,IS,ID,IPA,IT,NUMVOL(20),IMEC,IDHIT |