mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-03 16:01:18 -05:00
15 lines
347 B
Fortran
15 lines
347 B
Fortran
|
subroutine jt9b(jt9com,nbytes)
|
||
|
|
|
||
|
|
parameter (NTMAX=120)
|
||
|
|
parameter (NSMAX=1365)
|
||
|
|
integer*1 jt9com(0:nbytes-1)
|
||
|
|
kss=0
|
||
|
|
ksavg=kss + 4*184*NSMAX
|
||
|
|
kc0=ksavg + 4*NSMAX
|
||
|
|
kid2=kc0 + 2*4*NTMAX*1500
|
||
|
|
knutc=kid2 + 2*NTMAX*12000
|
||
|
|
call jt9c(jt9com(kss),jt9com(ksavg),jt9com(kc0),jt9com(kid2),jt9com(knutc))
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine jt9b
|