IMPLICIT NONE
	INTEGER, DIMENSION(1) :: OLD, SEED ! Detta program antar att K = 1
	INTEGER :: I, K
	REAL, DIMENSION(3) :: HARVEST
	SEED(1) = 12345
	CALL RANDOM_SEED
	CALL RANDOM_SEED(SIZE=K)
	WRITE(*,*) ' Antal heltal utnyttjade för startvärdet = ', K
	CALL RANDOM_SEED(GET=OLD(1:K))
	WRITE(*,*) ' Gammalt startvärde = ', OLD
	CALL RANDOM_NUMBER(HARVEST)
	WRITE(*,*) ' Slumptal : ', HARVEST
	CALL RANDOM_SEED(GET=OLD(1:K))
	WRITE(*,*) ' Aktuellt startvärde = ', OLD
	CALL RANDOM_SEED(PUT=SEED(1:K))
	CALL RANDOM_SEED(GET=OLD(1:K))
	WRITE(*,*) ' Nytt startvärde = ', OLD
	CALL RANDOM_NUMBER(HARVEST)
	WRITE(*,*) ' Slumptal : ', HARVEST
	DO I = 1, 3
		CALL RANDOM_SEED(GET=OLD(1:K))
		WRITE(*,*) ' Aktuellt startvärde = ', OLD
		CALL RANDOM_NUMBER(HARVEST)
		WRITE(*,*) ' Slumptal : ', HARVEST
		CALL RANDOM_NUMBER(HARVEST)
		WRITE(*,*) ' Slumptal : ', HARVEST
	END DO
	END