C ELS13A     TEMPORARY STORAGE FOR ELM13A
C
C LAYS     STORAGE FOR LAY
C R1PS     STORAGE FOR R1P
C
      LOGICAL         LAYS, R1PS
C
      COMMON /ELS13A/ LAYS, R1PS