mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-02 21:27:52 -04:00
Add column headings for encode77.
This commit is contained in:
parent
5465abaa72
commit
190aef8a36
@ -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.
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user