1      SUBROUTINE M27O33
2C
3C***  EXEC FOR OVERLAY 27, SUPERSONIC WING STABILITY
4C
5      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY
6      COMMON /CONSNT/ CONST(4)
7      COMMON /IWING/  PWING,WING(400)
8      COMMON /FLGTCD/ FLC(93)
9      COMMON /WINGI/  WGIN(100)
10      EQUIVALENCE (CONST(3),UNUSED)
11      LOGICAL FLAG
12      DIMENSION CR(6),ROUTID(2)
13      DATA ROUTID/ 4HM27O, 4H33  /
14      DATA A4HSTR/4HSTRA/
15      NOVLY=27
16      CALL SUPLNG
17C
18C   GET WING CLA AND CMA FOR ANGLES-OF-ATTACK OTHER THAN THE FIRST
19C
20      FLAG = (WGIN(15) .EQ. A4HSTR)
21      IN=0
22      INN=0
23      DO 1000 J=2,NALPHA
24         CALL TBFUNX(FLC(J+22),X,WING(J+100),NALPHA,FLC(23),WING(21),
25     1                CR,IN,MI,NG,0,0,4HCLAW,1,ROUTID)
26         IF(J .EQ. 1) GO TO 1000
27         WING(J+120) = -UNUSED
28         IF(FLAG) GO TO 1000
29         WING(J)    = -UNUSED
30         WING(J+20) = -UNUSED
31         WING(J+40) = -UNUSED
32         WING(J+60) = -UNUSED
33         WING(J+80) = -UNUSED
34         WING(J+100)= -UNUSED
35         WING(J+180)= -UNUSED
36 1000 CONTINUE
37      IF(.NOT. FLAG)WING(81)=WING(1)
38      RETURN
39      END
40