1      SUBROUTINE M34O42
2C
3C***  EXEC FOR OVERLAY 34, DEFINE EXPERIMENTAL DATA INPUT
4C
5      COMMON /OVERLY/  IJKDUM(8),NOVLY
6      COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA,
7     1               KBODY, KWING, KHT, KVT, KWB, KDWASH(3),
8     2               ALPOW, ALPLW, ALPOH, ALPLH
9C
10      NOVLY=34
11      IF(KLIST .GE. 1) CALL XPERNM
12      RETURN
13      END
14