1      SUBROUTINE M06O06
2C
3C***  EXEC FOR OVERLAY 6, SUBSONIC AXISYMMETRIC BODY AERO
4C
5      COMMON /IBODY/ PBODY, BODY(400)
6      COMMON /CONSNT/ PI,DEG,UNUSED,RAD
7      COMMON /OVERLY/ NLOG,NMACH,M,NALPHA,IJKDUM(4),NOVLY
8      COMMON /OPTION/ SREF,CBARR,ROUGFC,BLREF
9      COMMON /FLGTCD/ FLC(93)
10      COMMON /WINGD/  A(195)
11      COMMON /WINGI/  WINGIN(100)
12      COMMON /BODYI/  XNX,X(20),S(20),P(20),R(20),ZL(20),ZU(20),
13     1                BNOSE,BTAIL,RLN,RLA,DS,ITYPE,METHOD
14      COMMON /SYNTSS/ XCG,XW,ZW,ALIW,ZCG,XH,ALIH,XV,VERTUP,HINAX,
15     1                XVF,SCALE,ZV,ZVF,YV,YF,PHIV,PHIF
16      COMMON /HTI/    HTIN(154)
17      COMMON /HTDATA/ AHT(195)
18      COMMON /BDATA/  BD(275),BOD(120)
19      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
20     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
21     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
22     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
23     4                VFPL,VFSC,CTAB
24      COMMON /EXPER/  KKK(104),KBODY
25C
26      REAL METHOD
27      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
28     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
29     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
30     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
31     4         VFPL,VFSC,CTAB,KBODY
32      DIMENSION C(6), D(6), ROUTID(2)
33      DIMENSION XS(20),SS(20),PS(20),RS(20),XI(3)
34      DIMENSION ZUS(20), ZLS(20)
35      DATA ROUTID / 4HM06O, 4H06   /
36C
37      NOVLY=6
38      CALL BODYRT
39      IF(SUBSON .AND. (METHOD .GT. 1.5)) CALL BODYJM
40      CALL EXSUBT
41C
42      IN = 0
43      IF(KBODY .AND. .NOT. TRANSN) CALL TBFUNX(0.0,BD(62),XX,NALPHA,
44     1   BODY(21),BODY(41),C,IN,MI,NG,1,1,4HCM0 ,1,ROUTID)
45C
46C     CALCULATE CLA, CMA, CYB, CNB, CLB, CN, AND CA
47C
48      BFACT = CBARR/BLREF
49      IN = 0
50      IM = 0
51      DO 1020 J=1,NALPHA
52         IF(J .EQ. 1 .AND. .NOT. KBODY) GO TO 1010
53         CALL TBFUNX(FLC(J+22),XX,BODY(J+100),NALPHA,FLC(23),BODY(21),
54     1               C,IN,MI,NG,0,0,4HCLAB,1,ROUTID)
55         CALL TBFUNX(FLC(J+22),XX,BODY(J+120),NALPHA,FLC(23),BODY(41),
56     1               D,IM,MI,NG,0,0,4HCMAB,1,ROUTID)
57 1010    CONTINUE
58         BODY(J+140) = -BODY(J+100)
59         BODY(J+160) = -BFACT*BODY(J+120)
60         BODY(J+180) = 0.0
61         CA = COS(FLC(J+22)/RAD)
62         SA = SIN(FLC(J+22)/RAD)
63         BODY(J+60) = BODY(J+20)*CA + BODY(J)*SA
64         BODY(J+80) = BODY(J)*CA - BODY(J+20)*SA
65 1020 CONTINUE
66      RETURN
67      END
68