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

      FUNCTION DNSITY(X)
      REAL DNSITY,X

            DNSITY=3.0*(2.0+X*X)**(-2.5)

      RETURN
      END

C00000000111111111122222222223333333333444444444455555555556666666666777
C23456789012345678901234567890123456789012345678901234567890123456789012