;
function isdensity,fieldname
  if (fieldname eq 'AOA1') then return,1
  if (fieldname eq 'O2') then return,1
  if (fieldname eq 'O2_1D') then return,1
  if (fieldname eq 'OX') then return,1
  if (fieldname eq 'N4S') then return,1
  if (fieldname eq 'NOZ') then return,1
  if (fieldname eq 'CO') then return,1
  if (fieldname eq 'CO2') then return,1
  if (fieldname eq 'H2O') then return,1
  if (fieldname eq 'H2') then return,1
  if (fieldname eq 'HOX') then return,1
  if (fieldname eq 'OP') then return,1
  if (fieldname eq 'CH4') then return,1
  if (fieldname eq 'AR') then return,1
  if (fieldname eq 'HE') then return,1
  if (fieldname eq 'NAT') then return,1
  if (fieldname eq 'O21D') then return,1
  if (fieldname eq 'NO2') then return,1
  if (fieldname eq 'NO') then return,1
  if (fieldname eq 'NOp') then return,1
  if (fieldname eq 'O3') then return,1
  if (fieldname eq 'O1') then return,1
  if (fieldname eq 'O') then return,1
  if (fieldname eq 'OH') then return,1
  if (fieldname eq 'HO2') then return,1
  if (fieldname eq 'H') then return,1
  if (fieldname eq 'N2D') then return,1
  if (fieldname eq 'NE') then return,1
  if (fieldname eq 'e') then return,1
  if (fieldname eq 'Op') then return,1
  if (fieldname eq 'O2P') then return,1
  if (fieldname eq 'O2p') then return,1
end