$STORAGE:2
      SUBROUTINE RANDU(X,IS)
C
C     D. HATZIPAPAFOTIOU
C     PC VERSION  --  9/15/88
C
      EXTERNAL SDRDU
      INTEGER*4 IS,IY
C
C     COPY OF THE RANDOM NUMBER ROUTINE - UNIFORM DISTRIBUTION
C     COMPUTES UNIFORMLY DISTRIBUTED RANDOM REAL NUMBERS BETWEEN
C     0  AND  1.0  AND RANDOM INTEGERS BETWEEN ZERO  AND  2**31
C     EACH ENTRY USES AS INPUT AN INTEGER RANDOM NUMBER AND PRODUCES
C     A NEW INTEGER AND REAL RANDOM NUMBER
C
C    IS -- INPUT/OUTPUT SEED
C    X  -- OUTPUT RANDOM # (0,1)
C
      CALL SDRDU(IS)
      IF(IS.LT.0) IS=IS+2147483647+1
      X=IS*0.4656613E-9
      RETURN
      END
