home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / FORTRAN / F77TO90 / code / random.f90 < prev    next >
Text File  |  1996-03-18  |  901b  |  29 lines
  1.     IMPLICIT NONE
  2.     INTEGER, DIMENSION(1) :: OLD, SEED ! THIS PROGRAM ASSUMES K = 1
  3.     INTEGER :: I, K
  4.     REAL, DIMENSION(3) :: HARVEST
  5.     SEED(1) = 12345
  6.     CALL RANDOM_SEED
  7.     CALL RANDOM_SEED(SIZE=K)
  8.     WRITE(*,*) ' Number of integers for starting value = ', K
  9.     CALL RANDOM_SEED(GET=OLD(1:K))
  10.     WRITE(*,*) ' Old starting value = ', OLD
  11.     CALL RANDOM_NUMBER(HARVEST)
  12.     WRITE(*,*) ' Random numbers : ', HARVEST
  13.     CALL RANDOM_SEED(GET=OLD(1:K))
  14.     WRITE(*,*) ' Present starting value = ', OLD
  15.     CALL RANDOM_SEED(PUT=SEED(1:K))
  16.     CALL RANDOM_SEED(GET=OLD(1:K))
  17.     WRITE(*,*) ' New starting value = ', OLD
  18.     CALL RANDOM_NUMBER(HARVEST)
  19.     WRITE(*,*) ' Random numbers : ', HARVEST
  20.     DO I = 1, 3
  21.         CALL RANDOM_SEED(GET=OLD(1:K))
  22.         WRITE(*,*) ' Present starting value = ', OLD
  23.         CALL RANDOM_NUMBER(HARVEST)
  24.         WRITE(*,*) ' Random numbers : ', HARVEST
  25.         CALL RANDOM_NUMBER(HARVEST)
  26.         WRITE(*,*) ' Random numbers : ', HARVEST
  27.     END DO
  28.     END
  29.