w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 22:45:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove some unnecessary space padding and some compiler warnings

Browse Source
This commit is contained in:
Bill Somerville 2018-12-24 02:23:56 +00:00
parent e4700b449e
commit 8f9fdd29a8
1 changed files with 18 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lib/77bit/packjt77.f90
View File

@ -22,7 +22,7 @@ subroutine hash10(n10,c13)
if(n10.lt.1 .or. n10.gt.1024) return if(n10.lt.1 .or. n10.gt.1024) return
if(len(trim(calls10(n10))).gt.0) then if(len(trim(calls10(n10))).gt.0) then
c13=calls10(n10) c13=calls10(n10)
c13='<'//trim(c13)//'>'//' ' c13='<'//trim(c13)//'>'
endif endif
return return
@ -36,7 +36,7 @@ subroutine hash12(n12,c13)
if(n12.lt.1 .or. n12.gt.4096) return if(n12.lt.1 .or. n12.gt.4096) return
if(len(trim(calls12(n12))).gt.0) then if(len(trim(calls12(n12))).gt.0) then
c13=calls12(n12) c13=calls12(n12)
c13='<'//trim(c13)//'>'//' ' c13='<'//trim(c13)//'>'
endif endif
return return
@ -51,7 +51,7 @@ subroutine hash22(n22,c13)
do i=1,nzhash do i=1,nzhash
if(ihash22(i).eq.n22) then if(ihash22(i).eq.n22) then
c13=calls22(i) c13=calls22(i)
c13='<'//trim(c13)//'>'//' ' c13='<'//trim(c13)//'>'
go to 900 go to 900
endif endif
enddo enddo
@ -146,7 +146,7 @@ subroutine pack77(msg0,i3,n3,c77)
! Check 0.5 (telemetry) ! Check 0.5 (telemetry)
5 i0=index(msg,' ') 5 i0=index(msg,' ')
c18=msg(1:i0-1)//' ' c18=msg(1:i0-1)
c18=adjustr(c18) c18=adjustr(c18)
ntel=-99 ntel=-99
read(c18,1005,err=6) ntel read(c18,1005,err=6) ntel
@ -206,7 +206,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
character*3 csec(NSEC) character*3 csec(NSEC)
character*38 c character*38 c
integer hashmy10,hashmy12,hashmy22,hashdx10,hashdx12,hashdx22 integer hashmy10,hashmy12,hashmy22,hashdx10,hashdx12,hashdx22
logical unpk28_success,unpk77_success,first logical unpk28_success,unpk77_success
logical dxcall13_set,mycall13_set logical dxcall13_set,mycall13_set
data c/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/'/ data c/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/'/
@ -288,10 +288,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
call hash10(n10,call_3) call hash10(n10,call_3)
if(nrx.eq.1 .and. & if(nrx.eq.1 .and. &
dxcall13_set .and. & dxcall13_set .and. &
hashdx10.eq.n10) call_3='<'//trim(dxcall13)//'>'//' ' hashdx10.eq.n10) call_3='<'//trim(dxcall13)//'>'
if(nrx.eq.0 .and. & if(nrx.eq.0 .and. &
mycall13_set .and. & mycall13_set .and. &
n10.eq.hashmy10) call_3='<'//trim(mycall13)//'>'//' ' n10.eq.hashmy10) call_3='<'//trim(mycall13)//'>'
msg=trim(call_1)//' RR73; '//trim(call_2)//' '//trim(call_3)//' '//crpt msg=trim(call_1)//' RR73; '//trim(call_2)//' '//trim(call_3)//' '//crpt
else if(i3.eq.0 .and. n3.eq.2) then else if(i3.eq.0 .and. n3.eq.2) then
! 0.2 PA3XYZ/P R 590003 IO91NP 28 1 1 3 12 25 70 EU VHF contest ! 0.2 PA3XYZ/P R 590003 IO91NP 28 1 1 3 12 25 70 EU VHF contest
@ -300,7 +300,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
call unpack28(n28a,call_1,unpk28_success) call unpack28(n28a,call_1,unpk28_success)
if(.not.unpk28_success .or. n28a.le.2) unpk77_success=.false. if(.not.unpk28_success .or. n28a.le.2) unpk77_success=.false.
nrs=52+irpt nrs=52+irpt
if(ip.eq.1) call_1=trim(call_1)//'/P'//' ' if(ip.eq.1) call_1=trim(call_1)//'/P'
write(cexch,1022) nrs,iserial write(cexch,1022) nrs,iserial
1022 format(i2,i4.4) 1022 format(i2,i4.4)
n=igrid6 n=igrid6
@ -470,18 +470,18 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
if(nrx.eq.1 .and. & if(nrx.eq.1 .and. &
dxcall13_set .and. mycall13_set .and. & dxcall13_set .and. mycall13_set .and. &
call_2.eq.dxcall13 .and. & call_2.eq.dxcall13 .and. &
n12.eq.hashmy12 ) call_1='<'//trim(mycall13)//'>'//' ' n12.eq.hashmy12 ) call_1='<'//trim(mycall13)//'>'
if(nrx.eq.1 .and. & if(nrx.eq.1 .and. &
mycall13_set .and. & mycall13_set .and. &
index(call_1,'<...>').gt.0 .and. & index(call_1,'<...>').gt.0 .and. &
n12.eq.hashmy12 ) call_1='<'//trim(mycall13)//'>'//' ' n12.eq.hashmy12 ) call_1='<'//trim(mycall13)//'>'
else ! 12 bit hash for DE call else ! 12 bit hash for DE call
call_1=adjustl(c11)//' ' call_1=adjustl(c11)
call_2=call_3 call_2=call_3
call add_call_to_recent_calls(call_1) call add_call_to_recent_calls(call_1)
if(nrx.eq.0 .and. & if(nrx.eq.0 .and. &
mycall13_set .and. & mycall13_set .and. &
n12.eq.hashmy12) call_2='<'//trim(mycall13)//'>'//' ' n12.eq.hashmy12) call_2='<'//trim(mycall13)//'>'
endif endif
if(icq.eq.0) then if(icq.eq.0) then
if(nrpt.eq.0) msg=trim(call_1)//' '//trim(call_2) if(nrpt.eq.0) msg=trim(call_1)//' '//trim(call_2)
@ -559,7 +559,7 @@ subroutine pack28(c13,n28)
go to 900 go to 900
endif endif
if(nlet.ge.1 .and. nlet.le.4 .and. nnum.eq.0) then if(nlet.ge.1 .and. nlet.le.4 .and. nnum.eq.0) then
c4=c13(4:n)//' ' c4=c13(4:n)
c4=adjustr(c4) c4=adjustr(c4)
m=0 m=0
do i=1,4 do i=1,4
@ -578,7 +578,7 @@ subroutine pack28(c13,n28)
if(c13(1:1).eq.'<')then if(c13(1:1).eq.'<')then
call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table
i2=index(c13,'>') i2=index(c13,'>')
c13=c13(2:i2-1)//' ' c13=c13(2:i2-1)
n22=ihashcall(c13,22) n22=ihashcall(c13,22)
n28=NTOKENS + n22 n28=NTOKENS + n22
go to 900 go to 900
@ -693,7 +693,7 @@ subroutine unpack28(n28_0,c13,success)
i5=n/27 i5=n/27
i6=n-27*i5 i6=n-27*i5
c13=c1(i1+1:i1+1)//c2(i2+1:i2+1)//c3(i3+1:i3+1)//c4(i4+1:i4+1)// & c13=c1(i1+1:i1+1)//c2(i2+1:i2+1)//c3(i3+1:i3+1)//c4(i4+1:i4+1)// &
c4(i5+1:i5+1)//c4(i6+1:i6+1)//' ' c4(i5+1:i5+1)//c4(i6+1:i6+1)
c13=adjustl(c13) c13=adjustl(c13)
900 i0=index(c13,' ') 900 i0=index(c13,' ')
@ -785,7 +785,7 @@ subroutine pack77_01(nwords,w,i3,n3,c77)
call pack28(w(3),n28b) call pack28(w(3),n28b)
call save_hash_call(w(4),n10,n12,n22) call save_hash_call(w(4),n10,n12,n22)
i2=index(w(4),'>') i2=index(w(4),'>')
c13=w(4)(2:i2-1)//' ' c13=w(4)(2:i2-1)
n10=ihashcall(c13,10) n10=ihashcall(c13,10)
write(c77,1010) n28a,n28b,n10,n5,n3,i3 write(c77,1010) n28a,n28b,n10,n5,n3,i3
1010 format(2b28.28,b10.10,b5.5,2b3.3) 1010 format(2b28.28,b10.10,b5.5,2b3.3)
@ -972,10 +972,10 @@ subroutine pack77_1(nwords,w,i3,n3,c77)
i3=1 !Type 1: Standard message, possibly with "/R" i3=1 !Type 1: Standard message, possibly with "/R"
if (i1psuffix.ge.4.or.i2psuffix.ge.4) i3=2 !Type 2, with "/P" if (i1psuffix.ge.4.or.i2psuffix.ge.4) i3=2 !Type 2, with "/P"
endif endif
c13=bcall_1//' ' c13=bcall_1
if(c13(1:3).eq.'CQ_' .or. w(1)(1:1).eq.'<') c13=w(1) if(c13(1:3).eq.'CQ_' .or. w(1)(1:1).eq.'<') c13=w(1)
call pack28(c13,n28a) call pack28(c13,n28a)
c13=bcall_2//' ' c13=bcall_2
if(w(2)(1:1).eq.'<') c13=w(2) if(w(2)(1:1).eq.'<') c13=w(2)
call pack28(c13,n28b) call pack28(c13,n28b)
ipa=0 ipa=0
@ -1096,10 +1096,8 @@ subroutine pack77_4(nwords,w,i3,n3,c77)
if(nwords.eq.2 .or. nwords.eq.3) then if(nwords.eq.2 .or. nwords.eq.3) then
call_1=w(1) call_1=w(1)
if(call_1(1:1).eq.'<') call_1=w(1)(2:len(trim(w(1)))-1) if(call_1(1:1).eq.'<') call_1=w(1)(2:len(trim(w(1)))-1)
call_1=call_1//' '
call_2=w(2) call_2=w(2)
if(call_2(1:1).eq.'<') call_2=w(2)(2:len(trim(w(2)))-1) if(call_2(1:1).eq.'<') call_2=w(2)(2:len(trim(w(2)))-1)
call_2=call_2//' '
call chkcall(call_1,bcall_1,ok1) call chkcall(call_1,bcall_1,ok1)
call chkcall(call_2,bcall_2,ok2) call chkcall(call_2,bcall_2,ok2)
icq=0 icq=0