1 SUBROUTINE M28O34 2C 3C*** EXEC FOR OVERLAY 28, SUPERSONIC WING-BODY-TAIL AERO 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 6 COMMON /IBWH/ PBWH, BWH(380) 7 COMMON /IBWHV/ PBWHV, BWHV(380) 8 COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA, 9 1 KBODY, KWING, KHT, KVT, KWB, KDWASH(3), 10 2 ALPOW, ALPLW, ALPOH, ALPLH 11 DIMENSION KEY(3) 12 LOGICAL KDWASH 13 EQUIVALENCE (KEY(1),KQOQIN), (KEY(2),KEPSLN), (KEY(3),KDEODA) 14 NOVLY=28 15 CALL EXSUBT 16 DO 1000 J=1,3 17 KEY(J) = 0 18 IF(KDWASH(J)) KEY(J) = 1 19 1000 CONTINUE 20 CALL SUPWBT(KDEODA,KQOQIN,KEPSLN) 21 DO 1010 J=1,NALPHA 22 BWHV(J+ 20) = BWH(J+ 20) 23 BWHV(J+100) = BWH(J+100) 24 BWHV(J+120) = BWH(J+120) 25 1010 CONTINUE 26 RETURN 27 END 28