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