1      SUBROUTINE M39O47
2C
3C***  EXEC FOR OVERLAY 39, PRINT HIGH LIFT AND CONTROL DATA
4C
5      COMMON /FLAPIN/ F(138)
6      COMMON /IBODY/  PBODY,  BODY(400)
7      COMMON /IWING/  PWING,  WING(400)
8      COMMON /IHT/    PHT,    HT(380)
9      COMMON /IVT/    PVT,    VT(380)
10      COMMON /OVERLY/ IJKDUM(8),NOVLY
11      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
12     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
13     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
14     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
15     4                VFPL,VFSC,CTAB,PLOT
16C
17      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
18     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
19     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
20     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
21     4         VFPL,VFSC,CTAB,PLOT
22C
23      NOVLY=39
24      CALL DUMP2
25      CALL OUTPT2
26      IF(.NOT. PLOT) GO TO 1000
27        WRITE(13,1010) F
28        WRITE(13,1010)(BODY(J),J=201,400)
29        WRITE(13,1010)(WING(J),J=201,400)
30        WRITE(13,1010) (HT(J), J=201,380)
31        WRITE(13,1010) (VT(J), J=201,380)
32 1000 CONTINUE
33 1010 FORMAT(1P,10E12.4)
34      RETURN
35      END
36