***********************def parametri di gpudiffusion.F********************************


	parameter (pitchx=0.00255)        ! X-side implantation pitch          
        parameter (pitchy=0.00665)         ! Y-side read-out pitch    
	parameter (hallmob=304.5)      ! Hall mobility (Peisert)
c	parameter (bfield=0.0)        ! no magnetic field 
	parameter (ebias=67/0.03)    ! (effective) electric field in V/cm 
	parameter (psy1=45.)          ! parabolic behaviour of sigmaY   
	parameter (psy2=0.0015)       ! parabolic behaviour of sigmaY  

*** used in function sig
	parameter (eis=1.6022e-19)    ! charge of the electron (I.S.)
	parameter (boltis=1.3807e-23) ! Boltzmann's constant (I.S.)
	parameter (temperature=300.)  ! Temperature in Kelvin
	parameter (dsigma=1.1e-6)     ! spread of the energy release (m)

       
 

***********************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) 
        parameter (cistrx2=0.6*cistrx)! 2nd neigh. interstrip cap. (X) (pF) 
        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=2258.)      ! calib. factor (ADC/MeV) on X side
        parameter (ycalib=1840.)      ! calib. factor (ADC/MeV) on Y side
 
	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	
        common/diffusione/proxtanti(nplanes,nsensors,nstripx),
     +                    proytanti(nplanes,nsensors,nstripy),
     +                    globstripx(nplanes,nsensors,nstripx),
     +                    globstripy(nplanes,nsensors,nstripy)
        INTEGER BADVA1
        COMMON/BAD/BADVA1(nviews,nladd,nva1)	

      INTEGER MAXSTR
      PARAMETER(MAXSTR=5000)
      INTEGER NSTRPX,NSTRPY,ISTRIPX,ISTRIPY,NPSTRIPX,NPSTRIPY,
     +        NTSTRIPX,NTSTRIPY 
      REAL QSTRIPX,QSTRIPY,XSTRIPX,XSTRIPY,YSTRIPX,YSTRIPY,
     +     ZSTRIPX,ZSTRIPY      
      COMMON/GPSSPE/NSTRPX,NSTRPY,ISTRIPX(MAXSTR),ISTRIPY(MAXSTR),
     +              QSTRIPX(MAXSTR),QSTRIPY(MAXSTR),
     +              XSTRIPX(MAXSTR),YSTRIPY(MAXSTR),
     +              NPSTRIPX(MAXSTR),NPSTRIPY(MAXSTR),
     +              NTSTRIPX(MAXSTR),NTSTRIPY(MAXSTR)