/[PAMELA software]/gpamela/gpspe/gpspev.F
ViewVC logotype

Diff of /gpamela/gpspe/gpspev.F

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

revision 3.8 by bottai, Tue May 2 12:02:43 2006 UTC revision 3.9 by pam-ba, Fri Jun 30 15:38:16 2006 UTC
# Line 1  Line 1 
1    
2  *  *
3  * $Id: gpspev.F,v 3.7 2005/12/16 10:20:23 cafagna Exp $  * $Id: gpspev.F,v 3.8 2006/05/02 12:02:43 bottai Exp $
4  *  *
5  * $Log: gpspev.F,v $  * $Log: gpspev.F,v $
6  * Revision 3.7  2005/12/16 10:20:23  cafagna  * Revision 3.8  2006/05/02 12:02:43  bottai
7  * Bug fixed in the new update  * micrometric adjustment of spe geometry
8  *  *
9  * Revision 3.6  2005/12/16 09:13:59  cafagna  * Revision 3.7  2005/12/16 10:20:23  cafagna
10  * New small valume added to the tracker frame  * Bug fixed in the new update
11    *
12    * Revision 3.6  2005/12/16 09:13:59  cafagna
13    * New small valume added to the tracker frame
14  *  *
15  * Revision 3.5  2005/12/13 10:31:29  pam-ba  * Revision 3.5  2005/12/13 10:31:29  pam-ba
16  * added a new volume, TPGI, in the spectrometer  * added a new volume, TPGI, in the spectrometer
# Line 138  C end ml. Line 141  C end ml.
141  *  *
142  * Positioning volume TSPA     into the mother TRSL  * Positioning volume TSPA     into the mother TRSL
143  *  *
144        GLUEX=XGLUE-0.0005        GLUEX=XGLUE-0.0005
145        GLUEY=XGLUE        GLUEY=XGLUE
146        N= 1        N= 1
147        X= 0.        X= 0.
148        Y= 0.        Y= 0.
# Line 191  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3) Line 194  c      Z=-TRPB(3)+2*TPAI(3)+TRCP(3)
194  c ml: 20/9/05 introducing the glue between TRCP and the silicon ladders.  c ml: 20/9/05 introducing the glue between TRCP and the silicon ladders.
195  c         X=-TPAS(1)+2*(MOD(I-1,3)+1)*TRCP(1)+  c         X=-TPAS(1)+2*(MOD(I-1,3)+1)*TRCP(1)+
196  c     +        (2*(MOD(I-1,3)+1)-1)*TRSL(1)  c     +        (2*(MOD(I-1,3)+1)-1)*TRSL(1)
   
   
197           X=-TPAS(1)+TPASSPACE+2*(MOD(I-1,3)+1)*TRCP(1)+           X=-TPAS(1)+TPASSPACE+2*(MOD(I-1,3)+1)*TRCP(1)+
198       +   (2*(MOD(I-1,3)+1)-1)*GLUEX+(2*(MOD(I-1,3)+1)-1)*TRSL(1)               +   (2*(MOD(I-1,3)+1)-1)*GLUEX+(2*(MOD(I-1,3)+1)-1)*TRSL(1)
199           IF(I.LE.3) THEN           IF(I.LE.3) THEN
200  C ml: 22/9/05:  C ml: 22/9/05:
201  c            Y=TPAS(2)-TRSL(2)  c            Y=TPAS(2)-TRSL(2)
Legend:
Removed from v.3.8  
changed lines
  Added in v.3.9
  ViewVC Help
Powered by ViewVC 1.1.23