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