$STORAGE:2
      FUNCTION RAN(ISEED)
C
C     D. HATZIPAPAFOTIOU
C     PC VERSION  --  9/15/88
C
C    THE VAX/VMS RAN ROUTINE
C
C    ISEED  -- INPUT/OUTPUT SEED
C    RAN -- OUTPUT RANDOM NUMBER (0,1)
C
      EXTERNAL SDRAN
      INTEGER*4 ISEED
C
      CALL SDRAN(ISEED)
      IF(ISEED.LT.0)THEN
        RAN=1.0+ISEED*0.23283064E-9
      ELSE
        RAN=ISEED*0.23283064E-9
      ENDIF
C
      RETURN
      END