source: PSPA/transportPSPA/trunk/include/ELM4B.CIN @ 452

C ELM4B               DERIVED PARAMETERS FOR BENDING MAGNET
C
C BEB        UNITLESS QUADRATIC TERM IN B.
C RH         RATIO OF MISTUNED TO TUNED BENDING FIELD
C H          MISTUNED CURVATURE OF REFERENCE PARTICLE
C HEX        EXCESS CURVATURE OF REFERENCE PARTICLE
C NBR        MISTUNED NORMALIZED FIELD GRADIENT
C VR         FRACTIONAL NON-MIDPLANE-SYMMETRIC BENDING FIELD
C NPR        NON-MIDPLANE-SYMMETRIC NORMALIZED FIELD GRADIENT
C BEP        NON-MIDPLANE-SYMMETRIC UNITLESS SECOND DERIVATIVE OF B
C GAB        UNITLESS CUBIC TERM IN B.
C
      REAL            BEB, RH, H, HEX, NBR, VR, NPR, BEP, GAB
C
      COMMON /ELM4B/  BEB, RH, H, HEX, NBR, VR, NPR, BEP, GAB