C ELM4A               BEND ELEMENT
C
C LBEND      LENGTH OF BENDING MAGNET
C B          FIELD IN KILOGAUSS.
C H0         1/RADIUS OF CURVATURE.
C AL         ANGLE OF BEND.
C NB         NORMALIZED FIELD GRADIENT (SMALL N).
C BDB        NORMALIZED SECOND DERIVATIVE OF B.
C RMPS       MULTIPLICATIVE FACTOR FOR FIELD OF BEND MAGNET
C RNMS       COMMON MULTIPLICATIVE FACTOR FOR NON-MIDPLANE-SYMMETRIC MULTIPOLES
C VRN        NORMALIZED VERTICALLY BENDING COMPONENT OF BEND FIELD
C                       (DOES NOT AFFECT REFERENCE TRAJECTORY)
C NPN        NORMALIZED FIELD GRADIENT OF VERTICALLY BENDING FIELD
C BDBP       NORMALIZED SECOND DERIVATIVE OF VRN.
C GAM        NORMALIZED THIRD DERIVATIVE OF B.
C
      REAL            LBEND, B, H0, AL, NB, NPN, BDB, RMPS, RNMS, VRN, 
     1                BDBP, GAM
C
      COMMON /ELM4A/  LBEND, B, H0, AL, NB, BDB, RMPS, RNMS, VRN, NPN,
     1                BDBP, GAM