C ELM5B               MATRIX ELEMENTS FOR QUADRUPOLES
C
C CS        COSINE(KL) FOR PLANE BEING CALCULATED
C SN        SINE(KL) FOR PLANE BEING CALCULATED
C JQUAD     INDEX TELLING IF HORIZONTAL OR VERTICAL PLANE.
C
      INTEGER         JQUAD
      REAL            CS, SN
C
      COMMON /ELM5B/  CS, SN, JQUAD