mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-20 02:52:00 -05:00
23298c1743
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6601 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
15 lines
323 B
Fortran
15 lines
323 B
Fortran
subroutine refspectrum(id2,brefspec)
|
|
|
|
! Input:
|
|
! id2 i*2 Raw 16-bit integer data, 12000 Hz sample rate
|
|
! brefspec logical True when accumulating a reference spectrum
|
|
|
|
integer*2 id2(3456)
|
|
logical brefspec
|
|
|
|
! write(*,3001) id2(1:10),brefspec
|
|
!3001 format(10i5,L8)
|
|
|
|
return
|
|
end subroutine refspectrum
|