mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-24 05:08:38 -05:00
14 lines
200 B
Fortran
14 lines
200 B
Fortran
|
subroutine noisegen(d4,nmax)
|
||
|
|
|
||
|
|
real*4 d4(4,nmax)
|
||
|
|
|
||
|
|
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
|