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