1 SUBROUTINE M17O21 2C 3C*** EXEC FOR OVERLAY 17, SUBSONIC LATERAL STABILITY 4C 5 COMMON /IBODY/ PBODY, BODY(400) 6 COMMON /IWING/ PWING, WING(400) 7 COMMON /IHT/ PHT, HT(380) 8 COMMON /IVT/ PVT, VT(380) 9 COMMON /IVF/ PVF, VF(380) 10 COMMON /IBW/ PBW, BW(380) 11 COMMON /IBH/ PBH, BH(380) 12 COMMON /IBV/ PBV, BV(380) 13 COMMON /IBWH/ PBWH, BWH(380) 14 COMMON /IBWV/ PBWV, BWV(380) 15 COMMON /IBWHV/ PBWHV, BWHV(380) 16C 17 COMMON /WINGI/ WINGIN(101) 18 COMMON /VTI/ VTIN(154), TVTIN(8), VFIN(154) 19 COMMON /HTI/ HTIN(154) 20 COMMON /WINGD/ A(195), B(49) 21 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 22 COMMON /HTDATA/ AHT(195), BHT(49) 23 COMMON /VTDATA/ AVT(195), AVF(195) 24 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 25 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY 26 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 27 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 28 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 29 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 30 4 VFPL,VFSC,CTAB 31C 32 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 33 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 34 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 35 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 36 4 VFPL,VFSC,CTAB 37 LOGICAL FLAG, TEST 38C 39 NOVLY=17 40 FLAG = .FALSE. 41 TEST = WGPL .OR. VTPL .OR. TVTPAN 42 IF(TEST) CALL SUBLAT(STB,WING,WINGIN,BW,A,B,AHT, 43 1 AVT,VT,VTIN,VTPL,TVTPAN,HTPL,WGPL,0) 44 TEST = HTPL .OR. VFPL 45 IF(TEST) CALL SUBLAT(STBH,HT,HTIN,BH,AHT,BHT,AHT, 46 1 AVF,VF,VFIN,VFPL,FLAG,FLAG,HTPL,1) 47C 48C SET IOM VALUES FOR CYB, CNB, AND CLB 49C 50 DO 1050 J=1,NALPHA 51C 52C VT DATA 53C 54 IF(J .EQ. 1) GO TO 1000 55 VT(J+140) = -UNUSED 56 VT(J+160) = -UNUSED 57 VF(J+140) = -UNUSED 58 VF(J+160) = -UNUSED 59C 60C B-W DATA 61C 62 BW(J+140) = -UNUSED 63 BW(J+160) = -UNUSED 64C 65C B-H DATA 66C 67 BH(J+140) = -UNUSED 68 BH(J+160) = -UNUSED 69 1000 CONTINUE 70C 71C B-V DATA 72C 73 BV(J+140) = -UNUSED 74 BV(J+160) = -UNUSED 75 IF(J .GT. 1) GO TO 1010 76 BV(J+140) = BODY(J+140) + VT(J+140) + VF(J+140) 77 BV(J+160) = BODY(J+160) + VT(J+160) + VF(J+160) 78 1010 CONTINUE 79 BV(J+180) = BODY(J+180) + VT(J+180) + VF(J+180) 80C 81C B-W-H DATA 82C 83 BWH(J+140) = -UNUSED 84 BWH(J+160) = -UNUSED 85 IF(J .GT. 1) GO TO 1020 86 BWH(J+140) = BW(J+140) + HT(J+140) 87 BWH(J+160) = BW(J+160) + HT(J+160) 88 1020 BWH(J+180) = BW(J+180) + HT(J+180) 89C 90C B-W-V DATA 91C 92 BWV(J+140) = -UNUSED 93 BWV(J+160) = -UNUSED 94 IF(J .GT. 1) GO TO 1030 95 BWV(J+140) = BW(J+140) + VT(J+140) + VF(J+140) 96 BWV(J+160) = BW(J+160) + VT(J+160) + VF(J+160) 97 1030 CONTINUE 98 BWV(J+180) = BW(J+180) + VT(J+180) + VF(J+180) 99C 100C B-W-H-V DATA 101C 102 BWHV(J+140) = -UNUSED 103 BWHV(J+160) = -UNUSED 104 IF(J .GT. 1) GO TO 1040 105 BWHV(J+140) = BWH(J+140) + VT(J+140) + VF(J+140) 106 BWHV(J+160) = BWH(J+160) + VT(J+160) + VF(J+160) 107 1040 CONTINUE 108 BWHV(J+180) = BWH(J+180) + VT(J+180) + VF(J+180) 109 1050 CONTINUE 110 IF(.NOT. TRANSN) GO TO 1070 111 VT(141) = UNUSED 112 VT(161) = UNUSED 113 VF(141) = UNUSED 114 VF(161) = UNUSED 115 BV(141) = UNUSED 116 BV(161) = UNUSED 117 BWH(141) = UNUSED 118 BWH(161) = UNUSED 119 BWHV(141) = UNUSED 120 BWHV(161) = UNUSED 121 WING(141) = UNUSED 122 WING(161) = UNUSED 123 HT(141) = UNUSED 124 HT(161) = UNUSED 125 DO 1060 J=1,NALPHA 126 BV(J+180) = UNUSED 127 BWH(J+180) = UNUSED 128 BWV(J+180) = UNUSED 129 BWHV(J+180) = UNUSED 130 1060 CONTINUE 131 1070 CONTINUE 132 RETURN 133 END 134