1      SUBROUTINE M15O17
2C
3C***  EXEC FOR OVERLAY 15, SUBSONIC WING LIFT
4C
5      COMMON /OVERLY/ IJKDUM(8),NOVLY
6      COMMON /WINGD/  A(195),B(49)
7      COMMON /IWING/  PWING,WING(400)
8      COMMON /WINGI/  WINGIN(77)
9      NOVLY=15
10      CALL CALCA0(A,B,WINGIN)
11      CALL WTLIFT(A,B,WINGIN,WING)
12      CALL LIFTCF(A,B,WINGIN,WING)
13      RETURN
14      END
15