小编Dem*_*lis的帖子

这是一个randon数字生成器模块,我用它来编译我的主程序(此处未列出)当我尝试编译我的随机数生成器模块以查看它是否有效时,我收到以下消息:

在第61行:调用random_seed(put = seed)错误:'random_seed'内在的'put'参数的大小太小<4/12>

这是什么意思？我该如何解决？

module random_angle
 contains
 0
    integer Function random_integer (N)         ! return a random integer between 1 and N
        integer, intent(in) :: N
        real*8 :: x

        call random_number(x)
        random_integer = floor(real(N)*x)+1

    end function random_integer

    Real*8 Function gasdev()           !  ch7.pg.280:gaussian distribution function using ran1 as random # generator

        implicit none
!       integer, intent(inout) :: idum
        integer, save::iset
        real*8:: fac,rsq,v1,v2
        real*8, dimension(2) :: x
        real*8, save :: gset

!       if (idum.lt.0) iset=0
        if (iset.eq.0) then
          rsq = 0.0
          do …