1 SUBROUTINE M54O66 2C 3C*** EXEC FOR OVERLAY 54, SUPERSONIC WING CM ALPHA DOT 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 6 COMMON /CONSNT/ PI,DEG,UNUSED 7 COMMON /IWING/ PWING, WING(400) 8 COMMON /IHT/ PHT, HT(380) 9 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 10 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 11 2 SUPERS,SUBSON,TRANSN,HYPERS, 12 3 SYMFP,ASYFP,TRIMC,TRIM 13 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 14 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN, 15 2 SUPERS,SUBSON,TRANSN,HYPERS, 16 3 SYMFP,ASYFP,TRIMC,TRIM 17 NOVLY=54 18 IF(WGPL) CALL SUPCMD 19 IF(HTPL) CALL SUPHMD 20C 21C FOR CMAD ONLY ONE POINT CALCULATED 22C BLANK OUT REMAINING POINTS 23C 24 DO 1000 J=2,NALPHA 25 HT(J+260) = -UNUSED 26 1000 WING(J+260) = -UNUSED 27 RETURN 28 END 29