ghijjet2.F

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

      fvoidp FUNCTION hijjet2_address() 

      common/hijjet2/nsg,njsg(900),iasg(900,3),k1sg(900,100),
     &     k2sg(900,100),pxsg(900,100),pysg(900,100),
     &     pzsg(900,100),pesg(900,100),pmsg(900,100)
      SAVE  /hijjet2/
      EXTERNAL hidata ! All that is required to force loading of BLOCK DATA
      fvoidp getaddr

      hijjet2_address = getaddr(nsg)
      
      RETURN
      END