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