w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

A few tweaks to make it compile and run in Linux/ALSA, Linux PortAudio,

Browse Source 
and Windows.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@114 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-01-16 16:39:11 +00:00
parent bc694f8c9c
commit 1e442bf2c8
8 changed files with 464 additions and 442 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
README_592.TXT
View File

@ -4,31 +4,31 @@ Changes in WSJT 5.9.2: January 10, 2006
Enhancements Enhancements
------------ ------------
1. Thread priorities have been adjusted for smoother operation. One 1. Thread priorities have been adjusted for smoother operation.
result is that there will be fewer audio glitches caused by the
Windows O/S paying attention to other programs.
2. The JT65 decoder now has improved immunity to "garbage data," and 2. The JT65 decoder now has improved immunity to garbage data
it exhibits better performance on strong signals. (birdies, QRM, etc.) and it exhibits better performance on
strong signals.
3. The FSK441 decoder produces less on-screen gibberish when you do 3. The FSK441 decoder produces less on-screen gibberish when you
mouse-picked decodes. request mouse-picked decodes.
4. The JT6M decoder now makes better use of Freeze and Tol. You can 4. The JT6M decoder now makes better use of Freeze and Tol. You can
set the value of "Freeze DF" by using the Right/Left arrow keys. set the value of "Freeze DF" by using the Right/Left arrow keys.
(This feature is also useful in JT65 mode.)
5. On-screen font sizes can be set by using Windows Notepad (or 5. On-screen font sizes can be set by using Windows Notepad (or
another text editor) to edit the file wsjtrc.win. If your screen another text editor) to edit the file wsjtrc.win. If your screen
has resolution greater than 1024 x 768, or if you have old eyes has resolution greater than 1024 x 768, or if you have old eyes
like mine, you may want to increase the sizes from 8 and 9 points like mine, you may want to increase the font sizes from 8 and 9
(first three lines of the file) to, say, 9 and 10 points. points (first three lines of the file) to, say, 9 and 10 points.
6. A simulator mode is now built into WSJT. It is presently most 6. A simulator mode is now built into WSJT. It is presently most
useful in JT65 mode. By entering, say, "#-22" in the text box for useful in JT65 mode. By entering, say, "#-22" in the text box for
Tx6, you signify that the program should generate its Tx audio Tx6, you signify that the program should generate its Tx audio
files with the signal embedded in white gaussian noise, 22 dB files with the signal embedded in white gaussian noise, 22 dB
below the noise power in a 2.5 kHz bandwidth. You can direct this below the noise power in a 2.5 kHz bandwidth. You can direct this
signal into a second computer running WSJT, for eaxmple to test signal into a second computer running WSJT, for example to test
the decoder or to practice operating in JT65 mode. You can even the decoder or to practice operating in JT65 mode. You can even
have the two computers "work each other", although changing have the two computers "work each other", although changing
messages of course requires operator action. messages of course requires operator action.
@ -83,6 +83,7 @@ The present WSJT working group consists of:
Diane Bruce, VA3DB Diane Bruce, VA3DB
James Courtier-Dutton James Courtier-Dutton
Bob McGwier, N4HY Bob McGwier, N4HY
Jonathan Naylor, ON/G4KLX
Stewart Nelson, KK7KA Stewart Nelson, KK7KA
Joe Taylor, K1JT Joe Taylor, K1JT
Kaj Wiik, OH6EH Kaj Wiik, OH6EH

145
audio_init.f90
View File

@ -1,69 +1,78 @@
!------------------------------------------------ audio_init
!------------------------------------------------ audio_init subroutine audio_init(ndin,ndout)
subroutine audio_init(ndin,ndout)
#ifdef Win32
#ifdef Win32 use dfmt
use dfmt integer Thread1,Thread2
integer Thread1,Thread2 external a2d,decode1
external a2d,decode1
#endif #endif
integer*2 a(225000) !Pixel values for 750 x 300 array integer*2 a(225000) !Pixel values for 750 x 300 array
integer brightness,contrast integer brightness,contrast
include 'gcom1.f90' include 'gcom1.f90'
include 'gcom2.f90'
ndevin=ndin
ndevout=ndout nmode=1
TxOK=0 if(mode(1:4).eq.'JT65') then
Transmitting=0 nmode=2
nfsample=11025 if(mode(5:5).eq.'A') mode65=1
nspb=1024 if(mode(5:5).eq.'B') mode65=2
nbufs=2048 if(mode(5:5).eq.'C') mode65=4
nmax=nbufs*nspb endif
nwave=60*nfsample if(mode.eq.'Echo') nmode=3
ngo=1 if(mode.eq.'JT6M') nmode=4
brightness=0 ndevin=ndin
contrast=0 ndevout=ndout
nsec=1 TxOK=0
df=11025.0/4096 Transmitting=0
f0=800.0 nfsample=11025
do i=1,nwave nspb=1024
iwave(i)=nint(32767.0*sin(6.283185307*i*f0/nfsample)) nbufs=2048
enddo nmax=nbufs*nspb
nwave=60*nfsample
#ifdef Win32 ngo=1
! Priority classes (for processes): brightness=0
! IDLE_PRIORITY_CLASS 64 contrast=0
! NORMAL_PRIORITY_CLASS 32 nsec=1
! HIGH_PRIORITY_CLASS 128 df=11025.0/4096
f0=800.0
! Priority definitions (for threads): do i=1,nwave
! THREAD_PRIORITY_IDLE -15 iwave(i)=nint(32767.0*sin(6.283185307*i*f0/nfsample))
! THREAD_PRIORITY_LOWEST -2 enddo
! THREAD_PRIORITY_BELOW_NORMAL -1
! THREAD_PRIORITY_NORMAL 0 #ifdef Win32
! THREAD_PRIORITY_ABOVE_NORMAL 1 ! Priority classes (for processes):
! THREAD_PRIORITY_HIGHEST 2 ! IDLE_PRIORITY_CLASS 64
! THREAD_PRIORITY_TIME_CRITICAL 15 ! NORMAL_PRIORITY_CLASS 32
! HIGH_PRIORITY_CLASS 128
m0=SetPriorityClass(GetCurrentProcess(),NORMAL_PRIORITY_CLASS)
! Priority definitions (for threads):
! Start a thread for doing A/D and D/A with sound card. ! THREAD_PRIORITY_IDLE -15
Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id) ! THREAD_PRIORITY_LOWEST -2
m1=SetThreadPriority(Thread1,THREAD_PRIORITY_ABOVE_NORMAL) ! THREAD_PRIORITY_BELOW_NORMAL -1
m2=ResumeThread(Thread1) ! THREAD_PRIORITY_NORMAL 0
! THREAD_PRIORITY_ABOVE_NORMAL 1
! Start a thread for background decoding. ! THREAD_PRIORITY_HIGHEST 2
Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id) ! THREAD_PRIORITY_TIME_CRITICAL 15
m3=SetThreadPriority(Thread2,THREAD_PRIORITY_BELOW_NORMAL)
m4=ResumeThread(Thread2) m0=SetPriorityClass(GetCurrentProcess(),NORMAL_PRIORITY_CLASS)
#else
! print*,'Audio INIT called.' ! Start a thread for doing A/D and D/A with sound card.
ierr=start_threads(ndevin,ndevout,y1,y2,nmax,iwrite,iwave,nwave, & Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id)
11025,NSPB,TRPeriod,TxOK,ndebug,Transmitting, & m1=SetThreadPriority(Thread1,THREAD_PRIORITY_ABOVE_NORMAL)
Tsec,ngo,nmode,tbuf,ibuf,ndsec) m2=ResumeThread(Thread1)
#endif ! Start a thread for background decoding.
Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id)
return m3=SetThreadPriority(Thread2,THREAD_PRIORITY_BELOW_NORMAL)
end subroutine audio_init m4=ResumeThread(Thread2)
#else
! print*,'Audio INIT called.'
ierr=start_threads(ndevin,ndevout,y1,y2,nmax,iwrite,iwave,nwave, &
11025,NSPB,TRPeriod,TxOK,ndebug,Transmitting, &
Tsec,ngo,nmode,tbuf,ibuf,ndsec)
#endif
return
end subroutine audio_init

