mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-13 23:51:49 -05:00
bfcbce34a7
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3296 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
65 lines
3.4 KiB
Fortran
65 lines
3.4 KiB
Fortran
subroutine packdxcc(c,ng,ldxcc)
|
|
|
|
character*3 c
|
|
logical ldxcc
|
|
|
|
parameter (NZ=303)
|
|
character*5 pfx(NZ)
|
|
data pfx/ &
|
|
'1A ','1S ','3A ','3B6 ','3B8 ','3B9 ','3C ','3C0 ', &
|
|
'3D2 ', '3DA ','3V ','3W ','3X ','3Y ', &
|
|
'4J ','4L ','4S ','4U1 ', '4W ', &
|
|
'4X ','5A ','5B ','5H ','5N ','5R ','5T ','5U ', &
|
|
'5V ','5W ','5X ','5Z ','6W ','6Y ','7O ','7P ', &
|
|
'7Q ','7X ','8P ','8Q ','8R ','9A ','9G ','9H ', &
|
|
'9J ','9K ','9L ','9M2 ','9M6 ','9N ','9Q ','9U ', &
|
|
'9V ','9X ','9Y ','A2 ','A3 ','A4 ','A5 ','A6 ', &
|
|
'A7 ','A9 ','AP ','BS7 ','BV ','BV9 ','BY ','C2 ', &
|
|
'C3 ','C5 ','C6 ','C9 ','CE ','CE0 ', &
|
|
'CE9 ','CM ','CN ','CP ','CT ','CT3 ','CU ','CX ', &
|
|
'CY0 ','CY9 ','D2 ','D4 ','D6 ','DL ','DU ','E3 ', &
|
|
'E4 ','EA ','EA6 ','EA8 ','EA9 ','EI ','EK ','EL ', &
|
|
'EP ','ER ','ES ','ET ','EU ','EX ','EY ','EZ ', &
|
|
'F ','FG ','FH ','FJ ','FK ', 'FM ','FO ', &
|
|
'FP ','FR ', &
|
|
'FT5 ', 'FW ','FY ','M ','MD ','MI ', &
|
|
'MJ ','MM ', 'MU ','MW ','H4 ','H40 ','HA ', &
|
|
'HB ','HB0 ','HC ','HC8 ','HH ','HI ','HK ','HK0 ', &
|
|
'HL ','HM ','HP ','HR ','HS ','HV ','HZ ', &
|
|
'I ','IG9 ','IS ','IT9 ','J2 ','J3 ','J5 ','J6 ', &
|
|
'J7 ','J8 ','JA ','JD ', 'JT ','JW ', &
|
|
'JX ','JY ','K ','KG4 ','KH0 ','KH1 ','KH2 ','KH3 ', &
|
|
'KH4 ','KH5 ', 'KH6 ','KH7 ','KH8 ','KH9 ','KL ', &
|
|
'KP1 ','KP2 ','KP4 ','KP5 ','LA ','LU ','LX ','LY ', &
|
|
'LZ ','OA ','OD ','OE ','OH ','OH0 ','OJ0 ','OK ', &
|
|
'OM ','ON ','OX ','OY ','OZ ','P2 ','P4 ','PA ', &
|
|
'PJ2 ','PJ7 ','PY ','PY0 ', 'PZ ','R1F ', &
|
|
'R1M ','S0 ','S2 ','S5 ','S7 ','S9 ','SM ','SP ', &
|
|
'ST ','SU ','SV ', 'SV5 ','SV9 ','T2 ','T30 ', &
|
|
'T31 ','T32 ','T33 ','T5 ','T7 ','T8 ','T9 ','TA ', &
|
|
'TA1 ','TF ','TG ','TI ','TI9 ','TJ ','TK ','TL ', &
|
|
'TN ','TR ','TT ','TU ','TY ','TZ ','UA ','UA2 ', &
|
|
'UA9 ','UK ','UN ','UR ','V2 ','V3 ','V4 ','V5 ', &
|
|
'V6 ','V7 ','V8 ','VE ','VK ','VK0 ', 'VK9 ', &
|
|
'VP2 ', &
|
|
'VP5 ','VP6 ', 'VP8 ', &
|
|
'VP9 ','VQ9 ','VR ','VU ','VU4 ','VU7 ','XE ','XF4 ', &
|
|
'XT ','XU ','XW ','XX9 ','XZ ','YA ','YB ','YI ', &
|
|
'YJ ','YK ','YL ','YN ','YO ','YS ','YU ','YV ', &
|
|
'YV0 ','Z2 ','Z3 ','ZA ','ZB ','ZC4 ','ZD7 ','ZD8 ', &
|
|
'ZD9 ','ZF ','ZK1 ', 'ZK2 ','ZK3 ','ZL ','ZL7 ', &
|
|
'ZL8 ','ZL9 ','ZP ','ZS ','ZS8 '/
|
|
|
|
ldxcc=.false.
|
|
ng=0
|
|
do i=1,NZ
|
|
if(pfx(i)(1:3).eq.c) go to 10
|
|
enddo
|
|
go to 20
|
|
|
|
10 ng=180*180+61+i
|
|
ldxcc=.true.
|
|
|
|
20 return
|
|
end subroutine packdxcc
|