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