1      SUBROUTINE MAIN06
2C
3C***  TRANSONIC HIGH LIFT AND CONTROL DEVICES EXECUTIVE
4C
5      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF
6      COMMON /FLGTCD/ FLC(95)
7      COMMON /FLAPIN/ F(116)
8      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
9     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
10     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
11     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART
12C
13      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
14     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
15     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
16     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART
17      LOGICAL FLAG
18C
19C***  FLAP DATA
20C
21      IF(SYMFP) CALL M36O44
22      IF(.NOT. ASYFP) GO TO 1000
23        CALL M52O64
24        FLAG = (F(18) .EQ. 5.0) .AND. (FLC(I+2) .LT. 1.0)
25        IF(FLAG) CALL M37O45
26 1000 CONTINUE
27      CALL M40O50
28      RETURN
29      END
30