w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-29 20:22:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Use ran1 instead of random_number().

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 14:16:40 -05:00
parent 3434faf84a
commit 0531f339e8
2 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lib/superfox/ran1.f90 Normal file
View File

@ -0,0 +1,28 @@
FUNCTION ran1(idum)
INTEGER idum,IA,IM,IQ,IR,NTAB,NDIV
REAL ran1,AM,EPS,RNMX
PARAMETER (IA=16807,IM=2147483647,AM=1./IM,IQ=127773,IR=2836, &
NTAB=32,NDIV=1+(IM-1)/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
INTEGER j,k,iv(NTAB),iy
SAVE iv,iy
DATA iv /NTAB*0/, iy /0/
if (idum.le.0.or.iy.eq.0) then
idum=max(-idum,1)
do j=NTAB+8,1,-1
k=idum/IQ
idum=IA*(idum-k*IQ)-IR*k
if (idum.lt.0) idum=idum+IM
if (j.le.NTAB) iv(j)=idum
enddo
iy=iv(1)
endif
k=idum/IQ
idum=IA*(idum-k*IQ)-IR*k
if (idum.lt.0) idum=idum+IM
j=1+iy/NDIV
iy=iv(j)
iv(j)=idum
ran1=min(AM*iy,RNMX)
return
END FUNCTION ran1

9
lib/superfox/synctest.f90
View File

@ -12,7 +12,7 @@ program synctest
complex clo(NMAX) !Complex Local Oscillator
complex cnoise(NMAX) !Complex noise
complex crcvd(NMAX) !Signal as received
real xdat(ND) !Temporary: for generating idat
! real xdat(ND) !Temporary: for generating idat
integer*1 idat(ND) !Encoded data, 7-bit integers
integer*1 jdat(ND) !Recovered hard-decision symbols
character fname*17,arg*12
@ -39,9 +39,11 @@ program synctest
rms=100.
fsample=12000.0 !Sample rate (Hz)
baud=12000.0/nsps !Keying rate, 11.719 baud for nsps=1024
idummy=0
call random_number(xdat)
idat=int(127.9999*xdat)
do i=1,ND
idat(i)=128*ran1(idummy)
enddo
h=default_header(12000,NMAX)
fname='000000_000001.wav'
@ -99,3 +101,4 @@ program synctest
include 'gen_sfox.f90'
include 'sync_sf.f90'
include 'hard_symbols.f90'
include 'ran1.f90'