WSJT-X/lib/pfxdump.f

      subroutine pfxdump(fname)
      character*(*) fname
      include 'pfx.f'

      open(11,file=fname,status='unknown')
      write(11,1001) sfx
 1001 format('Supported Suffixes:'/(11('/',a1,2x)))
      write(11,1002) pfx
 1002 format(/'Supported Add-On DXCC Prefixes:'/(15(a5,1x)))
      close(11)

      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 17:09:48 +00:00			`subroutine pfxdump(fname)`
			`character() fname`
			`include 'pfx.f'`

			`open(11,file=fname,status='unknown')`
			`write(11,1001) sfx`
			`1001 format('Supported Suffixes:'/(11('/',a1,2x)))`
			`write(11,1002) pfx`
			`1002 format(/'Supported Add-On DXCC Prefixes:'/(15(a5,1x)))`
			`close(11)`

			`return`
			`end`