PROGRAM throw_dice IMPLICIT NONE INTEGER :: throw, r CALL RANDOM_NUMBER(r) ! r is returned 0 <= r <= 1 ! NINT(r*5) gives an integer between 0 and 5 throw = 1 + NINT(r*5) PRINT*, 'die throw = ', throw END PROGRAM