1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! This source code file was last time modified by Igor UA3DJY on February 6th, 2017
! All changes are shown in the patch file coming together with the full JTDX source code.
subroutine splitmsgdupe(decodedhist,callncq)
character decodedhist*22,callncq*6
if(decodedhist(1:3).eq.'CQ ' .or. &
decodedhist(1:3).eq.'QRZ' .or. decodedhist(1:3).eq.'DE ') return
i1=index(decodedhist,' ')
if(i1.lt.4) return
i2=index(decodedhist(i1+1:),' ')
if(i2.lt.4) return
i2=i2+i1
if(len_trim(decodedhist(i1+1:i2-1)).gt.6) return
callncq=decodedhist(i1+1:i2-1)
return
end subroutine splitmsgdupe
|
