mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-04-29 06:31:41 -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
|