主要代码部分:
integer,dimension(116)::rcall random_seed()do i=1,116 call random_number(x) r(i) = int(x*255.001)enddo
