fortran中设置随机数的问题

先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