mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-18 04:26:33 -04:00
Needs thorough testing, especially for drifting signals! git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2774 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
28 lines
494 B
Fortran
28 lines
494 B
Fortran
subroutine getlags(nsps8,lag0,lag1,lag2)
|
|
if(nsps8.eq.864) then
|
|
lag1=39
|
|
lag2=291
|
|
lag0=123
|
|
else if(nsps8.eq.1920) then
|
|
lag1=70
|
|
lag2=184
|
|
lag0=108
|
|
else if(nsps8.eq.5120) then
|
|
lag1=84
|
|
lag2=129
|
|
lag0=99
|
|
else if(nsps8.eq.10368) then
|
|
lag1=91
|
|
lag2=112
|
|
lag0=98
|
|
else if(nsps8.eq.31500) then
|
|
lag1=93
|
|
lag2=102
|
|
lag0=96
|
|
else
|
|
stop 'Error in getlags'
|
|
endif
|
|
|
|
return
|
|
end subroutine getlags
|