RANDOM_TEST

 !program name: RANDOM_TEST

implicit none

real :: r, x

integer :: i

call random_seed()

 

10 call random_number(r)

print *, r

print *,

 

do i=1,10

   call random_number(x)

   print *, x

end do

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA