1 |
* |
* |
2 |
* $Id: gpdspe.F,v 3.5 2006/01/24 13:52:01 bottai Exp $ |
* $Id: gpdspe.F,v 3.6 2006/02/06 14:17:21 bottai Exp $ |
3 |
* |
* |
4 |
* $Log: gpdspe.F,v $ |
* $Log: gpdspe.F,v $ |
5 |
|
* Revision 3.6 2006/02/06 14:17:21 bottai |
6 |
|
* adapt again the resolution simulation to the ITRPB volume identification |
7 |
|
* |
8 |
* Revision 3.5 2006/01/24 13:52:01 bottai |
* Revision 3.5 2006/01/24 13:52:01 bottai |
9 |
* prepare to store the x and y multiplicity of the hit |
* prepare to store the x and y multiplicity of the hit |
10 |
* |
* |
28 |
*CMZ : 1.00/02 27/03/96 18.35.42 by Francesco Cafagna |
*CMZ : 1.00/02 27/03/96 18.35.42 by Francesco Cafagna |
29 |
*-- Author : Francesco Cafagna 23/02/96 |
*-- Author : Francesco Cafagna 23/02/96 |
30 |
SUBROUTINE GPDSPE |
SUBROUTINE GPDSPE |
31 |
************************************************************************ |
************************************************************************* |
32 |
* * |
* * |
33 |
* To perform SPE digitization * |
* To perform SPE digitization * |
34 |
* * |
* * |
35 |
* Called by: GUDIGI * |
* Called by: GUDIGI * |
36 |
* Author: Francesco Cafagna, 23/02/96 12.50.38 * |
* Author: Francesco Cafagna, 23/02/96 12.50.38 * |
37 |
* * |
* * |
38 |
************************************************************************ |
************************************************************************* |
39 |
#include "gcunit.inc" |
#include "gcunit.inc" |
40 |
#include "gpphit.inc" |
#include "gpphit.inc" |
41 |
PARAMETER (RADDEG=57.295779) |
PARAMETER (RADDEG=57.295779) |