lprikt.F

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

C **********************************************************************

      SUBROUTINE lprikt(S,PT,PHI)

      IMPLICIT NONE

C...Size (PT) and azimuthal angle (PHI) of primordial kt according
C...to a Gaussian distribution.
      REAL s,pt,phi,rlu
      
      pt=s*sqrt(-alog(rlu(0)))
      phi=6.2832*rlu(0)
      RETURN
      END