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