1 SUBROUTINE OUTPUT 2C 3C OUTPUT CONTROLS THE PRINTING OF STATIC AND DYNAMIC 4C STABILITY DATA STORED IN THE IDEAL OUTPUT MATRIX 5C 6C SUBROUTINES REFERENCED- 7C 1- HEADR - WRITES PAGE HEADINGS, PASSES STABILITY 8C DATA TO INTERM, AND WRITES REQUIRED 9C NOTES FOLLOWING DATA. 10C 2- PRCSID- WRITES THE USER SUPPLIED IDENTIFICATION 11C CENTERED ON THE PAGE. 12C 3- INTERM- COMPUTES AERODYNAMIC CENTER OF PRESSURE 13C FOR STATIC STABILITY DATA, SETS PRINT 14C FORMAT, AND CALLS SWRITE. 15C 4- SWRITE- PRINTS DATA WITH BLANKS, NDM, OR NA 16C REPLACING NUMERIC DATA WHERE APPLICABLE. 17C 18 COMMON /IBODY/ PBODY, BODY(400) 19 COMMON /IWING/ PWING, WING(400) 20 COMMON /IHT/ PHT, HT(380) 21 COMMON /IVT/ PVT, VT(380) 22 COMMON /IVF/ PVF, VF(380) 23 COMMON /IBW/ PBW, BW(380) 24 COMMON /IBH/ PBH, BH(380) 25 COMMON /IBV/ PBV, BV(380) 26 COMMON /IBWH/ PBWH, BWH(380) 27 COMMON /IBWV/ PBWV, BWV(380) 28 COMMON /IBWHV/ PBWHV, BWHV(380) 29 COMMON /IPOWER/ PPOWER 30 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 31 COMMON /CONSNT/ CONST(4) 32 COMMON /SUPDW/ DWA(237) 33 COMMON /FLGTCD/ FLC(160) 34 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K 35 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM 36 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 37 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 38 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 39 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 40 4 VFPL,VFSC,CTAB 41C 42 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 43 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 44 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 45 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 46 4 VFPL,VFSC,CTAB 47 LOGICAL PBODY,PWING,PHT,PVT,PVF,PBW,PBH,PBV,PBWH,PBWV,PBWHV 48 LOGICAL PWOP,PWP,GROUND,PPOWER,FLAG 49 EQUIVALENCE (DWA(237),JDETCH),(CONST(3),UNUSED) 50 EQUIVALENCE (WT,FLC(157)) 51 DIMENSION WTI(4) 52 DATA WTI / 4H LB., 4H LB., 4H N. , 4H N. / 53C 54 IF(PBODY)LAST=1 55 IF(PWING)LAST=2 56 IF(PHT)LAST=3 57 IF(PVT)LAST=4 58 IF(PVF)LAST=4 59 IF(PBW)LAST=5 60 IF(PBH)LAST=6 61 IF(PBV)LAST=7 62 IF(PBWH)LAST=8 63 IF(PBWV)LAST=9 64 IF(PBWHV)LAST=10 65 GROUND=.FALSE. 66 NALPHA=FLC(2) + 0.5 67 IF(FLC(63) .NE. UNUSED) GROUND = .TRUE. 68 IF(.NOT. SUPERS) JDETCH = NALPHA 69 IF(JDETCH .EQ. -1) JDETCH = NALPHA 70 IF(JDETCH .EQ. 0) JDETCH = 1 71C 72C ----- PRINT BODY DATA 73C 74 FLAG = PBODY .OR. (BUILD .AND. BO) 75 IF(.NOT. FLAG)GO TO 1000 76 PWOP=(LAST.EQ.1).AND.PPOWER.AND..NOT.BUILD 77 PWOP=.NOT.PWOP 78 PWP=PPOWER.AND.(LAST.EQ.1) 79 IF(PWOP)CALL HEADR(BODY,1,1,21,GROUND,.FALSE.,.FALSE.) 80 IF(PWP) CALL HEADR(BODY,1,1,21,GROUND,.TRUE.,.FALSE.) 81 IF(DAMP)CALL HEADR(BODY(201),1,2,21,.FALSE.,.FALSE.,.FALSE.) 82 1000 CONTINUE 83C 84C ----- PRINT WING DATA 85C 86 FLAG = PWING .OR. (BUILD .AND. WGPL) 87 IF(.NOT. FLAG)GO TO 1010 88 PWOP=(LAST.EQ.2).AND.PPOWER.AND..NOT.BUILD 89 PWOP=.NOT.PWOP 90 PWP=PPOWER.AND.(LAST.EQ.2) 91 IF(PWOP)CALL HEADR(WING,2,1,21,GROUND,.FALSE.,.FALSE.) 92 IF(PWP) CALL HEADR(WING,2,1,21,GROUND,.TRUE.,.FALSE.) 93 IF(DAMP)CALL HEADR(WING(201),2,2,21,.FALSE.,.FALSE.,.FALSE.) 94 1010 CONTINUE 95C 96C ----- PRINT HORIZONTAL TAIL DATA 97C 98 FLAG = PHT .OR. (BUILD .AND. HTPL) 99 IF(.NOT. FLAG)GO TO 1020 100 PWOP=(LAST.EQ.3).AND.PPOWER.AND..NOT.BUILD 101 PWOP=.NOT.PWOP 102 PWP=PPOWER.AND.(LAST.EQ.3) 103 IF(PWOP)CALL HEADR(HT,3,1,21,GROUND,.FALSE.,.FALSE.) 104 IF(PWP) CALL HEADR(HT,3,1,21,GROUND,.TRUE.,.FALSE.) 105 IF(DAMP)CALL HEADR(HT(201),3,2,21,.FALSE.,.FALSE.,.FALSE.) 106 1020 CONTINUE 107C 108C ----- PRINT VERTICAL TAIL DATA 109C 110 FLAG = PVT .OR. (BUILD .AND. VTPL) 111 IF(.NOT. FLAG)GO TO 1030 112 PWOP=(LAST.EQ.4).AND.PPOWER.AND..NOT.BUILD 113 PWOP=.NOT.PWOP 114 PWP=PPOWER.AND.(LAST.EQ.4) 115 IF(PWOP)CALL HEADR(VT,4,1,21,GROUND,.FALSE.,.TRUE.) 116 IF(PWP) CALL HEADR(VT,4,1,21,GROUND,.TRUE.,.FALSE.) 117 IF(DAMP)CALL HEADR(VT(201),4,2,21,.FALSE.,.FALSE.,.TRUE.) 118 1030 CONTINUE 119C 120C ----- PRINT VENTRAL FIN DATA 121C 122 FLAG = PVF .OR. (BUILD .AND. VFPL) 123 IF(.NOT. FLAG)GO TO 1040 124 PWOP=(LAST.EQ.4).AND.PPOWER.AND..NOT.BUILD 125 PWOP=.NOT.PWOP 126 PWP=PPOWER.AND.(LAST.EQ.4) 127 IF(PWOP)CALL HEADR(VF,11,1,21,GROUND,.FALSE.,.TRUE.) 128 IF(PWP) CALL HEADR(VF,11,1,21,GROUND,.TRUE.,.FALSE.) 129 IF(DAMP)CALL HEADR(VF(201),11,2,21,.FALSE.,.FALSE.,.TRUE.) 130 1040 CONTINUE 131C 132C ----- PRINT BODY-WING DATA 133C 134 FLAG = PBW .OR. (BUILD .AND. BO .AND. WGPL) 135 IF(.NOT. FLAG)GO TO 1050 136 PWOP=(LAST.EQ.5).AND.PPOWER.AND..NOT.BUILD 137 PWOP=.NOT.PWOP 138 PWP=PPOWER.AND.(LAST.EQ.5) 139 IF(PWOP)CALL HEADR(BW,5,1,21,GROUND,.FALSE.,.FALSE.) 140 IF(PWP) CALL HEADR(BW,5,1,21,GROUND,.TRUE.,.FALSE.) 141 IF(DAMP)CALL HEADR(BW(201),5,2,21,.FALSE.,.FALSE.,.FALSE.) 142 1050 CONTINUE 143C 144C ----- PRINT BODY-HORIZONTAL TAIL DATA 145C 146 FLAG = PBH .OR. (BUILD .AND. BO .AND. HTPL) 147 IF(.NOT. FLAG)GO TO 1060 148 PWOP=(LAST.EQ.6).AND.PPOWER.AND..NOT.BUILD 149 PWOP=.NOT.PWOP 150 PWP=PPOWER.AND.(LAST.EQ.6) 151 IF(PWOP)CALL HEADR(BH,6,1,21,GROUND,.FALSE.,.FALSE.) 152 IF(PWP) CALL HEADR(BH,6,1,21,GROUND,.TRUE.,.FALSE.) 153 IF(DAMP)CALL HEADR(BH(201),6,2,21,.FALSE.,.FALSE.,.FALSE.) 154 1060 CONTINUE 155C 156C ----- PRINT BODY-VERTICAL TAIL DATA 157C 158 FLAG = PBV .OR. (BUILD .AND. BO .AND. VTPL) 159 IF(.NOT. FLAG)GO TO 1070 160 PWOP=(LAST.EQ.7).AND.PPOWER.AND..NOT.BUILD 161 PWOP=.NOT.PWOP 162 PWP=PPOWER.AND.(LAST.EQ.7) 163 IF(PWOP)CALL HEADR(BV,7,1,21,GROUND,.FALSE.,.TRUE.) 164 IF(PWP) CALL HEADR(BV,7,1,21,GROUND,.TRUE.,.TRUE.) 165 IF(DAMP)CALL HEADR(BV(201),7,2,21,.FALSE.,.FALSE.,.TRUE.) 166 1070 CONTINUE 167C 168C ----- PRINT B-W-H DATA 169C 170 FLAG = PBWH .OR. (BUILD .AND. BO .AND. WGPL .AND. HTPL) 171 IF(.NOT. FLAG)GO TO 1080 172 PWOP=(LAST.EQ.8).AND.PPOWER.AND..NOT.BUILD 173 PWOP=.NOT.PWOP 174 PWP=PPOWER.AND.(LAST.EQ.8) 175 IF(PWOP)CALL HEADR(BWH,8,1,JDETCH,GROUND,.FALSE.,.FALSE.) 176 IF(PWP) CALL HEADR(BWH,8,1,JDETCH,GROUND,.TRUE.,.FALSE.) 177 IF(DAMP)CALL HEADR(BWH(201),8,2,JDETCH,.FALSE.,.FALSE.,.FALSE.) 178 1080 CONTINUE 179C 180C ----- PRINT B-W-V DATA 181C 182 FLAG = PBWV .OR. (BUILD .AND. BO .AND. WGPL .AND. VTPL) 183 IF(.NOT. FLAG)GO TO 1090 184 PWOP=(LAST.EQ.9).AND.PPOWER.AND..NOT.BUILD 185 PWOP=.NOT.PWOP 186 PWP=PPOWER.AND.(LAST.EQ.9) 187 IF(PWOP)CALL HEADR(BWV,9,1,21,GROUND,.FALSE.,.TRUE.) 188 IF(PWP) CALL HEADR(BWV,9,1,21,GROUND,.TRUE.,.TRUE.) 189 IF(DAMP)CALL HEADR(BWV(201),9,2,JDETCH,.FALSE.,.FALSE.,.TRUE.) 190 1090 CONTINUE 191C 192C ----- PRINT B-W-H-V DATA 193C 194 IF(.NOT.PBWHV)GO TO 1100 195 PWOP=(LAST.EQ.10).AND.PPOWER.AND..NOT.BUILD 196 PWOP=.NOT.PWOP 197 PWP=PPOWER.AND.(LAST.EQ.10) 198 IF(PWOP)CALL HEADR(BWHV,10,1,JDETCH,GROUND,.FALSE.,.TRUE.) 199 IF(PWP) CALL HEADR(BWHV,10,1,JDETCH,GROUND,.TRUE.,.TRUE.) 200 IF(DAMP)CALL HEADR(BWHV(201),10,2,JDETCH,.FALSE.,.FALSE.,.TRUE.) 201 1100 CONTINUE 202 IF((WT .EQ. UNUSED) .OR. (FLC(K+73) .EQ. UNUSED)) GO TO 1120 203 IF(IDIM.GT.2) WT=WT/0.2248089 204 Q = 0.7*FLC(K+73)*FLC(I+2)**2 205 CL = WT/(Q*SREF) 206 WRITE(6,1110) WT, WTI(IDIM), CL 207 1110 FORMAT(22H0*** VEHICLE WEIGHT = ,F9.2,A4/ 208 1 36H0*** LEVEL FLIGHT LIFT COEFFICIENT =,F8.5) 209 1120 CONTINUE 210 RETURN 211 END 212