1 SUBROUTINE SUPCM0 2C 3C*** CALCULATES SUPERSONIC CONFIGURATION CM0 4C 5 COMMON /IBW/ PBW, BW(380) 6 COMMON /IBH/ PBH, BH(380) 7 COMMON /FLGTCD/ FLC(160) 8 COMMON /SUPBOD/ SBD(229) 9 COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV, 10 1 VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV, YF, 11 2 PHIV, PHIF 12 COMMON /WINGI/ WGIN(101) 13 COMMON /HTI/ HTIN(154) 14 COMMON /BDATA/ BD(762) 15 COMMON /WINGD/ A(195), B(49) 16 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 17 COMMON /HTDATA/ AHT(195), BHT(49) 18 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K 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 24C 25 EQUIVALENCE (BW(41),CMOWB), (BH(41),CMOHB) 26 LOGICAL 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 32C*** WING-BODY CMO 33C 34 IF(.NOT. WGPL) GO TO 1010 35 DB = 2.0*(WGIN(4)-WGIN(3)) 36 XLN = (XW+0.5*DB*A(38))/DB 37 XLA = (XW+WGIN(6)+0.5*DB*A(80))/DB 38 XLA = BD(1)/DB-XLA 39 RN = FLC(I+2)*A(122) 40 DBM = SBD(120) 41 WL = 0.5*ZW/DBM 42 VT = 0.0 43 HD = 0.0 44 DOB = 0.5*DBM/WGIN(4) 45 CALL WBCM0(A(120), A(38), WGIN(16), XLN, XLA, A(118), WGIN(62), 46 1 WGIN(11), WGIN(93), WGIN(94), RN, FLC(96), WL, 47 2 VT, HD, DOB, FLC(I+2), CMOWB) 48 TRA(73) = CMOWB 49 1010 CONTINUE 50C 51C*** HORIZONTAL-BODY CMO 52C 53 IF(.NOT. HTPL) GO TO 1020 54 DB = 2.0*(HTIN(4)-HTIN(3)) 55 XLN = (XH+0.5*DB*AHT(38))/DB 56 XLA = (XH+HTIN(6)+0.5*DB*AHT(80))/DB 57 XLA = BD(1)/DB-XLA 58 RN = FLC(I+2)*AHT(122) 59 DBM = SBD(120) 60 WL = 0.5*ZW/DBM 61 VT = 0.0 62 HD = 0.0 63 DOB = 0.5*DBM/HTIN(4) 64 CALL WBCM0(AHT(120), AHT(38), HTIN(16), XLN, XLA, AHT(118), 65 1 HTIN(62),HTIN(11), HTIN(93), HTIN(94), RN, FLC(96), WL, 66 2 VT, HD, DOB, FLC(I+2), CMOHB) 67 TRAH(73) = CMOHB 68 1020 CONTINUE 69 RETURN 70 END 71