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