WSJT-X/getpfx1.f
Joe Taylor 2c17544f3f initial import
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@1 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2005-12-22 16:40:53 +00:00

40 lines
905 B
Fortran

subroutine getpfx1(callsign,k)
character callsign*12
character*4 c
include 'pfx.f'
iz=index(callsign,' ') - 1
islash=index(callsign(1:iz),'/')
k=0
c=' '
if(islash.gt.0 .and. (islash.le.4 .or. (islash.eq.5 .and.
+ iz.ge.8))) then
c=callsign(1:islash-1)
callsign=callsign(islash+1:iz)
do i=1,NZ
if(pfx(i)(1:4).eq.c) then
k=i
go to 10
endif
enddo
else if(islash.gt.5 .or. (islash.eq.5 .and. iz.eq.6)) then
c=callsign(islash+1:iz)
callsign=callsign(1:islash-1)
do i=1,NZ2
if(sfx(i).eq.c(1:1)) then
k=400+i
go to 10
endif
enddo
endif
10 continue
if(islash.ne.0 .and.k.eq.0) k=-1
c print*,iz,islash,k,' ',c
return
end