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

Correct a flaw in mapsim when generating many files with different callsigns.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-04 12:05:42 -04:00
parent 99a132a838
commit 83ddcd9b8e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
map65/libm65/mapsim.f90
View File

@ -12,7 +12,7 @@ program mapsim
logical bq65 logical bq65
character msg0*22,message*22,msgsent*22,arg*8,fname*11,mode*2 character msg0*22,message*22,msgsent*22,arg*8,fname*11,mode*2
character*16 msg_list(60) character*16 msg_list(60)
data ilist/0/,msg_list/ & data msg_list/ &
'W1AAA K2BBB EM00','W2CCC K3DDD EM01','W3EEE K4FFF EM02', & 'W1AAA K2BBB EM00','W2CCC K3DDD EM01','W3EEE K4FFF EM02', &
'W5GGG K6HHH EM03','W7III K8JJJ EM04','W9KKK K0LLL EM05', & 'W5GGG K6HHH EM03','W7III K8JJJ EM04','W9KKK K0LLL EM05', &
'G0MMM F1NNN JN06','G2OOO F3PPP JN07','G4QQQ F5RRR JN08', & 'G0MMM F1NNN JN06','G2OOO F3PPP JN07','G4QQQ F5RRR JN08', &
@ -91,6 +91,7 @@ program mapsim
1000 format('File N Mode DT freq pol fDop SNR Message'/68('-')) 1000 format('File N Mode DT freq pol fDop SNR Message'/68('-'))
do ifile=1,nfiles do ifile=1,nfiles
ilist=0
nmin=ifile-1 nmin=ifile-1
if(mode(2:2).eq.' ') nmin=2*nmin if(mode(2:2).eq.' ') nmin=2*nmin
write(fname,1002) nmin !Create the output filenames write(fname,1002) nmin !Create the output filenames