EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
ghijjet1.F
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file ghijjet1.F
1  fvoidp FUNCTION hijjet1_address()
2 
3  common/hijjet1/npj(300),kfpj(300,500),pjpx(300,500),
4  & pjpy(300,500),pjpz(300,500),pjpe(300,500),
5  & pjpm(300,500),ntj(300),kftj(300,500),
6  & pjtx(300,500),pjty(300,500),pjtz(300,500),
7  & pjte(300,500),pjtm(300,500)
8  SAVE /hijjet1/
9  EXTERNAL hidata ! All that is required to force loading of BLOCK DATA
10  fvoidp getaddr
11 
12  hijjet1_address = getaddr(npj)
13 
14  RETURN
15  END