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