--- PamVMC/trk/include/f77/gpstripspe.inc	2009/02/19 17:46:24	1.1
+++ PamVMC/trk/include/f77/gpstripspe.inc	2009/06/12 18:39:54	1.5
@@ -20,30 +20,34 @@
  
 
 ***********************def parametri di gpucollection.F*********************************
-
+        PARAMETER(F1=0.043,F2=0.018,F3=0.013,F4=0.011)
 	parameter (cdec=20.0)         ! decoupling capacitance (pF) -- FIXED
-        parameter (cistrx=0.35)       ! X interstrip capacitance (pF)  //was 0.35
+        parameter (cistrx=0.35)       ! X interstrip capacitance (pF) 
         parameter (cistrx2=0.6*cistrx)! 2nd neigh. interstrip cap. (X) (pF) 
-        parameter (cistry=0.45)       ! Y interstrip capacitance (pF)  //was 0.45
+        parameter (cistry=0.45)       ! Y interstrip capacitance (pF) 
 ccc       parameter (shiftmask=0.020)   ! shift of the intermediate strip (X side) 
         parameter (shiftmask=0.000)   ! shift of the intermediate strip (X side) 
         parameter (effcoupl=0.81)     ! eff. in charge sharing on X strips(*)
-        parameter (xcalib=2053.)      ! calib. factor (ADC/MeV) on X side
+        parameter (xcalib=2565.)      ! calib. factor (ADC/MeV) on X side
         parameter (ycalib=1840.)      ! calib. factor (ADC/MeV) on Y side
  
-	parameter (nviews=12)     !
-      	parameter (nplanes=nviews/2) !number of planes
-        parameter (nsensors=6) !number of sensors
+	parameter (nviews=12)          ! number of views
+      	parameter (nplanes=nviews/2)   ! number of planes
+	parameter (nladd=3)            ! number of ladders per view
+	parameter (nva1=8)             ! number of va1 per ladder
+	parameter (ntotva1=nva1*nladd*nviews) ! total number of va1
+        parameter (nsensors=6)         ! number of sensors
         parameter (nstrips_view=1024)  ! number of strip readed/view/sensor
 	parameter (nstripx=2048)       ! number of strip x
 	parameter (nstripy=1024)       ! number of strip y
 	
-	real proxtanti,proytanti,globstripx,globstripy
+	real proxtanti,proytanti,globstripx,globstripy	
         common/diffusione/proxtanti(nplanes,nsensors,nstripx),
      +                    proytanti(nplanes,nsensors,nstripy),
      +                    globstripx(nplanes,nsensors,nstripx),
-     +                    globstripy(nplanes,nsensors,nstripy)	
-
+     +                    globstripy(nplanes,nsensors,nstripy)
+        INTEGER BADVA1
+        COMMON/BAD/BADVA1(nviews,nladd,nva1)	
 
       INTEGER MAXSTR
       PARAMETER(MAXSTR=1000)