2
fivehz.f90
View File

@ -211,7 +211,7 @@ subroutine addnoise(n)
real r(12) real r(12)
real*8 txsnrdb0 real*8 txsnrdb0
include 'gcom1.f90' include 'gcom1.f90'
save txsnrdb0 save
if(txsnrdb.gt.40.0) return if(txsnrdb.gt.40.0) return
if(txsnrdb.ne.txsnrdb0) then if(txsnrdb.ne.txsnrdb0) then

700
four2.f
View File

@ -1,350 +1,350 @@
SUBROUTINE FOUR2a (DATA,N,NDIM,ISIGN,IFORM) SUBROUTINE FOUR2a (DATA,N,NDIM,ISIGN,IFORM)
C Cooley-Tukey fast Fourier transform in USASI basic Fortran. C Cooley-Tukey fast Fourier transform in USASI basic Fortran.
C multi-dimensional transform, each dimension a power of two, C multi-dimensional transform, each dimension a power of two,
C complex or real data. C complex or real data.
C TRANSFORM(K1,K2,...) = SUM(DATA(J1,J2,...)*EXP(ISIGN*2*PI*SQRT(-1) C TRANSFORM(K1,K2,...) = SUM(DATA(J1,J2,...)*EXP(ISIGN*2*PI*SQRT(-1)
C *((J1-1)*(K1-1)/N(1)+(J2-1)*(K2-1)/N(2)+...))), summed for all C *((J1-1)*(K1-1)/N(1)+(J2-1)*(K2-1)/N(2)+...))), summed for all
C J1 and K1 from 1 to N(1), J2 and K2 from 1 TO N(2), C J1 and K1 from 1 to N(1), J2 and K2 from 1 TO N(2),
C etc, for all NDIM subscripts. NDIM must be positive and C etc, for all NDIM subscripts. NDIM must be positive and
C each N(IDIM) must be a power of two. ISIGN is +1 or -1. C each N(IDIM) must be a power of two. ISIGN is +1 or -1.
C Let NTOT = N(1)*N(2)*...*N(NDIM). Then a -1 transform C Let NTOT = N(1)*N(2)*...*N(NDIM). Then a -1 transform
C followed by a +1 one (or vice versa) returns NTOT C followed by a +1 one (or vice versa) returns NTOT
C times the original data. C times the original data.
C IFORM = 1, 0 or -1, as data is C IFORM = 1, 0 or -1, as data is
C complex, real, or the first half of a complex array. Transform C complex, real, or the first half of a complex array. Transform
C values are returned in array DATA. They are complex, real, or C values are returned in array DATA. They are complex, real, or
C the first half of a complex array, as IFORM = 1, -1 or 0. C the first half of a complex array, as IFORM = 1, -1 or 0.
C The transform of a real array (IFORM = 0) dimensioned N(1) by N(2) C The transform of a real array (IFORM = 0) dimensioned N(1) by N(2)
C by ... will be returned in the same array, now considered to C by ... will be returned in the same array, now considered to
C be complex of dimensions N(1)/2+1 by N(2) by .... Note that if C be complex of dimensions N(1)/2+1 by N(2) by .... Note that if
C IFORM = 0 or -1, N(1) must be even, and enough room must be C IFORM = 0 or -1, N(1) must be even, and enough room must be
C reserved. The missing values may be obtained by complex conjuga- C reserved. The missing values may be obtained by complex conjuga-
C tion. C tion.
C The reverse transformation of a half complex array dimensioned C The reverse transformation of a half complex array dimensioned
C N(1)/2+1 by N(2) by ..., is accomplished by setting IFORM C N(1)/2+1 by N(2) by ..., is accomplished by setting IFORM
C to -1. In the N array, N(1) must be the true N(1), not N(1)/2+1. C to -1. In the N array, N(1) must be the true N(1), not N(1)/2+1.
C The transform will be real and returned to the input array. C The transform will be real and returned to the input array.
C Running time is proportional to NTOT*LOG2(NTOT), rather than C Running time is proportional to NTOT*LOG2(NTOT), rather than
C the naive NTOT**2. Furthermore, less error is built up. C the naive NTOT**2. Furthermore, less error is built up.
C Written by Norman Brenner of MIT Lincoln Laboratory, January 1969. C Written by Norman Brenner of MIT Lincoln Laboratory, January 1969.
C See IEEE Audio Transactions (June 1967), Special issue on FFT. C See IEEE Audio Transactions (June 1967), Special issue on FFT.
parameter(NMAX=2048*1024) parameter(NMAX=2048*1024)
DIMENSION DATA(NMAX), N(1) DIMENSION DATA(NMAX), N(1)
NTOT=1 NTOT=1
DO 10 IDIM=1,NDIM DO 10 IDIM=1,NDIM
10 NTOT=NTOT*N(IDIM) 10 NTOT=NTOT*N(IDIM)
IF (IFORM) 70,20,20 IF (IFORM) 70,20,20
20 NREM=NTOT 20 NREM=NTOT
DO 60 IDIM=1,NDIM DO 60 IDIM=1,NDIM
NREM=NREM/N(IDIM) NREM=NREM/N(IDIM)
NPREV=NTOT/(N(IDIM)*NREM) NPREV=NTOT/(N(IDIM)*NREM)
NCURR=N(IDIM) NCURR=N(IDIM)
IF (IDIM-1+IFORM) 30,30,40 IF (IDIM-1+IFORM) 30,30,40
30 NCURR=NCURR/2 30 NCURR=NCURR/2
40 CALL BITRV (DATA,NPREV,NCURR,NREM) 40 CALL BITRV (DATA,NPREV,NCURR,NREM)
CALL COOL2 (DATA,NPREV,NCURR,NREM,ISIGN) CALL COOL2 (DATA,NPREV,NCURR,NREM,ISIGN)
IF (IDIM-1+IFORM) 50,50,60 IF (IDIM-1+IFORM) 50,50,60
50 CALL FIXRL (DATA,N(1),NREM,ISIGN,IFORM) 50 CALL FIXRL (DATA,N(1),NREM,ISIGN,IFORM)
NTOT=(NTOT/N(1))*(N(1)/2+1) NTOT=(NTOT/N(1))*(N(1)/2+1)
60 CONTINUE 60 CONTINUE
RETURN RETURN
70 NTOT=(NTOT/N(1))*(N(1)/2+1) 70 NTOT=(NTOT/N(1))*(N(1)/2+1)
NREM=1 NREM=1
DO 100 JDIM=1,NDIM DO 100 JDIM=1,NDIM
IDIM=NDIM+1-JDIM IDIM=NDIM+1-JDIM
NCURR=N(IDIM) NCURR=N(IDIM)
IF (IDIM-1) 80,80,90 IF (IDIM-1) 80,80,90
80 NCURR=NCURR/2 80 NCURR=NCURR/2
CALL FIXRL (DATA,N(1),NREM,ISIGN,IFORM) CALL FIXRL (DATA,N(1),NREM,ISIGN,IFORM)
NTOT=NTOT/(N(1)/2+1)*N(1) NTOT=NTOT/(N(1)/2+1)*N(1)
90 NPREV=NTOT/(N(IDIM)*NREM) 90 NPREV=NTOT/(N(IDIM)*NREM)
CALL BITRV (DATA,NPREV,NCURR,NREM) CALL BITRV (DATA,NPREV,NCURR,NREM)
CALL COOL2 (DATA,NPREV,NCURR,NREM,ISIGN) CALL COOL2 (DATA,NPREV,NCURR,NREM,ISIGN)
100 NREM=NREM*N(IDIM) 100 NREM=NREM*N(IDIM)
RETURN RETURN
END END
SUBROUTINE BITRV (DATA,NPREV,N,NREM) SUBROUTINE BITRV (DATA,NPREV,N,NREM)
C SHUFFLE THE DATA BY BIT REVERSAL. C SHUFFLE THE DATA BY BIT REVERSAL.
C DIMENSION DATA(NPREV,N,NREM) C DIMENSION DATA(NPREV,N,NREM)
C COMPLEX DATA C COMPLEX DATA
C EXCHANGE DATA(J1,J4REV,J5) WITH DATA(J1,J4,J5) FOR ALL J1 FROM 1 C EXCHANGE DATA(J1,J4REV,J5) WITH DATA(J1,J4,J5) FOR ALL J1 FROM 1
C TO NPREV, ALL J4 FROM 1 TO N (WHICH MUST BE A POWER OF TWO), AND C TO NPREV, ALL J4 FROM 1 TO N (WHICH MUST BE A POWER OF TWO), AND
C ALL J5 FROM 1 TO NREM. J4REV-1 IS THE BIT REVERSAL OF J4-1. E.G. C ALL J5 FROM 1 TO NREM. J4REV-1 IS THE BIT REVERSAL OF J4-1. E.G.
C SUPPOSE N = 32. THEN FOR J4-1 = 10011, J4REV-1 = 11001, ETC. C SUPPOSE N = 32. THEN FOR J4-1 = 10011, J4REV-1 = 11001, ETC.
parameter(NMAX=2048*1024) parameter(NMAX=2048*1024)
DIMENSION DATA(NMAX) DIMENSION DATA(NMAX)
IP0=2 IP0=2
IP1=IP0*NPREV IP1=IP0*NPREV
IP4=IP1*N IP4=IP1*N
IP5=IP4*NREM IP5=IP4*NREM
I4REV=1 I4REV=1
C I4REV = 1+(J4REV-1)*IP1 C I4REV = 1+(J4REV-1)*IP1
DO 60 I4=1,IP4,IP1 DO 60 I4=1,IP4,IP1
C I4 = 1+(J4-1)*IP1 C I4 = 1+(J4-1)*IP1
IF (I4-I4REV) 10,30,30 IF (I4-I4REV) 10,30,30
10 I1MAX=I4+IP1-IP0 10 I1MAX=I4+IP1-IP0
DO 20 I1=I4,I1MAX,IP0 DO 20 I1=I4,I1MAX,IP0
C I1 = 1+(J1-1)*IP0+(J4-1)*IP1 C I1 = 1+(J1-1)*IP0+(J4-1)*IP1
DO 20 I5=I1,IP5,IP4 DO 20 I5=I1,IP5,IP4
C I5 = 1+(J1-1)*IP0+(J4-1)*IP1+(J5-1)*IP4 C I5 = 1+(J1-1)*IP0+(J4-1)*IP1+(J5-1)*IP4
I5REV=I4REV+I5-I4 I5REV=I4REV+I5-I4
C I5REV = 1+(J1-1)*IP0+(J4REV-1)*IP1+(J5-1)*IP4 C I5REV = 1+(J1-1)*IP0+(J4REV-1)*IP1+(J5-1)*IP4
TEMPR=DATA(I5) TEMPR=DATA(I5)
TEMPI=DATA(I5+1) TEMPI=DATA(I5+1)
DATA(I5)=DATA(I5REV) DATA(I5)=DATA(I5REV)
DATA(I5+1)=DATA(I5REV+1) DATA(I5+1)=DATA(I5REV+1)
DATA(I5REV)=TEMPR DATA(I5REV)=TEMPR
20 DATA(I5REV+1)=TEMPI 20 DATA(I5REV+1)=TEMPI
C ADD ONE WITH DOWNWARD CARRY TO THE HIGH ORDER BIT OF J4REV-1. C ADD ONE WITH DOWNWARD CARRY TO THE HIGH ORDER BIT OF J4REV-1.
30 IP2=IP4/2 30 IP2=IP4/2
40 IF (I4REV-IP2) 60,60,50 40 IF (I4REV-IP2) 60,60,50
50 I4REV=I4REV-IP2 50 I4REV=I4REV-IP2
IP2=IP2/2 IP2=IP2/2
IF (IP2-IP1) 60,40,40 IF (IP2-IP1) 60,40,40
60 I4REV=I4REV+IP2 60 I4REV=I4REV+IP2
RETURN RETURN
END END
SUBROUTINE COOL2 (DATA,NPREV,N,NREM,ISIGN) SUBROUTINE COOL2 (DATA,NPREV,N,NREM,ISIGN)
C DISCRETE FOURIER TRANSFORM OF LENGTH N. IN-PLACE COOLEY-TUKEY C DISCRETE FOURIER TRANSFORM OF LENGTH N. IN-PLACE COOLEY-TUKEY
C ALGORITHM, BIT-REVERSED TO NORMAL ORDER, SANDE-TUKEY PHASE SHIFTS. C ALGORITHM, BIT-REVERSED TO NORMAL ORDER, SANDE-TUKEY PHASE SHIFTS.
C DIMENSION DATA(NPREV,N,NREM) C DIMENSION DATA(NPREV,N,NREM)
C COMPLEX DATA C COMPLEX DATA
C DATA(J1,K4,J5) = SUM(DATA(J1,J4,J5)*EXP(ISIGN*2*PI*I*(J4-1)* C DATA(J1,K4,J5) = SUM(DATA(J1,J4,J5)*EXP(ISIGN*2*PI*I*(J4-1)*
C (K4-1)/N)), SUMMED OVER J4 = 1 TO N FOR ALL J1 FROM 1 TO NPREV, C (K4-1)/N)), SUMMED OVER J4 = 1 TO N FOR ALL J1 FROM 1 TO NPREV,
C K4 FROM 1 TO N AND J5 FROM 1 TO NREM. N MUST BE A POWER OF TWO. C K4 FROM 1 TO N AND J5 FROM 1 TO NREM. N MUST BE A POWER OF TWO.
C METHOD--LET IPREV TAKE THE VALUES 1, 2 OR 4, 4 OR 8, ..., N/16, C METHOD--LET IPREV TAKE THE VALUES 1, 2 OR 4, 4 OR 8, ..., N/16,
C N/4, N. THE CHOICE BETWEEN 2 OR 4, ETC., DEPENDS ON WHETHER N IS C N/4, N. THE CHOICE BETWEEN 2 OR 4, ETC., DEPENDS ON WHETHER N IS
C A POWER OF FOUR. DEFINE IFACT = 2 OR 4, THE NEXT FACTOR THAT C A POWER OF FOUR. DEFINE IFACT = 2 OR 4, THE NEXT FACTOR THAT
C IPREV MUST TAKE, AND IREM = N/(IFACT*IPREV). THEN-- C IPREV MUST TAKE, AND IREM = N/(IFACT*IPREV). THEN--
C DIMENSION DATA(NPREV,IPREV,IFACT,IREM,NREM) C DIMENSION DATA(NPREV,IPREV,IFACT,IREM,NREM)
C COMPLEX DATA C COMPLEX DATA
C DATA(J1,J2,K3,J4,J5) = SUM(DATA(J1,J2,J3,J4,J5)*EXP(ISIGN*2*PI*I* C DATA(J1,J2,K3,J4,J5) = SUM(DATA(J1,J2,J3,J4,J5)*EXP(ISIGN*2*PI*I*
C (K3-1)*((J3-1)/IFACT+(J2-1)/(IFACT*IPREV)))), SUMMED OVER J3 = 1 C (K3-1)*((J3-1)/IFACT+(J2-1)/(IFACT*IPREV)))), SUMMED OVER J3 = 1
C TO IFACT FOR ALL J1 FROM 1 TO NPREV, J2 FROM 1 TO IPREV, K3 FROM C TO IFACT FOR ALL J1 FROM 1 TO NPREV, J2 FROM 1 TO IPREV, K3 FROM
C 1 TO IFACT, J4 FROM 1 TO IREM AND J5 FROM 1 TO NREM. THIS IS C 1 TO IFACT, J4 FROM 1 TO IREM AND J5 FROM 1 TO NREM. THIS IS
C A PHASE-SHIFTED DISCRETE FOURIER TRANSFORM OF LENGTH IFACT. C A PHASE-SHIFTED DISCRETE FOURIER TRANSFORM OF LENGTH IFACT.
C FACTORING N BY FOURS SAVES ABOUT TWENTY FIVE PERCENT OVER FACTOR- C FACTORING N BY FOURS SAVES ABOUT TWENTY FIVE PERCENT OVER FACTOR-
C ING BY TWOS. DATA MUST BE BIT-REVERSED INITIALLY. C ING BY TWOS. DATA MUST BE BIT-REVERSED INITIALLY.
C IT IS NOT NECESSARY TO REWRITE THIS SUBROUTINE INTO COMPLEX C IT IS NOT NECESSARY TO REWRITE THIS SUBROUTINE INTO COMPLEX
C NOTATION SO LONG AS THE FORTRAN COMPILER USED STORES REAL AND C NOTATION SO LONG AS THE FORTRAN COMPILER USED STORES REAL AND
C IMAGINARY PARTS IN ADJACENT STORAGE LOCATIONS. IT MUST ALSO C IMAGINARY PARTS IN ADJACENT STORAGE LOCATIONS. IT MUST ALSO
C STORE ARRAYS WITH THE FIRST SUBSCRIPT INCREASING FASTEST. C STORE ARRAYS WITH THE FIRST SUBSCRIPT INCREASING FASTEST.
parameter(NMAX=2048*1024) parameter(NMAX=2048*1024)
DIMENSION DATA(NMAX) DIMENSION DATA(NMAX)
real*8 twopi,wstpr,wstpi,wr,wi,w2r,w2i,w3r,w3i,wtempr real*8 twopi,wstpr,wstpi,wr,wi,w2r,w2i,w3r,w3i,wtempr
TWOPI=6.2831853072*FLOAT(ISIGN) TWOPI=6.2831853072*FLOAT(ISIGN)
IP0=2 IP0=2
IP1=IP0*NPREV IP1=IP0*NPREV
IP4=IP1*N IP4=IP1*N
IP5=IP4*NREM IP5=IP4*NREM
IP2=IP1 IP2=IP1
C IP2=IP1*IPROD C IP2=IP1*IPROD
NPART=N NPART=N
10 IF (NPART-2) 60,30,20 10 IF (NPART-2) 60,30,20
20 NPART=NPART/4 20 NPART=NPART/4
GO TO 10 GO TO 10
C DO A FOURIER TRANSFORM OF LENGTH TWO C DO A FOURIER TRANSFORM OF LENGTH TWO
30 IF (IP2-IP4) 40,160,160 30 IF (IP2-IP4) 40,160,160
40 IP3=IP2*2 40 IP3=IP2*2
C IP3=IP2*IFACT C IP3=IP2*IFACT
DO 50 I1=1,IP1,IP0 DO 50 I1=1,IP1,IP0
C I1 = 1+(J1-1)*IP0 C I1 = 1+(J1-1)*IP0
DO 50 I5=I1,IP5,IP3 DO 50 I5=I1,IP5,IP3
C I5 = 1+(J1-1)*IP0+(J4-1)*IP3+(J5-1)*IP4 C I5 = 1+(J1-1)*IP0+(J4-1)*IP3+(J5-1)*IP4
I3A=I5 I3A=I5
I3B=I3A+IP2 I3B=I3A+IP2
C I3 = 1+(J1-1)*IP0+(J2-1)*IP1+(J3-1)*IP2+(J4-1)*IP3+(J5-1)*IP4 C I3 = 1+(J1-1)*IP0+(J2-1)*IP1+(J3-1)*IP2+(J4-1)*IP3+(J5-1)*IP4
TEMPR=DATA(I3B) TEMPR=DATA(I3B)
TEMPI=DATA(I3B+1) TEMPI=DATA(I3B+1)
DATA(I3B)=DATA(I3A)-TEMPR DATA(I3B)=DATA(I3A)-TEMPR
DATA(I3B+1)=DATA(I3A+1)-TEMPI DATA(I3B+1)=DATA(I3A+1)-TEMPI
DATA(I3A)=DATA(I3A)+TEMPR DATA(I3A)=DATA(I3A)+TEMPR
50 DATA(I3A+1)=DATA(I3A+1)+TEMPI 50 DATA(I3A+1)=DATA(I3A+1)+TEMPI
IP2=IP3 IP2=IP3
C DO A FOURIER TRANSFORM OF LENGTH FOUR (FROM BIT REVERSED ORDER) C DO A FOURIER TRANSFORM OF LENGTH FOUR (FROM BIT REVERSED ORDER)
60 IF (IP2-IP4) 70,160,160 60 IF (IP2-IP4) 70,160,160
70 IP3=IP2*4 70 IP3=IP2*4
C IP3=IP2*IFACT C IP3=IP2*IFACT
C COMPUTE TWOPI THRU WR AND WI IN DOUBLE PRECISION, IF AVAILABLE. C COMPUTE TWOPI THRU WR AND WI IN DOUBLE PRECISION, IF AVAILABLE.
THETA=TWOPI/FLOAT(IP3/IP1) THETA=TWOPI/FLOAT(IP3/IP1)
SINTH=SIN(THETA/2) SINTH=SIN(THETA/2)
WSTPR=-2*SINTH*SINTH WSTPR=-2*SINTH*SINTH
WSTPI=SIN(THETA) WSTPI=SIN(THETA)
WR=1. WR=1.
WI=0. WI=0.
DO 150 I2=1,IP2,IP1 DO 150 I2=1,IP2,IP1
C I2 = 1+(J2-1)*IP1 C I2 = 1+(J2-1)*IP1
IF (I2-1) 90,90,80 IF (I2-1) 90,90,80
80 W2R=WR*WR-WI*WI 80 W2R=WR*WR-WI*WI
W2I=2*WR*WI W2I=2*WR*WI
W3R=W2R*WR-W2I*WI W3R=W2R*WR-W2I*WI
W3I=W2R*WI+W2I*WR W3I=W2R*WI+W2I*WR
90 I1MAX=I2+IP1-IP0 90 I1MAX=I2+IP1-IP0
DO 140 I1=I2,I1MAX,IP0 DO 140 I1=I2,I1MAX,IP0
C I1 = 1+(J1-1)*IP0+(J2-1)*IP1 C I1 = 1+(J1-1)*IP0+(J2-1)*IP1
DO 140 I5=I1,IP5,IP3 DO 140 I5=I1,IP5,IP3
C I5 = 1+(J1-1)*IP0+(J2-1)*IP1+(J4-1)*IP3+(J5-1)*IP4 C I5 = 1+(J1-1)*IP0+(J2-1)*IP1+(J4-1)*IP3+(J5-1)*IP4
I3A=I5 I3A=I5
I3B=I3A+IP2 I3B=I3A+IP2
I3C=I3B+IP2 I3C=I3B+IP2
I3D=I3C+IP2 I3D=I3C+IP2
C I3 = 1+(J1-1)*IP0+(J2-1)*IP1+(J3-1)*IP2+(J4-1)*IP3+(J5-1)*IP4 C I3 = 1+(J1-1)*IP0+(J2-1)*IP1+(J3-1)*IP2+(J4-1)*IP3+(J5-1)*IP4
IF (I2-1) 110,110,100 IF (I2-1) 110,110,100
C APPLY THE PHASE SHIFT FACTORS C APPLY THE PHASE SHIFT FACTORS
100 TEMPR=DATA(I3B) 100 TEMPR=DATA(I3B)
DATA(I3B)=W2R*DATA(I3B)-W2I*DATA(I3B+1) DATA(I3B)=W2R*DATA(I3B)-W2I*DATA(I3B+1)
DATA(I3B+1)=W2R*DATA(I3B+1)+W2I*TEMPR DATA(I3B+1)=W2R*DATA(I3B+1)+W2I*TEMPR
TEMPR=DATA(I3C) TEMPR=DATA(I3C)
DATA(I3C)=WR*DATA(I3C)-WI*DATA(I3C+1) DATA(I3C)=WR*DATA(I3C)-WI*DATA(I3C+1)
DATA(I3C+1)=WR*DATA(I3C+1)+WI*TEMPR DATA(I3C+1)=WR*DATA(I3C+1)+WI*TEMPR
TEMPR=DATA(I3D) TEMPR=DATA(I3D)
DATA(I3D)=W3R*DATA(I3D)-W3I*DATA(I3D+1) DATA(I3D)=W3R*DATA(I3D)-W3I*DATA(I3D+1)
DATA(I3D+1)=W3R*DATA(I3D+1)+W3I*TEMPR DATA(I3D+1)=W3R*DATA(I3D+1)+W3I*TEMPR
110 T0R=DATA(I3A)+DATA(I3B) 110 T0R=DATA(I3A)+DATA(I3B)
T0I=DATA(I3A+1)+DATA(I3B+1) T0I=DATA(I3A+1)+DATA(I3B+1)
T1R=DATA(I3A)-DATA(I3B) T1R=DATA(I3A)-DATA(I3B)
T1I=DATA(I3A+1)-DATA(I3B+1) T1I=DATA(I3A+1)-DATA(I3B+1)
T2R=DATA(I3C)+DATA(I3D) T2R=DATA(I3C)+DATA(I3D)
T2I=DATA(I3C+1)+DATA(I3D+1) T2I=DATA(I3C+1)+DATA(I3D+1)
T3R=DATA(I3C)-DATA(I3D) T3R=DATA(I3C)-DATA(I3D)
T3I=DATA(I3C+1)-DATA(I3D+1) T3I=DATA(I3C+1)-DATA(I3D+1)
DATA(I3A)=T0R+T2R DATA(I3A)=T0R+T2R
DATA(I3A+1)=T0I+T2I DATA(I3A+1)=T0I+T2I
DATA(I3C)=T0R-T2R DATA(I3C)=T0R-T2R
DATA(I3C+1)=T0I-T2I DATA(I3C+1)=T0I-T2I
IF (ISIGN) 120,120,130 IF (ISIGN) 120,120,130
120 T3R=-T3R 120 T3R=-T3R
T3I=-T3I T3I=-T3I
130 DATA(I3B)=T1R-T3I 130 DATA(I3B)=T1R-T3I
DATA(I3B+1)=T1I+T3R DATA(I3B+1)=T1I+T3R
DATA(I3D)=T1R+T3I DATA(I3D)=T1R+T3I
140 DATA(I3D+1)=T1I-T3R 140 DATA(I3D+1)=T1I-T3R
WTEMPR=WR WTEMPR=WR
WR=WSTPR*WTEMPR-WSTPI*WI+WTEMPR WR=WSTPR*WTEMPR-WSTPI*WI+WTEMPR
150 WI=WSTPR*WI+WSTPI*WTEMPR+WI 150 WI=WSTPR*WI+WSTPI*WTEMPR+WI
IP2=IP3 IP2=IP3
GO TO 60 GO TO 60
160 RETURN 160 RETURN
END END
SUBROUTINE FIXRL (DATA,N,NREM,ISIGN,IFORM) SUBROUTINE FIXRL (DATA,N,NREM,ISIGN,IFORM)
C FOR IFORM = 0, CONVERT THE TRANSFORM OF A DOUBLED-UP REAL ARRAY, C FOR IFORM = 0, CONVERT THE TRANSFORM OF A DOUBLED-UP REAL ARRAY,
C CONSIDERED COMPLEX, INTO ITS TRUE TRANSFORM. SUPPLY ONLY THE C CONSIDERED COMPLEX, INTO ITS TRUE TRANSFORM. SUPPLY ONLY THE
C FIRST HALF OF THE COMPLEX TRANSFORM, AS THE SECOND HALF HAS C FIRST HALF OF THE COMPLEX TRANSFORM, AS THE SECOND HALF HAS
C CONJUGATE SYMMETRY. FOR IFORM = -1, CONVERT THE FIRST HALF C CONJUGATE SYMMETRY. FOR IFORM = -1, CONVERT THE FIRST HALF
C OF THE TRUE TRANSFORM INTO THE TRANSFORM OF A DOUBLED-UP REAL C OF THE TRUE TRANSFORM INTO THE TRANSFORM OF A DOUBLED-UP REAL
C ARRAY. N MUST BE EVEN. C ARRAY. N MUST BE EVEN.
C USING COMPLEX NOTATION AND SUBSCRIPTS STARTING AT ZERO, THE C USING COMPLEX NOTATION AND SUBSCRIPTS STARTING AT ZERO, THE
C TRANSFORMATION IS-- C TRANSFORMATION IS--
C DIMENSION DATA(N,NREM) C DIMENSION DATA(N,NREM)
C ZSTP = EXP(ISIGN*2*PI*I/N) C ZSTP = EXP(ISIGN*2*PI*I/N)
C DO 10 I2=0,NREM-1 C DO 10 I2=0,NREM-1
C DATA(0,I2) = CONJ(DATA(0,I2))*(1+I) C DATA(0,I2) = CONJ(DATA(0,I2))*(1+I)
C DO 10 I1=1,N/4 C DO 10 I1=1,N/4
C Z = (1+(2*IFORM+1)*I*ZSTP**I1)/2 C Z = (1+(2*IFORM+1)*I*ZSTP**I1)/2
C I1CNJ = N/2-I1 C I1CNJ = N/2-I1
C DIF = DATA(I1,I2)-CONJ(DATA(I1CNJ,I2)) C DIF = DATA(I1,I2)-CONJ(DATA(I1CNJ,I2))
C TEMP = Z*DIF C TEMP = Z*DIF
C DATA(I1,I2) = (DATA(I1,I2)-TEMP)*(1-IFORM) C DATA(I1,I2) = (DATA(I1,I2)-TEMP)*(1-IFORM)
C 10 DATA(I1CNJ,I2) = (DATA(I1CNJ,I2)+CONJ(TEMP))*(1-IFORM) C 10 DATA(I1CNJ,I2) = (DATA(I1CNJ,I2)+CONJ(TEMP))*(1-IFORM)
C IF I1=I1CNJ, THE CALCULATION FOR THAT VALUE COLLAPSES INTO C IF I1=I1CNJ, THE CALCULATION FOR THAT VALUE COLLAPSES INTO
C A SIMPLE CONJUGATION OF DATA(I1,I2). C A SIMPLE CONJUGATION OF DATA(I1,I2).
parameter(NMAX=2048*1024) parameter(NMAX=2048*1024)
DIMENSION DATA(NMAX) DIMENSION DATA(NMAX)
TWOPI=6.283185307*FLOAT(ISIGN) TWOPI=6.283185307*FLOAT(ISIGN)
IP0=2 IP0=2
IP1=IP0*(N/2) IP1=IP0*(N/2)
IP2=IP1*NREM IP2=IP1*NREM
IF (IFORM) 10,70,70 IF (IFORM) 10,70,70
C PACK THE REAL INPUT VALUES (TWO PER COLUMN) C PACK THE REAL INPUT VALUES (TWO PER COLUMN)
10 J1=IP1+1 10 J1=IP1+1
DATA(2)=DATA(J1) DATA(2)=DATA(J1)
IF (NREM-1) 70,70,20 IF (NREM-1) 70,70,20
20 J1=J1+IP0 20 J1=J1+IP0
I2MIN=IP1+1 I2MIN=IP1+1
DO 60 I2=I2MIN,IP2,IP1 DO 60 I2=I2MIN,IP2,IP1
DATA(I2)=DATA(J1) DATA(I2)=DATA(J1)
J1=J1+IP0 J1=J1+IP0
IF (N-2) 50,50,30 IF (N-2) 50,50,30
30 I1MIN=I2+IP0 30 I1MIN=I2+IP0
I1MAX=I2+IP1-IP0 I1MAX=I2+IP1-IP0
DO 40 I1=I1MIN,I1MAX,IP0 DO 40 I1=I1MIN,I1MAX,IP0
DATA(I1)=DATA(J1) DATA(I1)=DATA(J1)
DATA(I1+1)=DATA(J1+1) DATA(I1+1)=DATA(J1+1)
40 J1=J1+IP0 40 J1=J1+IP0
50 DATA(I2+1)=DATA(J1) 50 DATA(I2+1)=DATA(J1)
60 J1=J1+IP0 60 J1=J1+IP0
70 DO 80 I2=1,IP2,IP1 70 DO 80 I2=1,IP2,IP1
TEMPR=DATA(I2) TEMPR=DATA(I2)
DATA(I2)=DATA(I2)+DATA(I2+1) DATA(I2)=DATA(I2)+DATA(I2+1)
80 DATA(I2+1)=TEMPR-DATA(I2+1) 80 DATA(I2+1)=TEMPR-DATA(I2+1)
IF (N-2) 200,200,90 IF (N-2) 200,200,90
90 THETA=TWOPI/FLOAT(N) 90 THETA=TWOPI/FLOAT(N)
SINTH=SIN(THETA/2.) SINTH=SIN(THETA/2.)
ZSTPR=-2.*SINTH*SINTH ZSTPR=-2.*SINTH*SINTH
ZSTPI=SIN(THETA) ZSTPI=SIN(THETA)
ZR=(1.-ZSTPI)/2. ZR=(1.-ZSTPI)/2.
ZI=(1.+ZSTPR)/2. ZI=(1.+ZSTPR)/2.
IF (IFORM) 100,110,110 IF (IFORM) 100,110,110
100 ZR=1.-ZR 100 ZR=1.-ZR
ZI=-ZI ZI=-ZI
110 I1MIN=IP0+1 110 I1MIN=IP0+1
I1MAX=IP0*(N/4)+1 I1MAX=IP0*(N/4)+1
DO 190 I1=I1MIN,I1MAX,IP0 DO 190 I1=I1MIN,I1MAX,IP0
DO 180 I2=I1,IP2,IP1 DO 180 I2=I1,IP2,IP1
I2CNJ=IP0*(N/2+1)-2*I1+I2 I2CNJ=IP0*(N/2+1)-2*I1+I2
IF (I2-I2CNJ) 150,120,120 IF (I2-I2CNJ) 150,120,120
120 IF (ISIGN*(2*IFORM+1)) 130,140,140 120 IF (ISIGN*(2*IFORM+1)) 130,140,140
130 DATA(I2+1)=-DATA(I2+1) 130 DATA(I2+1)=-DATA(I2+1)
140 IF (IFORM) 170,180,180 140 IF (IFORM) 170,180,180
150 DIFR=DATA(I2)-DATA(I2CNJ) 150 DIFR=DATA(I2)-DATA(I2CNJ)
DIFI=DATA(I2+1)+DATA(I2CNJ+1) DIFI=DATA(I2+1)+DATA(I2CNJ+1)
TEMPR=DIFR*ZR-DIFI*ZI TEMPR=DIFR*ZR-DIFI*ZI
TEMPI=DIFR*ZI+DIFI*ZR TEMPI=DIFR*ZI+DIFI*ZR
DATA(I2)=DATA(I2)-TEMPR DATA(I2)=DATA(I2)-TEMPR
DATA(I2+1)=DATA(I2+1)-TEMPI DATA(I2+1)=DATA(I2+1)-TEMPI
DATA(I2CNJ)=DATA(I2CNJ)+TEMPR DATA(I2CNJ)=DATA(I2CNJ)+TEMPR
DATA(I2CNJ+1)=DATA(I2CNJ+1)-TEMPI DATA(I2CNJ+1)=DATA(I2CNJ+1)-TEMPI
IF (IFORM) 160,180,180 IF (IFORM) 160,180,180
160 DATA(I2CNJ)=DATA(I2CNJ)+DATA(I2CNJ) 160 DATA(I2CNJ)=DATA(I2CNJ)+DATA(I2CNJ)
DATA(I2CNJ+1)=DATA(I2CNJ+1)+DATA(I2CNJ+1) DATA(I2CNJ+1)=DATA(I2CNJ+1)+DATA(I2CNJ+1)
170 DATA(I2)=DATA(I2)+DATA(I2) 170 DATA(I2)=DATA(I2)+DATA(I2)
DATA(I2+1)=DATA(I2+1)+DATA(I2+1) DATA(I2+1)=DATA(I2+1)+DATA(I2+1)
180 CONTINUE 180 CONTINUE
TEMPR=ZR-.5 TEMPR=ZR-.5
ZR=ZSTPR*TEMPR-ZSTPI*ZI+ZR ZR=ZSTPR*TEMPR-ZSTPI*ZI+ZR
190 ZI=ZSTPR*ZI+ZSTPI*TEMPR+ZI 190 ZI=ZSTPR*ZI+ZSTPI*TEMPR+ZI
C RECURSION SAVES TIME, AT A SLIGHT LOSS IN ACCURACY. IF AVAILABLE, C RECURSION SAVES TIME, AT A SLIGHT LOSS IN ACCURACY. IF AVAILABLE,
C USE DOUBLE PRECISION TO COMPUTE ZR AND ZI. C USE DOUBLE PRECISION TO COMPUTE ZR AND ZI.
200 IF (IFORM) 270,210,210 200 IF (IFORM) 270,210,210
C UNPACK THE REAL TRANSFORM VALUES (TWO PER COLUMN) C UNPACK THE REAL TRANSFORM VALUES (TWO PER COLUMN)
210 I2=IP2+1 210 I2=IP2+1
I1=I2 I1=I2
J1=IP0*(N/2+1)*NREM+1 J1=IP0*(N/2+1)*NREM+1
GO TO 250 GO TO 250
220 DATA(J1)=DATA(I1) 220 DATA(J1)=DATA(I1)
DATA(J1+1)=DATA(I1+1) DATA(J1+1)=DATA(I1+1)
I1=I1-IP0 I1=I1-IP0
J1=J1-IP0 J1=J1-IP0
230 IF (I2-I1) 220,240,240 230 IF (I2-I1) 220,240,240
240 DATA(J1)=DATA(I1) 240 DATA(J1)=DATA(I1)
DATA(J1+1)=0. DATA(J1+1)=0.
250 I2=I2-IP1 250 I2=I2-IP1
J1=J1-IP0 J1=J1-IP0
DATA(J1)=DATA(I2+1) DATA(J1)=DATA(I2+1)
DATA(J1+1)=0. DATA(J1+1)=0.
I1=I1-IP0 I1=I1-IP0
J1=J1-IP0 J1=J1-IP0
IF (I2-1) 260,260,230 IF (I2-1) 260,260,230
260 DATA(2)=0. 260 DATA(2)=0.
270 RETURN 270 RETURN
END END

