I'm trying to contruct a program that will generate a different random number between 1-10. I am not sure how to make it only 1-10.
PROGRAM guess
USE const
IMPLICIT NONE
INTEGER::i
REAL(kind=dp)::x
call random_number(x)
WRITE(*,*) 'x=',x
END DO
END PROGRAM...