/[PAMELA software]/gpamela/gpcdes/gpstripspe.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpstripspe.inc

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

revision 3.2 by bottai, Tue May 8 15:06:27 2007 UTC revision 3.3 by bottai, Wed May 20 09:16:09 2009 UTC
# Line 20  c      parameter (bfield=0.0)        ! no mag Line 20  c      parameter (bfield=0.0)        ! no mag
20    
21    
22  ***********************def parametri di gpucollection.F*********************************  ***********************def parametri di gpucollection.F*********************************
23            PARAMETER(F1=0.043,F2=0.018,F3=0.013,F4=0.011)
24          parameter (cdec=20.0)         ! decoupling capacitance (pF) -- FIXED          parameter (cdec=20.0)         ! decoupling capacitance (pF) -- FIXED
25          parameter (cistrx=0.35)       ! X interstrip capacitance (pF)          parameter (cistrx=0.35)       ! X interstrip capacitance (pF)
26          parameter (cistrx2=0.6*cistrx)! 2nd neigh. interstrip cap. (X) (pF)          parameter (cistrx2=0.6*cistrx)! 2nd neigh. interstrip cap. (X) (pF)
# Line 28  c      parameter (bfield=0.0)        ! no mag Line 28  c      parameter (bfield=0.0)        ! no mag
28  ccc       parameter (shiftmask=0.020)   ! shift of the intermediate strip (X side)  ccc       parameter (shiftmask=0.020)   ! shift of the intermediate strip (X side)
29          parameter (shiftmask=0.000)   ! shift of the intermediate strip (X side)          parameter (shiftmask=0.000)   ! shift of the intermediate strip (X side)
30          parameter (effcoupl=0.81)     ! eff. in charge sharing on X strips(*)          parameter (effcoupl=0.81)     ! eff. in charge sharing on X strips(*)
31          parameter (xcalib=2053.)      ! calib. factor (ADC/MeV) on X side          parameter (xcalib=2565.)      ! calib. factor (ADC/MeV) on X side
32          parameter (ycalib=1840.)      ! calib. factor (ADC/MeV) on Y side          parameter (ycalib=1840.)      ! calib. factor (ADC/MeV) on Y side
33    
34          parameter (nviews=12)     !          parameter (nviews=12)          ! number of views
35          parameter (nplanes=nviews/2) !number of planes          parameter (nplanes=nviews/2)   ! number of planes
36          parameter (nsensors=6) !number of sensors          parameter (nladd=3)            ! number of ladders per view
37            parameter (nva1=8)             ! number of va1 per ladder
38            parameter (ntotva1=nva1*nladd*nviews) ! total number of va1
39            parameter (nsensors=6)         ! number of sensors
40          parameter (nstrips_view=1024)  ! number of strip readed/view/sensor          parameter (nstrips_view=1024)  ! number of strip readed/view/sensor
41          parameter (nstripx=2048)       ! number of strip x          parameter (nstripx=2048)       ! number of strip x
42          parameter (nstripy=1024)       ! number of strip y          parameter (nstripy=1024)       ! number of strip y
43                    
44          real proxtanti,proytanti,globstripx,globstripy          real proxtanti,proytanti,globstripx,globstripy  
45          common/diffusione/proxtanti(nplanes,nsensors,nstripx),          common/diffusione/proxtanti(nplanes,nsensors,nstripx),
46       +                    proytanti(nplanes,nsensors,nstripy),       +                    proytanti(nplanes,nsensors,nstripy),
47       +                    globstripx(nplanes,nsensors,nstripx),       +                    globstripx(nplanes,nsensors,nstripx),
48       +                    globstripy(nplanes,nsensors,nstripy)         +                    globstripy(nplanes,nsensors,nstripy)
49            INTEGER BADVA1
50            COMMON/BAD/BADVA1(nviews,nladd,nva1)    
51    
52        INTEGER MAXSTR        INTEGER MAXSTR
53        PARAMETER(MAXSTR=1000)        PARAMETER(MAXSTR=1000)
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23