Analysis Software
Documentation for sPHENIX simulation software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
density.inc
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file density.inc
1  integer nt
2  integer ntdis,ntpho
3  integer ntx,nty
4  parameter(ntdis=35)
5  parameter(ntpho=44)
6  parameter(nt=ntpho)
7 
8  real*4 denstk,width
9  real*4 densdis,widdis
10  real*4 denspho,widpho
11 * make these arrays large enough for all cases
12  common/density/ntx,nty,denstk(nt,nt,245,3),width(nt,nt,7,3)
13  & ,densdis(ntdis,ntdis,245,3),widdis(ntdis,ntdis,7,3)
14  & ,denspho(ntpho,ntpho,245,3),widpho(ntpho,ntpho,7,3)