w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-02 21:27:52 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add column headings for encode77.

Browse Source
This commit is contained in:
Joe Taylor 2018-06-28 14:12:05 -04:00
parent 5465abaa72
commit 190aef8a36
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/77bit.txt
View File

@ -38,7 +38,7 @@ Facts about the 28-bit integers used to encode standard callsigns:
37*36*10*27*27*27 = 262,177,560 Used for standard callsigns
-----------
6,257,896 Difference
2^22 = 4,194,304 Used for 22-bit hash code
2^22 = 4,194,304 Used for 22-bit hash codes
-----------
2,063,592 available for CQ, CQ xx, CQ nnn, QRZ, etc.

8
lib/77bit/encode77.f90
View File

@ -5,6 +5,10 @@ program encode77
nargs=iargc()
open(10,file='messages.txt',status='old')
write(*,1000)
1000 format('i3.n3 Err Message to be encoded Decoded message'/ &
80('-'))
do iline=1,999
if(nargs.eq.1) then
@ -19,9 +23,9 @@ program encode77
cerr=' '
if(msg.ne.msg0) cerr='*'
if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0,msg
1004 format(i1,'.',i1,1x,a1,1x,a37,1x,a37)
1004 format(i2,'.',i1,2x,a1,3x,a37,1x,a37)
if(i3.ge.1) write(*,1005) i3,cerr,msg0,msg
1005 format(i1,3x,a1,1x,a37,1x,a37)
1005 format(i2,'.',3x,a1,3x,a37,1x,a37)
if(nargs.eq.1) exit
enddo