17 lines
345 B
Plaintext
17 lines
345 B
Plaintext
|
subroutine noisegen(d4,nmax)
|
||
|
|
|
||
|
|
real*4 d4(4,nmax)
|
||
|
|
|
||
|
|
call init_random_seed() ! seed Fortran RANDOM_NUMBER generator
|
||
|
|
call sgran() ! see C rand generator (used in gran)
|
||
|
|
|
||
|
|
do i=1,nmax
|
||
|
|
d4(1,i)=gran()
|
||
|
|
d4(2,i)=gran()
|
||
|
|
d4(3,i)=gran()
|
||
|
|
d4(4,i)=gran()
|
||
|
|
enddo
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine noisegen
|