WSJT-X/lib/getpfx2.f

      subroutine getpfx2(k0,callsign)

      character callsign*12
      include 'pfx.f'
      character addpfx*8
      common/pfxcom/addpfx

      k=k0
      if(k.gt.450) k=k-450
      if(k.ge.1 .and. k.le.NZ) then
         iz=index(pfx(k),' ') - 1
         callsign=pfx(k)(1:iz)//'/'//callsign
      else if(k.ge.401 .and. k.le.400+NZ2) then
         iz=index(callsign,' ') - 1
         callsign=callsign(1:iz)//'/'//sfx(k-400)
      else if(k.eq.449) then
         iz=index(addpfx,' ') - 1
         if(iz.lt.1) iz=8
         callsign=addpfx(1:iz)//'/'//callsign
      endif

      return
      end
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 13:09:48 -04:00			`subroutine getpfx2(k0,callsign)`

			`character callsign*12`
			`include 'pfx.f'`
			`character addpfx*8`
			`common/pfxcom/addpfx`

			`k=k0`
			`if(k.gt.450) k=k-450`
			`if(k.ge.1 .and. k.le.NZ) then`
			`iz=index(pfx(k),' ') - 1`
			`callsign=pfx(k)(1:iz)//'/'//callsign`
			`else if(k.ge.401 .and. k.le.400+NZ2) then`
			`iz=index(callsign,' ') - 1`
			`callsign=callsign(1:iz)//'/'//sfx(k-400)`
			`else if(k.eq.449) then`
			`iz=index(addpfx,' ') - 1`
			`if(iz.lt.1) iz=8`
			`callsign=addpfx(1:iz)//'/'//callsign`
			`endif`

			`return`
			`end`