1      SUBROUTINE M11O13
2C
3C***  EXEC FOR OVERLAY 11, GROUND EFFECTS
4C
5      COMMON /IBW/     PBW, BW(380)
6      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,IJKDUM(2),NOVLY
7      COMMON /CONSNT/ PI,DEG,UNUSED
8      COMMON /FLGTCD/ FLC(93)
9      COMMON /SUPWH/  GR(303)
10      COMMON /ERROR/  IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPFLC,DPFACT,
11     1           DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB,DPCHT,DPDHT,DPSYN,
12     2           SAVE,DMPCSE,DPDVT,DPGR,DPLB,DPPW,DPSTB,DPSBD,DPSLG,
13     3           DPSWB,DPSTP,DPDWA,DPSTG,DPSLA,DPTRA,DPEXPD
14      LOGICAL    IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPFLC,DPFACT,
15     1           DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB,DPCHT,DPDHT,DPSYN,
16     2           SAVE,DMPCSE,DPDVT,DPGR,DPLB,DPPW,DPSTB,DPSBD,DPSLG,
17     3           DPSWB,DPSTP,DPDWA,DPSTG,DPSLA,DPTRA,DPEXPD
18      NOVLY=11
19      DO 1000 J=1,303
20 1000 GR(J)=UNUSED
21      CALL GRDEFF(FLC(IG+63),NF)
22      IF(DPGR.OR.DMPCSE)CALL DMPARY(GR,303,2HGR,2)
23      RETURN
24      END
25