C00000000111111111122222222223333333333444444444455555555556666666666777
C23456789012345678901234567890123456789012345678901234567890123456789012
C
C  THESE ROUTINE IS THE LAPLACE PROBABILITY DENSITY FUNCTION
C***********************************************************************
C	INPUT
C		X--ANY REAL INDEPENDENT VARIABLE
C***********************************************************************

      FUNCTION DNSITY(X)
      REAL X,DNSITY

      DNSITY=1/SQRT(2.0)*EXP(-SQRT(2.0)*ABS(X))

      RETURN
      END

C00000000111111111122222222223333333333444444444455555555556666666666777
C23456789012345678901234567890123456789012345678901234567890123456789012
