1      SUBROUTINE M41O51
2C
3C***  EXEC FOR OVERLAY 41, SUPERSONIC HIGH LIFT AND CONTROL AERO
4C
5      COMMON /OVERLY/ IJKDUM(8),NOVLY
6      COMMON /CONSNT/ PI,DEG,UNUSED,RAD
7      COMMON /FLAPIN/ F(69)
8      COMMON /IWING/  PW, WING(400)
9      NOVLY=41
10      IF(F(17).NE.5.0.AND.F(17).NE.6.0)CALL SSHING
11      DO 1000 J=2,10
12         WING(J+250) = -UNUSED
13 1000 CONTINUE
14      RETURN
15      END
16