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