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