C00000000111111111122222222223333333333444444444455555555556666666666777
C23456789012345678901234567890123456789012345678901234567890123456789012
C
C  THESE ROUTINE IS THE EXP POWER BETA=-0.75 PROBABILITY DENSITY FUNC
C***********************************************************************
C      INPUT
C              X--ANY REAL INDEPENDENT VARIABLE
C***********************************************************************

      FUNCTION DNSITY(X)
      REAL CK,SIG,Z,TOL,X,DNSITY
      DATA CK,SIG,Z,TOL/0.4869,0.6117,8.0,1.0E-12/

          DNSITY=CK*SIG*EXP(-0.5*ABS(X*SIG)**Z)
          IF(DNSITY.LT.TOL) DNSITY=TOL

      RETURN
      END

C00000000111111111122222222223333333333444444444455555555556666666666777
C23456789012345678901234567890123456789012345678901234567890123456789012
