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