w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-29 07:28:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix cablog so it can work with grid as exchange, e.g., for Jan VHF SS.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-22 11:09:45 -05:00
parent 0705bd329e
commit 7be1c34ea0
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/cablog.f90
View File

@ -2,13 +2,18 @@ program cablog
character*100 line,infile,outfile character*100 line,infile,outfile
character cband*4,cmode*2,cdate*10,cutc*4,callsign*10,mycall*10 character cband*4,cmode*2,cdate*10,cutc*4,callsign*10,mycall*10
character csent*3,crcvd*3,dsent*3,drcvd*3 character csent*4,crcvd*4,dsent*4,drcvd*4,g1*4
character*3 cmo(12) character*3 cmo(12)
integer icomma(20) integer icomma(20)
logical map65 logical map65
logical isgrid,gridx
data cmo/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep', & data cmo/'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep', &
'Oct','Nov','Dec'/ 'Oct','Nov','Dec'/
isgrid(g1)=g1(1:1).ge.'A' .and. g1(1:1).le.'R' .and. g1(2:2).ge.'A' .and. &
g1(2:2).le.'R' .and. g1(3:3).ge.'0' .and. g1(3:3).le.'9' .and. &
g1(4:4).ge.'0' .and. g1(4:4).le.'9' .and. g1(1:4).ne.'RR73'
nargs=iargc() nargs=iargc()
if(nargs.ne.4) then if(nargs.ne.4) then
print*,"Program cablog converts file 'wsjtx.log' written by WSJT-X" print*,"Program cablog converts file 'wsjtx.log' written by WSJT-X"
@ -25,6 +30,7 @@ program cablog
call getarg(1,mycall) call getarg(1,mycall)
outfile=trim(mycall)//'.log' outfile=trim(mycall)//'.log'
call getarg(2,dsent) call getarg(2,dsent)
gridx=isgrid(dsent)
call getarg(3,drcvd) call getarg(3,drcvd)
call getarg(4,infile) call getarg(4,infile)
open(10,file=trim(infile),status='old') open(10,file=trim(infile),status='old')
@ -115,9 +121,13 @@ program cablog
crcvd=line(icomma(9)+1:icomma(10)-1) crcvd=line(icomma(9)+1:icomma(10)-1)
endif endif
endif endif
if(gridx) then
csent=dsent
crcvd=line(icomma(5)+1:icomma(6)-1)
endif
write(12,1030) cband,cmode,cdate,cutc,mycall,csent,callsign,crcvd write(12,1030) cband,cmode,cdate,cutc,mycall,csent,callsign,crcvd
1030 format('QSO: ',a4,1x,a2,1x,a10,1x,a4,1x,a6,1x,a3,5x,a10,1x,a3) 1030 format('QSO: ',a4,1x,a2,1x,a10,1x,a4,1x,a6,1x,a4,4x,a10,1x,a4)
enddo enddo
900 write(12,1900) 900 write(12,1900)