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

Starting a long process of chnging names q65w to qmap.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-25 08:51:51 -05:00
parent 0391144683
commit 935ad492e6
4 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
q65w/libq65/CMakeLists.txt
View File

@ -23,7 +23,7 @@ set (libq65_FSRCS
q65b.f90
q65c.f90
q65_sync.f90
q65wa.f90
qmapa.f90
recvpkt.f90
sun.f90
symspec.f90

6
q65w/libq65/decode0.f90
View File

@ -41,12 +41,12 @@ subroutine decode0(dd,ss,savg)
hisgrid0=hisgrid
neme0=neme
call timer('q65wa ',0)
call q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
call timer('qmapa ',0)
call qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
mousedf,mousefqso,nagain,nfshift,max_drift, &
nfcal,mycall,hiscall,hisgrid,nfsample,nmode,ndepth, &
datetime,ndop00,fselected)
call timer('q65wa ',1)
call timer('qmapa ',1)
return
end subroutine decode0

3
q65w/libq65/ftninit.f90
View File

@ -1,4 +1,3 @@
!subroutine ftninit()
subroutine ftninit
use timer_impl, only: init_timer !,fini_timer, limtrace
@ -15,7 +14,7 @@ subroutine ftninit
appd='.'
addpfx=' '
open(12,file=appd//'/all_q65w.txt',status='unknown',position='append')
open(12,file=appd//'/all_qmap.txt',status='unknown',position='append')
open(17,file=appd//'/red.dat',status='unknown')
open(19,file=appd//'/livecq.txt',status='unknown')
open(71,file=appd//'/fort.71',status='unknown')

4
q65w/libq65/q65wa.f90 → q65w/libq65/qmapa.f90
View File

@ -1,4 +1,4 @@
subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
mousedf,mousefqso,nagain,nfshift,max_drift,nfcal,mycall, &
hiscall,hisgrid,nfsample,nmode,ndepth,datetime,ndop00,fselected)
@ -71,4 +71,4 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
enddo ! icand
return
end subroutine q65wa
end subroutine qmapa