%N polsp2c %F $MIR/src/subs/pols.for
%D Convert polarization mnemonic to a polarization code.
%P rjs
%: polarization
%B
        integer function PolsP2C(mnemo)

        implicit none
        character mnemo*(*)

  Determine the polarization code, given the mnemonic.

  Input:
    mnemo      The polarization mnemonic, being one of 'XX','YY','XY','YX',
               'RR','LL','RL','LR','I','Q','U','V'.
  Output
    PolsP2C    The corresponding polarization code.
