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

Fis a few more compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-22 14:08:53 -04:00
parent c3b724a377
commit b2a56fec8b
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fst4_decode.f90
View File

@ -630,7 +630,7 @@ contains
close(42) close(42)
endif endif
900 return return
end subroutine decode end subroutine decode
subroutine sync_fst4(cd0,i0,f0,hmod,ncoh,np,nss,ntr,fs,sync) subroutine sync_fst4(cd0,i0,f0,hmod,ncoh,np,nss,ntr,fs,sync)

1
map65/libm65/gen_q65_wave.f90
View File

@ -11,7 +11,6 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
character*16 cjunk character*16 cjunk
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
integer itone(85) integer itone(85)
integer sent(63)
integer*2 iwave(NMAX) integer*2 iwave(NMAX)
integer icos7(0:6) integer icos7(0:6)
logical first logical first

3
map65/libm65/m65a.f90
View File

@ -6,7 +6,7 @@ subroutine m65a
end function address_m65 end function address_m65
end interface end interface
integer*1 attach_m65,lock_m65,unlock_m65 integer*1 attach_m65
integer size_m65 integer size_m65
integer*1, pointer :: p_m65 integer*1, pointer :: p_m65
character*80 cwd character*80 cwd
@ -60,7 +60,6 @@ subroutine m65b(m65com,nbytes)
end subroutine m65b end subroutine m65b
subroutine m65c(dd,ss,savg,nparams0) subroutine m65c(dd,ss,savg,nparams0)
integer*1 detach_m65
real*4 dd(4,5760000),ss(4,322,32768),savg(4,32768) real*4 dd(4,5760000),ss(4,322,32768),savg(4,32768)
real*8 fcenter real*8 fcenter
integer nparams0(40),nparams(40) integer nparams0(40),nparams(40)