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