1      SUBROUTINE M03O03
2C
3C***  EXEC FOR OVERLAY 3, SUBSONIC WING DRAG
4C
5      COMMON /OVERLY/ IJKDUM(8),NOVLY
6      COMMON /WINGD/  A(195),B(49)
7      COMMON /WHAERO/ C(51),D(55),CHT(51),DHT(55),DVT(55)
8      COMMON /WINGI/  WINGIN(77)
9      COMMON /IWING/  PWING,WING(400)
10      NOVLY=3
11      CALL CDRAG(A,B,D,WINGIN,WING)
12      RETURN
13      END
14