/[PAMELA software]/gpamela/gpcas/gpdcas.F
ViewVC logotype

Diff of /gpamela/gpcas/gpdcas.F

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

revision 3.2 by pamela, Thu Dec 5 10:17:41 2002 UTC revision 3.3 by lundq, Thu Aug 25 11:13:18 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpdcas.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $  * $Id: gpdcas.F,v 3.2 2002/12/05 10:17:41 pamela Exp $
3  *  *
4  * $Log: gpdcas.F,v $  * $Log: gpdcas.F,v $
5    * Revision 3.2  2002/12/05 10:17:41  pamela
6    * Update CAS and CALO geometries and positions. Makefile updated as well
7    *
8  * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna  * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
9  * First GPAMELA release on CVS  * First GPAMELA release on CVS
10  *  *
# Line 87  Line 90 
90  *  *
91        NTHCAS = NHITS        NTHCAS = NHITS
92        DO I=1,NHITS        DO I=1,NHITS
93           ICAS(I)  = NUMBV(NVCAS,I)  *JoLu 05-08-25
94    *         ICAS(I)  = NUMBV(NVCAS,I)
95             ICAS(I)  = NUMBV(1,I)
96  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
97           XINCAS(I)  = 2*VHITS(1,I)-VHITS(4,I)           XINCAS(I)  = 2*VHITS(1,I)-VHITS(4,I)
98           YINCAS(I)  = 2*VHITS(2,I)-VHITS(5,I)           YINCAS(I)  = 2*VHITS(2,I)-VHITS(5,I)
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23