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