PROGRAM Rastgele
!----------------------------------------------------
! 22prg01.f95
! [0,1] aralığında 5 adet rastgele sayı
!----------------------------------------------------
IMPLICIT NONE
REAL :: R, Rg
INTEGER :: I, Rt

  CALL RANDOM_SEED()

  DO I = 1, 5

    ! [0,1] aralığında gerçel sayı
    CALL RANDOM_NUMBER(R)

    ! [1, 100] aralığında gerçel sayı
    Rg = 1.0 + 99.0*R

    ! [1, 6] aralığında tam sayı
    Rt = 1 + INT(6*R)

    PRINT '(F8.4,1x,I3)',Rg,Rt

  END DO

END PROGRAM