     FUNCTION RANDOM( IDUM  )

     IMPLICIT REAL*8(A-H,O-Z)

c     COMMON /QPRND / NSEED
     data nseed/12345679/

     NSEED = NSEED *48828125
     IF(NSEED.LT.0) NSEED=(NSEED+2147483647) + 1
     RANDOM=NSEED*0.4656613D-9

     RETURN
     END
