ghijjet1.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file ghijjet1.F

      fvoidp FUNCTION hijjet1_address() 

      common/hijjet1/npj(300),kfpj(300,500),pjpx(300,500),
     &     pjpy(300,500),pjpz(300,500),pjpe(300,500),
     &     pjpm(300,500),ntj(300),kftj(300,500),
     &     pjtx(300,500),pjty(300,500),pjtz(300,500),
     &     pjte(300,500),pjtm(300,500)
      SAVE  /hijjet1/
      EXTERNAL hidata ! All that is required to force loading of BLOCK DATA
      fvoidp getaddr

      hijjet1_address = getaddr(npj)
      
      RETURN
      END