9
jtaudio.c
View File

@ -174,13 +174,16 @@ static int SoundOut( void *inputBuffer, void *outputBuffer,
*wptr++ = n2; //right *wptr++ = n2; //right
ic++; ic++;
if(ic>=*data->nwave) { if(ic>=*data->nwave) {
ic = ic % *data->nwave; //Wrap buffer pointer if necessary if(*data->nmode==2) {
if(*data->nmode==2)
*data->TxOK=0; *data->TxOK=0;
ic--;
}
else
ic = ic % *data->nwave; //Wrap buffer pointer if necessary
} }
} }
} else { } else {
memset((void*)outputBuffer, 0, 2*sizeof(int16_t)*framesPerBuffer); memset((void*)outputBuffer, 0, 2*sizeof(short)*framesPerBuffer);
} }
fivehztx_(); //Call fortran routine fivehztx_(); //Call fortran routine
return 0; return 0;

2
ptt_unix.c
View File

@ -88,7 +88,7 @@ ptt_(int *nport, int *ntx, int *iptt)
/* open the device */ /* open the device */
if ((fd = open(s, O_RDWR | O_NDELAY)) < 0) { if ((fd = open(s, O_RDWR | O_NDELAY)) < 0) {
fprintf(stderr, "Can't open %s.", s); fprintf(stderr, "Can't open %s.\n", s);
return(1); return(1);
} }

