WSJT-X/map65/libm65/noisegen.f90

mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 23:57:10 -04:00
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
Move project files to map65 sub-directory Preparation for merging with the wsjtx project repository. 2021-04-09 08:57:41 -04:00			`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`