DEV Community

Discussion on: How do you do random?

Collapse
arieberesteanu profile image
Arie Beresteanu

real(8) :: r
integer :: i

CALL RANDOM_NUMBER(r)
i = floor(r *10.0)