RANDOM_SEED Failure

[19801130]

I'm using SGI Fortran 90 on a SGI IRIX 6.5 machine. I wrote the following lines in my code, which intends to get different results in various runs, but failed:

call random_seed()
call random_number(val)
write(*,*) val

Could anybody tell me how to fix this problem?

Thanks!

 

[xwb]

Have a look at

http://sip.clarku.edu/tutorials/F.html#random

Looks like the call to random_seed() is incorrect.