w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-03 21:40:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor corrections and code cleanup in packjt77.f90.

Browse Source
This commit is contained in:
Joe Taylor 2018-09-20 14:02:49 -04:00
parent bb3d68a5d7
commit 4d013fef1b
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/77bit/packjt77.f90
View File

@ -1,7 +1,7 @@
module packjt77 module packjt77
! These variables are accessible from outside via "use packjt": ! These variables are accessible from outside via "use packjt":
parameter (MAXHASH=100) parameter (MAXHASH=1000)
character*13 callsign(MAXHASH) character*13 callsign(MAXHASH)
integer ihash10(MAXHASH),ihash12(MAXHASH),ihash22(MAXHASH) integer ihash10(MAXHASH),ihash12(MAXHASH),ihash22(MAXHASH)
integer n28a,n28b,nzhash integer n28a,n28b,nzhash
@ -92,6 +92,7 @@ subroutine save_hash_call(c13,n10,n12,n22)
character*13 c13 character*13 c13
logical first logical first
data first/.true./
save first save first
if(first) then if(first) then
@ -102,6 +103,7 @@ subroutine save_hash_call(c13,n10,n12,n22)
nzhash=0 nzhash=0
first=.false. first=.false.
endif endif
if(c13(1:1).eq.' ' .or. c13(1:5).eq.'<...>') return if(c13(1:1).eq.' ' .or. c13(1:5).eq.'<...>') return
n10=ihashcall(c13,10) n10=ihashcall(c13,10)
@ -466,7 +468,6 @@ subroutine pack28(c13,n28)
! integer. ! integer.
parameter (NTOKENS=2063592,MAX22=4194304) parameter (NTOKENS=2063592,MAX22=4194304)
integer nc(6)
logical is_digit,is_letter logical is_digit,is_letter
character*13 c13 character*13 c13
character*6 callsign character*6 callsign
@ -480,7 +481,6 @@ subroutine pack28(c13,n28)
data a2/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ data a2/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
data a3/'0123456789'/ data a3/'0123456789'/
data a4/' ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ data a4/' ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
data nc/37,36,19,27,27,27/
is_digit(c)=c.ge.'0' .and. c.le.'9' is_digit(c)=c.ge.'0' .and. c.le.'9'
is_letter(c)=c.ge.'A' .and. c.le.'Z' is_letter(c)=c.ge.'A' .and. c.le.'Z'
@ -586,7 +586,7 @@ subroutine pack28(c13,n28)
27*i5 + i6 27*i5 + i6
n28=n28 + NTOKENS + MAX22 n28=n28 + NTOKENS + MAX22
900 n28=iand(n28,2**28-1) 900 n28=iand(n28,ishft(1,28)-1)
return return
end subroutine pack28 end subroutine pack28
@ -594,7 +594,6 @@ end subroutine pack28
subroutine unpack28(n28_0,c13,success) subroutine unpack28(n28_0,c13,success)
parameter (NTOKENS=2063592,MAX22=4194304) parameter (NTOKENS=2063592,MAX22=4194304)
integer nc(6)
logical success logical success
character*13 c13 character*13 c13
character*37 c1 character*37 c1
@ -605,7 +604,6 @@ subroutine unpack28(n28_0,c13,success)
data c2/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ data c2/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
data c3/'0123456789'/ data c3/'0123456789'/
data c4/' ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ data c4/' ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
data nc/37,36,19,27,27,27/
success=.true. success=.true.
n28=n28_0 n28=n28_0
@ -833,7 +831,7 @@ subroutine pack77_03(nwords,w,i3,n3,c77)
if(.not.ok1 .or. .not.ok2) return if(.not.ok1 .or. .not.ok2) return
isec=-1 isec=-1
do i=1,NSEC do i=1,NSEC
if(csec(i).eq.w(nwords)) then if(csec(i).eq.w(nwords)(1:3)) then
isec=i isec=i
exit exit
endif endif