WSJT-X/getpfx1.f
Joe Taylor 5c0bdab60b Adjustments to allow "addpfx" (temporary add-on DXCC prefix) to have
up to 8 characters.  Augmented callsign (e.g., VU4AN/VU3RYF) must have 
no more than 12 characters.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@177 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2006-04-21 14:02:46 +00:00

45 lines
1021 B
Fortran

subroutine getpfx1(callsign,k)
character callsign*12
character*8 c
character addpfx*8
common/gcom4/addpfx !Can't 'include' *.f90 in *.f
include 'pfx.f'
iz=index(callsign,' ') - 1
if(iz.lt.0) iz=12
islash=index(callsign(1:iz),'/')
k=0
c=' '
if(islash.gt.0 .and. islash.le.(iz-4)) then
! Add-on prefix
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
if(addpfx.eq.c) then
k=449
go to 10
endif
else if(islash.eq.(iz-1)) then
! Add-on suffix
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 if(islash.ne.0 .and.k.eq.0) k=-1
return
end