C ELM1E               SINES AND COSINES OF PHASE ADVANCE
C
C PSIXO               X PLANE PHASE ADVANCE AT END OF PREVIOUS ELEMENT
C SNPX                SINE OF X PLANE PHASE ADVANCE
C CSPX                COSINE OF X PLANE PHASE ADVANCE
C PSIYO               Y PLANE PHASE ADVANCE AT END OF PREVIOUS ELEMENT
C SNPY                SINE OF Y PLANE PHASE ADVANCE
C CSPY                COSINE OF Y PLANE PHASE ADVANCE
C
      REAL            PSIXO, SNPX, CSPX, PSIYO, SNPY, CSPY
C
      COMMON /ELM1E/  PSIXO, SNPX, CSPX, PSIYO, SNPY, CSPY