WSJT-X/libm65/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
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -05:00			`subroutine getpfx2(k0,callsign)`

			`character callsign*12`
			`include 'pfx.f'`
			`character addpfx*8`
Major changes to the MAP65 branch. This branch is now a copy of MAP65 v2.3.0, r631, as checked out from the SVN repository on pulsar.princeton.edu. If all goes well with this commit, subsequent MAP65 development will use the Berlios repository. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2461 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 10:28:39 -04:00			`common/pfxcom/addpfx`
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -05:00
			`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`