1      SUBROUTINE MAIN03
2C
3C***  TRANSONIC AERO EXECUTIVE
4C
5      COMMON /FLGTCD/ FLC(160)
6      COMMON /WINGI/  WINGIN(101)
7      COMMON /HTI/    HTIN(154)
8      COMMON /SBETA/  STB(135), TRA(108), TRAH(108), STBH(135)
9      COMMON /LEVEL2/ SECOND(23)
10      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF
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
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
22C
23      LOGICAL DONE, DOL2, FLAG
24      EQUIVALENCE (SECOND(15),DONE), (SECOND(16),DOL2)
25C
26      DATA STRA / 4HSTRA /
27C
28      DOL2 = ((WINGIN(15) .EQ. STRA) .OR. (.NOT. WGPL)) .AND.
29     1       ((HTIN(15)   .EQ. STRA) .OR. (.NOT. HTPL))
30      IF(DONE .OR. .NOT. DOL2) GO TO 1020
31        NF = -1
32        CALL M24O30
33 1010   CONTINUE
34        CALL M35O43
35        IF(NF .GE. -5)                 CALL MAIN01
36        IF(NF .EQ. -6 .OR. NF .EQ. -7) CALL MAIN04
37        IF(NF .GE. -7)                 GO TO 1010
38 1020 CONTINUE
39      NF = 1
40      IG = 1
41      CALL M51O63
42      CALL EXSUBT
43      CALL M18O22
44      IF(.NOT. BO) GO TO 1030
45        CALL M06O06
46        CALL M19O23
47 1030 CONTINUE
48      CALL M24O30
49      FLAG = BO .AND. (WGPL .OR. HTPL)
50      IF(DOL2) CALL M25O31
51      CALL EXSUBT
52      IF(FLAG) CALL M29O35
53      IF(FLAG) CALL M17O21
54      CALL M35O43
55      CALL M49O61
56C
57C***  DYNAMIC STABILITY
58C
59      IF(.NOT. DAMP) GO TO 1040
60        IG = 3
61        CALL M51O63
62        IF(WGPL) CALL M43O53
63        CALL M46O56
64 1040 CONTINUE
65C
66C***  PRINT DATA, RETURN TO MAIN00
67C
68      CALL M12O14
69      DOL2 = .FALSE.
70      RETURN
71      END
72