%N polsc2p %F $MIR/src/subs/pols.for
%D Convert polarization code to a polarization mnemonic.
%P rjs
%: polarization
%B
        character*(*) function PolsC2P(code)

        implicit none
        integer code

  Convert polarization codes to polarization mnemonic.

  Input:
    code       Polarization code, in the range -8 to 4 (excluding 0).
  Output:
    PolsC2P    Polarization mnemonic.
