w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-07-25 19:44:24 -04:00
Code Issues Packages Projects Releases Wiki Activity

clean up a few warnings

Browse Source
This commit is contained in:
sirhc808
2019-07-01 21:10:43 -05:00
parent 1f282153eb
commit 84fd0ed7c7
14 changed files with 260 additions and 272 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/qra64code.f90
+2 -4
View File
@@ -5,10 +5,8 @@ program QRA64code
! protocol.
use packjt
character*22 msg,msg0,msg1,decoded,cok*3,msgtype*10,arg*12
character*6 mycall
logical ltext
integer dgen(12),sent(63),dec(12)
character*22 msg,msg0,msg1,decoded,cok*3,msgtype*10
integer dgen(12),sent(63)
integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Defines a 7x7 Costas array