1 SUBROUTINE CLWBT 2C 3C*** COMPUTES TRANSONIC WING BODY TAIL CL 4C 5 COMMON /IBODY/ PBOD, CDB(20),CLB(20) 6 COMMON /IHT/ PHT, CDH(20),CLH(20),HT(60),CLAH 7 COMMON /IBW/ PBW, CDBW(20),CLBW(20),BW(60),CLABW 8 COMMON /IBV/ PBV, CDBV(20),CLBV(20),BV(60),CLABV 9 COMMON /IBWH/ PBWH, CDBWH(20),CLBWH(20),BWH(60),CLABWH(20) 10 COMMON /IBWV/ PBWV, CDBWV(20),CLBWV(20) 11 COMMON /IBWHV/ PBWT, CDBWT(20),CLBWT(20),BWT(60),CLABWT(20) 12 COMMON /IDWASH/ PDWA, QOQI(20),EPS(20),DEODA(20) 13 COMMON /FLGTCD/ FLC(95) 14 COMMON /SYNTSS/ XCG,XW,ZW,ALIW,ZCG,XH,ZH,ALIH,XV,VERTUP,HINAX, 15 1 XVF,SCALE,ZV,ZVF,YV,YF,PHIV,PHIF 16 COMMON /WHWB/ FACT(182) 17 COMMON /HTDATA/ AHT(195),BHT(49) 18 COMMON /SUPWBB/ SWB(61),SHB(61) 19 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 20 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA 21C 22 EQUIVALENCE (SHB(2),KKHB), (SHB(11),KBH), (SHB(35),KHB), 23 1 (SHB(37),KKBH) 24 DIMENSION C(6),ROUTID(2) 25 LOGICAL FLAG,VERTUP 26 REAL KHB,KBH,KKHB,KKBH 27 DATA ROUTID /4HCLWB, 4HT / 28C 29 IY = 0 30 DO 1000 J=1,NALPHA 31 FLAG = ABS(CLBW(J)) .NE. UNUSED 32 IF(FLAG) CLBWV(J) = CLBW(J) 33 IF(ABS(CLB(J)) .NE. UNUSED) CLBV(J) = CLB(J) 34C 35 FLAG = ABS(CLBW(J)) .NE. UNUSED .AND. ABS(CLH(J)) .NE. UNUSED 36 1 .AND. ABS(QOQI(J)) .NE. UNUSED .AND. ABS(EPS(J)) .NE. UNUSED 37 IF(.NOT. FLAG) GO TO 1000 38 ALPT = BHT(J+22)-EPS(J) 39 FLAG = ABS(DEODA(J)) .NE. UNUSED 40 IF(FLAG) CLABWH(J) = CLABW+(KHB+KBH)*CLAH* 41 1 (1.0-DEODA(J))*QOQI(J) 42 IF(FLAG) CLABWT(J) = CLABWH(J) 43 CALL TBFUNX(ALPT,CLHJ,DYDX,NALPHA,FLC(23),CLH,C,IY, 44 1 MI,NG,0,0,4HCLH ,1,ROUTID) 45 CLI = CLAH*ALIH 46 CLBWH(J) = (CLHJ-CLI)*(KHB+KBH)+CLI*(KKHB+KKBH)+FACT(141)* 47 1 FACT(J+141)*FACT(J+161)*CLAH*ALPT 48 CLBWH(J) = CLBWH(J)*QOQI(J)+CLBW(J) 49 CLBWT(J) = CLBWH(J) 50 1000 CONTINUE 51 RETURN 52 END 53