1 SUBROUTINE CDWBT 2C 3C**** TRANSONIC WING-BODY-TAIL CD - DATCOM SECTION 4.5.3.2 4C 5 COMMON /IBODY/ PBOD, CDB(20) 6 COMMON /IHT/ PHT, CDH(20),CLH(20) 7 COMMON /IVT/ PVT, CDOV 8 COMMON /IBW/ PBW, CDWB(20) 9 COMMON /IBV/ PBV, CDBV(20) 10 COMMON /IBWH/ PBWH, CDBWH(20) 11 COMMON /IBWV/ PBWV, CDBWV(20) 12 COMMON /IBWHV/ PBWT, WBTCD(20) 13 COMMON /IDWASH/ PDWA, QOQI(20),EPS(20) 14 COMMON /SBETA/ STB(135),TRA(108),TRAH(108) 15 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 16 COMMON /OVERLY/ NLOG,NMACH,NZ,NALPHA 17C 18 EQUIVALENCE (TRA(73),CDOWB), (TRAH(108),CDOH), (TRA(75),CDOWBT) 19 LOGICAL FLAG 20C 21 CDOWBT = WBTCD(1) 22 IF(CDOV.EQ.UNUSED.AND.CDOWBT.EQ.UNUSED) GO TO 1010 23 IF(CDOV.EQ.UNUSED)CDOV=CDOWBT-CDOWB-CDOH 24 DO 1000 I=1,NALPHA 25 FLAG = ABS(CDWB(I)) .EQ. UNUSED .OR. ABS(CDH(I)) .EQ. UNUSED 26 1 .OR. ABS(QOQI(I)) .EQ. UNUSED .OR. ABS(CLH(I)) .EQ. UNUSED 27 2 .OR. ABS( EPS(I)) .EQ. UNUSED 28 IF(FLAG) GO TO 1000 29 WBTCD(I)=CDOV+CDWB(I)+QOQI(I)*(CDH(I)*COS(EPS(I))+CLH(I)* 30 1 SIN(EPS(I))) 31 1000 CONTINUE 32 1010 CONTINUE 33 DO 1020 I=1,NALPHA 34 FLAG = CDOV .NE. UNUSED .AND. ABS(CDB(I)) .NE. UNUSED 35 IF(FLAG) CDBV(I)=CDB(I)+CDOV 36 FLAG = CDOV .NE. UNUSED .AND. ABS(WBTCD(I)) .NE. UNUSED 37 IF(FLAG) CDBWH(I)=WBTCD(I)-CDOV 38 FLAG = CDOV .NE. UNUSED .AND. ABS(CDWB(I)) .NE. UNUSED 39 IF(FLAG) CDBWV(I)=CDWB(I)+CDOV 40 1020 CONTINUE 41 RETURN 42 END 43