%N polspara %F $MIR/src/subs/pols.for
%D Check if the polarization is a intensity-type.
%P rjs
%: polarization
%B
        logical function PolsPara(code)

        implicit none
        integer code

  Check whether the polarisation is one of I,RR,LL,XX or YY.

  Input:
    code       Polarisation code, in teh range -8 to 4 (excluding 0).
  Output:
    PolsPara   True if the code represents one of I,XX,YY,RR or LL.
