1 SUBROUTINE WINGYW 2C 3C *** MAIN LOGIC FOR WING YAW DAMPING DERIVATIVES 4C 5 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 6 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON 7 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 8 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON 9 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA 10 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 11 COMMON /IWING/ PWING,WING(400) 12 COMMON /IBW/ PBW,BW(380) 13C 14 IF(.NOT. (SUBSON .OR. SUPERS)) GO TO 1040 15 IF(SUBSON) CALL SUBRYW 16 IF(SUPERS) CALL SUPRYW 17C 18C METHODS SAME FOR WING OR WING-BODY, NO CNR SUPERSONIC METHODS 19C 20 DO 1030 J=1,NALPHA 21 BW(J+300)=WING(J+300) 22 BW(J+320)=WING(J+320) 23 IF(J .GT. 1 .AND. SUPERS) GO TO 1010 24 BW(J+280)=WING(J+280) 25 IF(SUPERS) GO TO 1020 26 BW(J+340)=WING(J+340) 27 GO TO 1030 28 1010 BW(J+280)= -UNUSED 29 WING(J+280)= -UNUSED 30 1020 BW(J+340)= UNUSED 31 WING(J+340)= UNUSED 32 1030 CONTINUE 33 1040 CONTINUE 34 RETURN 35 END 36