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