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