C ELM5A               BEND AND QUADRUPOLE
C
C This is another test
C LMAG       MAGNET LENGTH
C LVE        EFFECTIVE PARTIAL OF LENGTH FOR DFOL SUBROUTINE 
C GRAD       QUADRUPOLE GRADIENT
C KQ2        K SQUARED TERM IN HARMONIC OSCILATOR EQUATION.
C KVK        SCALER TO MULTIPLY MATRIX TO GET PARTIAL WRT B OR N.
C KX2        KQ2 FOR HORIZONTAL PLANE.
C KY2        KQ2 FOR VERTICAL PLANE.
C KQPSQ      KQ*PSQRT = SQRT(GRAD)
C KQ         FACTOR FOR PHASE SHIFT
C
      REAL            LMAG, LVE, GRAD, KQ2, KVK, KX2, KY2, KQPSQ, KQ
C
      COMMON /ELM5A/  LMAG, LVE, GRAD, KQ2, KVK, KX2, KY2, KQPSQ, KQ