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

Diff of /gpamela/gpspe/gpucollection.F

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

revision 3.2 by bottai, Wed May 20 09:17:59 2009 UTC revision 3.4 by pam-fi, Fri Apr 23 10:05:53 2010 UTC
# Line 17  Line 17 
17  ***************************************************************************  ***************************************************************************
18    
19  #include "gpstripspe.inc"  #include "gpstripspe.inc"
20  c  
 c eventually to be removed in future version containing the BADVA1 filling  
 c  
         DATA BADVA1/ntotva1*1/  
21  c  c
22  c new strip capacitance simulation 19/02/09 S. Bottai  c new strip capacitance simulation 19/02/09 S. Bottai
23  c          c        
# Line 95  CV            IF(j+4.gt.(nstripx-6)) jp4 Line 92  CV            IF(j+4.gt.(nstripx-6)) jp4
92                            
93              stripqxtanti(j)=proxtanti(np,nt,j)              stripqxtanti(j)=proxtanti(np,nt,j)
94              SUMF=0.              SUMF=0.
95              DO KK=1,15    ccc            DO KK=1,15  
96                DO KK=1,4
97              KF=KK*2              KF=KK*2
98              IF(KK.EQ.1) FN=F1              IF(KK.EQ.1) FN=F1
99              IF(KK.EQ.2) FN=F2              IF(KK.EQ.2) FN=F2
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23