From 8f9fdd29a8ce15aa0dda4bdc698d5895c70a1604 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Mon, 24 Dec 2018 02:23:56 +0000 Subject: [PATCH] Remove some unnecessary space padding and some compiler warnings --- lib/77bit/packjt77.f90 | 38 ++++++++++++++++++-------------------- 1 file changed, 18 insertions(+), 20 deletions(-) diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90 index 958c4af09..818ad6366 100644 --- a/lib/77bit/packjt77.f90 +++ b/lib/77bit/packjt77.f90 @@ -22,7 +22,7 @@ subroutine hash10(n10,c13) if(n10.lt.1 .or. n10.gt.1024) return if(len(trim(calls10(n10))).gt.0) then c13=calls10(n10) - c13='<'//trim(c13)//'>'//' ' + c13='<'//trim(c13)//'>' endif return @@ -36,7 +36,7 @@ subroutine hash12(n12,c13) if(n12.lt.1 .or. n12.gt.4096) return if(len(trim(calls12(n12))).gt.0) then c13=calls12(n12) - c13='<'//trim(c13)//'>'//' ' + c13='<'//trim(c13)//'>' endif return @@ -51,7 +51,7 @@ subroutine hash22(n22,c13) do i=1,nzhash if(ihash22(i).eq.n22) then c13=calls22(i) - c13='<'//trim(c13)//'>'//' ' + c13='<'//trim(c13)//'>' go to 900 endif enddo @@ -146,7 +146,7 @@ subroutine pack77(msg0,i3,n3,c77) ! Check 0.5 (telemetry) 5 i0=index(msg,' ') - c18=msg(1:i0-1)//' ' + c18=msg(1:i0-1) c18=adjustr(c18) ntel=-99 read(c18,1005,err=6) ntel @@ -206,7 +206,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) character*3 csec(NSEC) character*38 c integer hashmy10,hashmy12,hashmy22,hashdx10,hashdx12,hashdx22 - logical unpk28_success,unpk77_success,first + logical unpk28_success,unpk77_success logical dxcall13_set,mycall13_set data c/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/'/ @@ -288,10 +288,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) call hash10(n10,call_3) if(nrx.eq.1 .and. & dxcall13_set .and. & - hashdx10.eq.n10) call_3='<'//trim(dxcall13)//'>'//' ' + hashdx10.eq.n10) call_3='<'//trim(dxcall13)//'>' if(nrx.eq.0 .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 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 @@ -300,7 +300,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) call unpack28(n28a,call_1,unpk28_success) if(.not.unpk28_success .or. n28a.le.2) unpk77_success=.false. 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 1022 format(i2,i4.4) n=igrid6 @@ -470,18 +470,18 @@ subroutine unpack77(c77,nrx,msg,unpk77_success) if(nrx.eq.1 .and. & dxcall13_set .and. mycall13_set .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. & mycall13_set .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 - call_1=adjustl(c11)//' ' + call_1=adjustl(c11) call_2=call_3 call add_call_to_recent_calls(call_1) if(nrx.eq.0 .and. & mycall13_set .and. & - n12.eq.hashmy12) call_2='<'//trim(mycall13)//'>'//' ' + n12.eq.hashmy12) call_2='<'//trim(mycall13)//'>' endif if(icq.eq.0) then if(nrpt.eq.0) msg=trim(call_1)//' '//trim(call_2) @@ -559,7 +559,7 @@ subroutine pack28(c13,n28) go to 900 endif if(nlet.ge.1 .and. nlet.le.4 .and. nnum.eq.0) then - c4=c13(4:n)//' ' + c4=c13(4:n) c4=adjustr(c4) m=0 do i=1,4 @@ -578,7 +578,7 @@ subroutine pack28(c13,n28) if(c13(1:1).eq.'<')then call save_hash_call(c13,n10,n12,n22) !Save callsign in hash table i2=index(c13,'>') - c13=c13(2:i2-1)//' ' + c13=c13(2:i2-1) n22=ihashcall(c13,22) n28=NTOKENS + n22 go to 900 @@ -693,7 +693,7 @@ subroutine unpack28(n28_0,c13,success) i5=n/27 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)// & - c4(i5+1:i5+1)//c4(i6+1:i6+1)//' ' + c4(i5+1:i5+1)//c4(i6+1:i6+1) c13=adjustl(c13) 900 i0=index(c13,' ') @@ -785,7 +785,7 @@ subroutine pack77_01(nwords,w,i3,n3,c77) call pack28(w(3),n28b) call save_hash_call(w(4),n10,n12,n22) i2=index(w(4),'>') - c13=w(4)(2:i2-1)//' ' + c13=w(4)(2:i2-1) n10=ihashcall(c13,10) write(c77,1010) n28a,n28b,n10,n5,n3,i3 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" if (i1psuffix.ge.4.or.i2psuffix.ge.4) i3=2 !Type 2, with "/P" endif - c13=bcall_1//' ' + c13=bcall_1 if(c13(1:3).eq.'CQ_' .or. w(1)(1:1).eq.'<') c13=w(1) call pack28(c13,n28a) - c13=bcall_2//' ' + c13=bcall_2 if(w(2)(1:1).eq.'<') c13=w(2) call pack28(c13,n28b) ipa=0 @@ -1096,10 +1096,8 @@ subroutine pack77_4(nwords,w,i3,n3,c77) if(nwords.eq.2 .or. nwords.eq.3) then call_1=w(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) 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_2,bcall_2,ok2) icq=0