mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-19 10:32:02 -05:00
Cleaning up compiler warning messages ...
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1011 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
parent
c994495382
commit
c123761014
1
afc65b.f
1
afc65b.f
@ -21,7 +21,6 @@
|
|||||||
nfree=npts-nterms
|
nfree=npts-nterms
|
||||||
|
|
||||||
C Start the iteration
|
C Start the iteration
|
||||||
free=nfree
|
|
||||||
chisqr0=1.e6
|
chisqr0=1.e6
|
||||||
do iter=1,3 !One iteration is enough?
|
do iter=1,3 !One iteration is enough?
|
||||||
do j=1,nterms
|
do j=1,nterms
|
||||||
|
|||||||
@ -20,7 +20,6 @@ subroutine decode1(iarg)
|
|||||||
save
|
save
|
||||||
|
|
||||||
kkdone=-99
|
kkdone=-99
|
||||||
ntr0=ntr
|
|
||||||
ns0=999999
|
ns0=999999
|
||||||
|
|
||||||
10 continue
|
10 continue
|
||||||
|
|||||||
@ -83,7 +83,6 @@ C Adding or subtracting a small number (e.g., 5) to j may make it decode.
|
|||||||
nfft=256
|
nfft=256
|
||||||
j=(dt00+dtbest+2.685)*1378.125 + joff
|
j=(dt00+dtbest+2.685)*1378.125 + joff
|
||||||
if(j.lt.0) j=0
|
if(j.lt.0) j=0
|
||||||
j0=j
|
|
||||||
do k=1,nsym
|
do k=1,nsym
|
||||||
do i=1,nfft
|
do i=1,nfft
|
||||||
j=j+1
|
j=j+1
|
||||||
|
|||||||
20
fivehz.F90
20
fivehz.F90
@ -16,7 +16,6 @@ subroutine fivehz
|
|||||||
|
|
||||||
parameter (NTRING=64)
|
parameter (NTRING=64)
|
||||||
real*8 tt1(0:NTRING-1)
|
real*8 tt1(0:NTRING-1)
|
||||||
real*8 tstart,tstop,t60
|
|
||||||
logical first,txtime,filled
|
logical first,txtime,filled
|
||||||
integer ptt
|
integer ptt
|
||||||
integer TxOKz
|
integer TxOKz
|
||||||
@ -157,25 +156,6 @@ subroutine fivehz
|
|||||||
rxdone=.true.
|
rxdone=.true.
|
||||||
ibuf00=ibuf0
|
ibuf00=ibuf0
|
||||||
endif
|
endif
|
||||||
|
|
||||||
! Diagnostic timing information:
|
|
||||||
! t60=mod(tsec,60.d0)
|
|
||||||
! if(TxOK.ne.TxOKz) then
|
|
||||||
! if(TxOK.eq.1) write(*,1101) 'D2:',t
|
|
||||||
!1101 format(a3,f8.1,i8)
|
|
||||||
! if(TxOK.eq.0) then
|
|
||||||
! tstop=tsec
|
|
||||||
! write(*,1101) 'D3:',t,nc0a
|
|
||||||
! endif
|
|
||||||
! endif
|
|
||||||
! if(iptt.ne.iptt0) then
|
|
||||||
! if(iptt.eq.1) then
|
|
||||||
! tstart=tsec
|
|
||||||
! write(*,1101) 'D1:',t,nc1a
|
|
||||||
! endif
|
|
||||||
! if(iptt.eq.0) write(*,1101) 'D4:',t
|
|
||||||
! endif
|
|
||||||
|
|
||||||
iptt0=iptt
|
iptt0=iptt
|
||||||
TxOKz=TxOK
|
TxOKz=TxOK
|
||||||
ntr0=ntr
|
ntr0=ntr
|
||||||
|
|||||||
@ -24,6 +24,7 @@
|
|||||||
subroutine ftn_init
|
subroutine ftn_init
|
||||||
|
|
||||||
character*1 cjunk
|
character*1 cjunk
|
||||||
|
integer ptt
|
||||||
include 'gcom1.f90'
|
include 'gcom1.f90'
|
||||||
include 'gcom2.f90'
|
include 'gcom2.f90'
|
||||||
include 'gcom3.f90'
|
include 'gcom3.f90'
|
||||||
@ -158,8 +159,6 @@ subroutine ftn_init
|
|||||||
stop
|
stop
|
||||||
930 print*,'Error opening AZEL.DAT'
|
930 print*,'Error opening AZEL.DAT'
|
||||||
stop
|
stop
|
||||||
940 print*,'Error opening DEBUG.TXT'
|
|
||||||
stop
|
|
||||||
950 print*,'Error opening ALL65.TXT'
|
950 print*,'Error opening ALL65.TXT'
|
||||||
stop
|
stop
|
||||||
|
|
||||||
|
|||||||
2
map65.py
2
map65.py
@ -1,4 +1,4 @@
|
|||||||
#--------------------------------------------------------------------- MAP65
|
#-------------------------------------------------------------------- MAP65
|
||||||
# $Date$ $Revision$
|
# $Date$ $Revision$
|
||||||
#
|
#
|
||||||
from Tkinter import *
|
from Tkinter import *
|
||||||
|
|||||||
22
wsjtgen.F90
22
wsjtgen.F90
@ -14,11 +14,9 @@ subroutine wsjtgen
|
|||||||
parameter (NDPC=3) !Dits per character
|
parameter (NDPC=3) !Dits per character
|
||||||
parameter (NWMAX=661500) !Max length of waveform = 60*11025
|
parameter (NWMAX=661500) !Max length of waveform = 60*11025
|
||||||
parameter (NTONES=4) !Number of FSK tones
|
parameter (NTONES=4) !Number of FSK tones
|
||||||
|
|
||||||
integer itone(84)
|
|
||||||
character msg*28,msgsent*22,idmsg*22
|
character msg*28,msgsent*22,idmsg*22
|
||||||
real*8 freq,pha,dpha,twopi,dt
|
real*8 freq,dpha,twopi
|
||||||
character testfile*27,tfile2*80
|
character testfile*27
|
||||||
logical lcwid
|
logical lcwid
|
||||||
integer*2 icwid(110250),jwave(NWMAX)
|
integer*2 icwid(110250),jwave(NWMAX)
|
||||||
|
|
||||||
@ -43,6 +41,7 @@ subroutine wsjtgen
|
|||||||
|
|
||||||
msg=txmsg
|
msg=txmsg
|
||||||
ntxnow=ntxreq
|
ntxnow=ntxreq
|
||||||
|
|
||||||
! Convert all letters to upper case
|
! Convert all letters to upper case
|
||||||
do i=1,28
|
do i=1,28
|
||||||
if(msg(i:i).ge.'a' .and. msg(i:i).le.'z') &
|
if(msg(i:i).ge.'a' .and. msg(i:i).le.'z') &
|
||||||
@ -75,18 +74,6 @@ subroutine wsjtgen
|
|||||||
call rfile(18,iwave,ndata,ierr)
|
call rfile(18,iwave,ndata,ierr)
|
||||||
close(18)
|
close(18)
|
||||||
if(ierr.ne.0) print*,'Error reading test file ',msg(2:)
|
if(ierr.ne.0) print*,'Error reading test file ',msg(2:)
|
||||||
|
|
||||||
!#else
|
|
||||||
! tfile2=testfile
|
|
||||||
! call rfile2(tfile2,hdr,44+2*661500,nr)
|
|
||||||
! if(nr.le.0) then
|
|
||||||
! print*,'Error reading ',testfile
|
|
||||||
! stop
|
|
||||||
! endif
|
|
||||||
! do i=1,ndata/2
|
|
||||||
! iwave(i)=jwave(i)
|
|
||||||
! enddo
|
|
||||||
!#endif
|
|
||||||
nwave=ndata/2
|
nwave=ndata/2
|
||||||
do i=nwave,NTXMAX
|
do i=nwave,NTXMAX
|
||||||
iwave(i)=0
|
iwave(i)=0
|
||||||
@ -117,9 +104,6 @@ subroutine wsjtgen
|
|||||||
goto 900
|
goto 900
|
||||||
endif
|
endif
|
||||||
|
|
||||||
dt=1.d0/fsample_out
|
|
||||||
LTone=2
|
|
||||||
|
|
||||||
! We're in JT65 mode.
|
! We're in JT65 mode.
|
||||||
if(mode(5:5).eq.'A') mode65=1
|
if(mode(5:5).eq.'A') mode65=1
|
||||||
if(mode(5:5).eq.'B') mode65=2
|
if(mode(5:5).eq.'B') mode65=2
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user