WSJT-X/lib/noisegen.f90

subroutine noisegen(d4,nmax)

  real*4 d4(4,nmax)

  call init_random_seed(1)      ! 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
Moving from JT8 to JT9, and working toward program jt9sim. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2602 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-09-27 15:10:15 -04:00			`subroutine noisegen(d4,nmax)`

			`real*4 d4(4,nmax)`

More PRNG rationalization git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6274 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-12-14 20:36:05 -05:00			`call init_random_seed(1) ! seed Fortran RANDOM_NUMBER generator`
			`call sgran() ! see C rand generator (used in gran)`

Moving from JT8 to JT9, and working toward program jt9sim. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2602 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-09-27 15:10:15 -04:00			`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`