C ELM1C               PHASE SHIFTS
C
C PSIX         PHASE SHIFT IN HORIZONTAL PLANE
C PSIY         PHASE SHIFT IN VERTICAL PLANE
C PSIX1        PHASE SHIFT IN HORIZONTAL PLANE AT LAST R2 UPDATE
C PSIY1        PHASE SHIFT IN VERTICAL PLANE AT LAST R2 UPDATE
C NOPH         TRUE IF BEAM HAS ZERO PHASE SPACE
C DOPH         TRUE IF IT IS POSSIBLE TO DO PHASE SHIFTS
C
      LOGICAL         NOPH, DOPH
      REAL            PSIX, PSIY, PSIX1, PSIY1
C
      COMMON /ELM1C/  PSIX, PSIY, PSIX1, PSIY1, NOPH, DOPH