mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-04-18 17:29:02 -04:00
10 lines
124 B
Fortran
10 lines
124 B
Fortran
subroutine zaptx(dd,k0,k)
|
|
|
|
parameter(NMAX=60*96000)
|
|
real dd(2,NMAX)
|
|
|
|
dd(1:2,k0+1:k)=0.
|
|
|
|
return
|
|
end subroutine zaptx
|