function expandcode,code
;expands string CODE
case strupcase(code) of
'BU': a='BOSTON UNIVERSITY'
'PG': a='PANGNIRTUNG'
'CD': a='CAPE DORSET'
'CH': a='CORAL HARBOUR'
'RB': a='REPULSE BAY'
'CY': a='CLYDE RIVER'
'IG': a='IGLOOLIK'
'PB': a='PELLY BAY'
'GH': a='GJOA HAVEN'
'RE': a='RESOLUTE BAY'
'CB': a='CAMBRIDGE BAY'
'BL': a='BAKER LAKE'
'IQ': a='IQALUIT'
'BA': a='BACK'
'GI': a='GILLAM'
'CC': a='CHURCHILL'
'ES': a='ESKIMO POINT'
'RN': a='RANKIN INLET'
'IS': a='ISLAND LAKE'
'PI': a='PINAWA'
'SM': a='FORT SMITH'
'CO': a='CONTWOYTO LAKE'
'RL': a='RABBIT LAKE'
'DA': a='DAWSON CREEK'
'SI': a='FORT SIMPSON'
'MC': a='FORT MCMURRAY'
'TA': a='TALOYAK'
'AM': a='AMK'
'GW': a='GREAT WHALE RIVER'
'PD': a='GREAT WHALE RIVER'
'TH': a='THULE'
'GD': a='GODHAVEN'
'NA': a='NAIN'
; 'NA': a='NARSARSUAQ'
'MG': a='MAGIC GISP'
'MN': a='MAGIC NORTH'
'ME': a='MAGIC EAST'
'MW': a='MAGIC WEST'
'NE': a='NEWPORT'
'RP': a='RAPID CITY'
'CS': a='CAMP DOUGLAS'
'ML': a='MOUNT CLEMENS'
'SU': a='SUDBURY'
'LO': a='LOMPOC'
'TP': a='TAMPA'
else: begin
a='unknown '
; message, 'Unknown station code'+': '+code
end
endcase
return,a
end

