Question

fortran中设置随机数的问题

天河兄，再次麻烦你了，想问问在fortran中设置一定区间的随机数，比如设置1~76之间的随机整数，应该调用什么函数？？random_seed ??random_number?如何使用？谢谢

Answer 1

先random_seed

然后 int ( random_number * 75 + 1 ) 就可以了

追问

天河兄，前天赶着回家，没有查知道。
我这菜鸟，能不能给出一个完整的程序，我比较好理解。这个还真不知道具体怎么写。
比如一个76次的循环，每次循环，a都能产生一个不同的随机整数（在1~76）之间，如何实现呢.？？..谢谢你.

追答

Program Main
Implicit None
real :: rnd(76)
call random_seed()
call random_number( rnd )
write( * , * ) int ( rnd * 75 + 1 )
End Program Main