/[PAMELA software]/gpamela/gpcal/gpdcal.F
ViewVC logotype

Diff of /gpamela/gpcal/gpdcal.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.3 by cafagna, Tue Jun 21 02:42:03 2005 UTC revision 3.4 by cafagna, Mon Jul 25 11:53:20 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdcal.F,v 3.2 2003/12/17 11:32:48 pamela Exp $  * $Id: gpdcal.F,v 3.3 2005/06/21 02:42:03 cafagna Exp $
3  *  *
4  * $Log: gpdcal.F,v $  * $Log: gpdcal.F,v $
5    * Revision 3.3  2005/06/21 02:42:03  cafagna
6    * Major modification to the geometry and to the random number chain
7    *
8  * Revision 3.2  2003/12/17 11:32:48  pamela  * Revision 3.2  2003/12/17 11:32:48  pamela
9  * CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation  * CALO SIMULATION COMPLETED: geometry and special tracking parameters updated and simulation checked by a comparison with the Trieste's standalone Monte Carlo simulation
10  *  *
# Line 176  C Line 179  C
179  * Fill the CWN common  * Fill the CWN common
180  *  *
181  c      c    
182          NTHCALI=0
183        DO I=1,NHITS        DO I=1,NHITS
184           NTHCALI=NTHCALI+1           NTHCALI=NTHCALI+1
185           ICASTRIP(NTHCALI)=NUMBV(NVCALI,I)           ICASTRIP(NTHCALI)=NUMBV(NVCALI,I)
Legend:
Removed from v.3.3  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23