***********************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 (cdec=20.0)         ! decoupling capacitance (pF) -- FIXED
        parameter (cistrx=0.35)       ! X interstrip capacitance (pF)  //was 0.35
        parameter (cistrx2=0.6*cistrx)! 2nd neigh. interstrip cap. (X) (pF) 
        parameter (cistry=0.45)       ! Y interstrip capacitance (pF)  //was 0.45
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 (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 (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 MAXSTR
      PARAMETER(MAXSTR=1000)
      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)