18
start_alsa.c
View File

@ -329,6 +329,7 @@ int playback_callback(alsa_driver_t *alsa_driver_playback) {
int nsec; int nsec;
int i,n; int i,n;
static int ic; static int ic;
static short int n2;
int16_t b0[2048]; int16_t b0[2048];
// printf("playback callback\n"); // printf("playback callback\n");
@ -353,12 +354,17 @@ int playback_callback(alsa_driver_t *alsa_driver_playback) {
alsa_playback_buffers[0] = b0; alsa_playback_buffers[0] = b0;
alsa_playback_buffers[1] = b0; alsa_playback_buffers[1] = b0;
for(i=0; i<this->period_size; i++) { for(i=0; i<this->period_size; i++) {
b0[i]=this->app_buffer_y1[ic]; n2=this->app_buffer_y1[ic];
addnoise_(&n2);
b0[i]=n2;
ic++; ic++;
if(ic >= *this->nwave) { if(ic>=*this->nwave) {
ic=ic % *this->nwave; if(*this->nmode==2) {
if(*this->nmode == 2)
*this->tx_ok=0; *this->tx_ok=0;
ic--;
}
else
ic = ic % *this->nwave; //Wrap buffer pointer
} }
} }
} else { } else {
@ -368,7 +374,7 @@ int playback_callback(alsa_driver_t *alsa_driver_playback) {
result = snd_pcm_writen(this->audio_fd, alsa_playback_buffers, this->period_size); result = snd_pcm_writen(this->audio_fd, alsa_playback_buffers, this->period_size);
this->tx_offset += this->period_size; this->tx_offset += this->period_size;
if (result != this->period_size) { if (result != this->period_size) {
printf("playback writei failed. Expected %d samples, sent only %d\n", this->period_size, result); printf("Playback write failed. Expected %d samples, sent only %d\n", this->period_size, result);
#ifdef ALSA_PLAYBACK_LOG #ifdef ALSA_PLAYBACK_LOG
snd_pcm_status_t *pcm_stat; snd_pcm_status_t *pcm_stat;
snd_pcm_status_alloca(&pcm_stat); snd_pcm_status_alloca(&pcm_stat);
@ -524,7 +530,7 @@ int start_threads_(int *ndevin, int *ndevout, short y1[], short y2[],
// printf("start_threads: creating thread for decode1\n"); // printf("start_threads: creating thread for decode1\n");
iret1 = pthread_create(&thread1,NULL,decode1_,&iarg1); iret1 = pthread_create(&thread1,NULL,decode1_,&iarg1);
/* Open audio card. */ /* Open audio card. */
printf("Starting alsa routines.\n"); printf("Using ALSA sound.\n");
ao_alsa_open(&alsa_driver_playback, &rate, SND_PCM_STREAM_PLAYBACK); ao_alsa_open(&alsa_driver_playback, &rate, SND_PCM_STREAM_PLAYBACK);
ao_alsa_open(&alsa_driver_capture, &rate, SND_PCM_STREAM_CAPTURE); ao_alsa_open(&alsa_driver_capture, &rate, SND_PCM_STREAM_CAPTURE);

9
wsjt.py
View File

@ -1,4 +1,4 @@
#--------------------------------------------------------------- WSJT #-------------------------------------------------------------- WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *
import Pmw import Pmw
@ -647,8 +647,11 @@ on 50 MHz; JT65, an extremely sensitive mode for troposcatter
and EME; CW at 15 WPM with messages structured for EME; and and EME; CW at 15 WPM with messages structured for EME; and
an EME Echo mode for measuring your own echoes from the moon. an EME Echo mode for measuring your own echoes from the moon.
WSJT is Copyright (c) 2001-2005 by Joseph H. Taylor, Jr., K1JT, WSJT is Copyright (c) 2001-2006 by Joseph H. Taylor, Jr., K1JT,
and is licensed under the GNU General Public License (GPL). with contributions from additional authors. It is Open Source
software, licensed under the GNU General Public License (GPL).
Source code and programming information may be found at
http://developer.berlios.de/projects/wsjt/.
""" """
Label(about,text=t,justify=LEFT).pack(padx=20) Label(about,text=t,justify=LEFT).pack(padx=20)
t="Revision date: " + \ t="Revision date: " + \