mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-07-16 00:25:19 -04:00
88e47a5941
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6600 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
18 lines
421 B
Fortran
18 lines
421 B
Fortran
subroutine refspec(id2,k)
|
|
|
|
! Input:
|
|
! id2 raw 16-bit integer data, 12000 Hz sample rate
|
|
! k pointer to the most recent new data
|
|
|
|
! Output (in common/c0com)
|
|
! c0 complex data downsampled to 1500 Hz
|
|
|
|
parameter (NMAX=120*12000) !Total sample intervals per 30 minutes
|
|
integer*2 id2(0:NMAX-1)
|
|
|
|
! write(*,3001) id2(k-3456:k-3456+9),k
|
|
!3001 format(10i5,i10)
|
|
|
|
return
|
|
end subroutine refspec
|