w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-map65-integration' of bitbucket.org:k1jt/wsjtx into feat-map65-integration

Browse Source
This commit is contained in:
Bill Somerville 2021-05-05 17:04:57 +01:00
commit 47aa8b1dc6
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/mapsim.f90
View File

@ -10,7 +10,7 @@ program mapsim
complex z,zx,zy
real*8 fcenter,fsample,samfac,f,dt,twopi,phi,dphi
logical bq65
character msg0*22,message*22,msgsent*22,arg*8,fname*13,mode*2
character msg0*22,message*22,msgsent*22,arg*8,fname*11,mode*2
character*16 msg_list(60)
data ilist/0/,msg_list/ &
'W1AAA K2BBB EM00','W2CCC K3DDD EM01','W3EEE K4FFF EM02', &
@ -94,7 +94,7 @@ program mapsim
nmin=ifile-1
if(mode(2:2).eq.' ') nmin=2*nmin
write(fname,1002) nmin !Create the output filenames
1002 format('000000_',i4.4,'00')
1002 format('000000_',i4.4)
open(10,file=fname//'.iq',access='stream',status='unknown')
open(11,file=fname//'.tf2',access='stream',status='unknown')