1      SUBROUTINE M26O32
2C
3C***  EXEC FOR OVERLAY 26, HYPERSONIC BODY AERO
4C
5      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY
6      COMMON /IBODY/  PB, BODY(400)
7      COMMON /FLGTCD/ FLC(93)
8      COMMON /OPTION/ SREF,CBARR,ROUGFC,BLREF
9      DIMENSION C1(6),C2(6),ROUTID(2)
10      DATA ROUTID/ 4HM26O, 4H32  /
11      NOVLY=26
12      CALL HYPBOD(I)
13      BFACT = CBARR/BLREF
14      IN = 0
15      IM = 0
16      DO 1000 J=1,NALPHA
17         CALL TBFUNX(FLC(J+22),X,BODY(J+100),NALPHA,FLC(23),BODY(21),
18     1               C1,IN,MI,NG,0,0,4HCLAB,1,ROUTID)
19         CALL TBFUNX(FLC(J+22),X,BODY(J+120),NALPHA,FLC(23),BODY(41),
20     1               C2,IM,MI,NG,0,0,4HCMAB,1,ROUTID)
21         BODY(J+140) = -BODY(J+100)
22         BODY(J+160) = -BFACT*BODY(J+120)
23         BODY(J+180) = 0.0
24 1000 CONTINUE
25      RETURN
26      END
27