C ELM1A               BEAM MOMENTUM
C
C PBEAM                  DESIGN MOMENTUM AT BEGINNING OF BEAM LINE
C P0 (RI)                BEAM RIGIDITY (MOMENTUM).
C NPOPT                  PHASE-SPACE DISTRIBUTION SPECIFICATION
C LBEAM       LOGICAL    TRUE IF BEAM HAS BEEN SPECIFIED
C RMSADD      LOGICAL    TRUE IF ELEMENT IS RMS ADDITION TO BEAM
C LTWISS      LOGICAL    TRUE IF ELEMENT IS EXPRESSED IN ACCELERATOR NOTATION
C LEMIT       LOGICAL    TRUE IF EMITTANCE IS SPECIFIED ON BEAM CARD
C
      LOGICAL         LBEAM, RMSADD, LTWISS, LEMIT
      REAL            PBEAM, P0
C
      COMMON /ELM1A/  PBEAM, P0, NPOPT, LBEAM, RMSADD, LTWISS, LEMIT
      EQUIVALENCE     (P0,RI)