1 SUBROUTINE WPLOT 2C 3C *** WRITES DATA TO UNIT 13 FOR DIGITAL DATCOM PLOT OPTION 4C *** WRITES DATA TO UNIT 14 FOR MISSILE DATCOM PLOT OPTION 5C 6 COMMON /IBODY/ PBODY, BODY(400) 7 COMMON /IWING/ PWING, WING(400) 8 COMMON /IHT/ PHT, HT(380) 9 COMMON /IVT/ PVT, VT(380) 10 COMMON /IVF/ PVF, VF(380) 11 COMMON /IBW/ PBW, BW(380) 12 COMMON /IBH/ PBH, BH(380) 13 COMMON /IBV/ PBV, BV(380) 14 COMMON /IBWH/ PBWH, BWH(380) 15 COMMON /IBWV/ PBWV, BWV(380) 16 COMMON /IBWHV/ PBWHV, BWHV(380) 17 COMMON /IDWASH/ PDWASH, DWASH(60) 18C 19 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100),IDIM 20 COMMON /FLGTCD/ FLC(160) 21 COMMON /OPTION/ OPT(4), IRUN 22 COMMON /SYNTSS/ SYNA(19) 23 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY 24 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 25 COMMON /BDATA/ BD(762) 26 COMMON /WHWB/ FACT(182), WB(39), HB(39) 27 COMMON /WBHCAL/ WBT(156) 28 COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55), DVF(55) 29 COMMON /SUPWBB/ SWB(61), SHB(61) 30 COMMON /SUPWH/ SLG(141), STG(141) 31 COMMON /SUPBOD/ SBD(229) 32C 33 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 34 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 35 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 36 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 37 4 VFPL,VFSC,CTAB,PLOT 38C 39 DIMENSION STP(156), CDO(11), LOG(34) 40 DIMENSION DIM(4) 41C 42 EQUIVALENCE (STP(1),WBT(1)), (LOG(1),FLTC) 43C 44 LOGICAL FLAG, LOG 45 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 46 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 47 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 48 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 49 4 VFPL,VFSC,CTAB,PLOT 50 LOGICAL PBODY, PWING, PHT, PVT, PVF, PBW, PBH, PBV, PBWH, PBWV, 51 1 PBWHV, PPOWER, PDWASH 52C 53 DATA DIM / 1HF, 1HI, 1HM, 1HC / 54C 55C*** WRITE DATA FOR DIGITAL DATCOM PLOT MODULE 56C 57 FLAG = (I .EQ. 1) .AND. (K .EQ. 1) 58 IF(.NOT. FLAG) GO TO 1010 59 WRITE(13,1270) SYNA 60 WRITE(13,1270) OPT 61 WRITE(13,1280) LOG 62 1010 CONTINUE 63 WRITE(13,1270) (BODY(J),J=1,200) 64 WRITE(13,1270) (WING(J),J=1,200) 65 WRITE(13,1270) (HT(J),J=1,200) 66 WRITE(13,1270) (VT(J),J=1,200) 67 WRITE(13,1270) (VF(J),J=1,200) 68 WRITE(13,1270) (BW(J),J=1,200) 69 WRITE(13,1270) (BH(J),J=1,200) 70 WRITE(13,1270) (BV(J),J=1,200) 71 WRITE(13,1270) (BWH(J),J=1,200) 72 WRITE(13,1270) (BWV(J),J=1,200) 73 WRITE(13,1270) (BWHV(J),J=1,200) 74 WRITE(13,1270) (DWASH(J),J=1,60) 75 WRITE(13,1270) (FACT(J),J=102,141) 76C 77 CDO(4) = VT(1) 78 CDO(5) = VF(1) 79 IF(.NOT. SUBSON) GO TO 1020 80 CDO(1) = BD(10) 81 CDO(2) = D(20) 82 CDO(3) = DHT(20) 83 CDO(6) = WB(6) 84 CDO(7) = HB(6) 85 CDO(8) = BD(10)+VT(1)+VF(1) 86 CDO(9) = WBT(67)-WBT(66) 87 CDO(10) = WB(6)+VT(1)+VF(1) 88 CDO(11) = WBT(67) 89 1020 CONTINUE 90 IF(.NOT. TRANSN) GO TO 1030 91 CDO(1) = TRA(78) 92 CDO(2) = TRA(67)+TRA(68) 93 CDO(3) = TRAH(108) 94 CDO(6) = TRA(73) 95 CDO(7) = TRAH(73) 96 CDO(8) = TRA(78)+VT(1)+VF(1) 97 CDO(9) = TRA(75)-VF(1)-VT(1) 98 CDO(10) = TRA(73)+VT(1)+VF(1) 99 CDO(11) = TRA(75) 100 1030 CONTINUE 101 IF(.NOT. SUPERS) GO TO 1040 102 CDO(1) = SBD(124) 103 CDO(2) = SLG(80) 104 CDO(3) = STG(80) 105 CDO(6) = SWB(4) 106 CDO(7) = SHB(4) 107 CDO(8) = SBD(124)+VT(1)+VF(1) 108 CDO(9) = STP(154) 109 CDO(10) = SWB(4)+VT(1)+VF(1) 110 CDO(11) = STP(155) 111 1040 CONTINUE 112 WRITE(13,1270) CDO 113C 114C*** WRITE DATA FOR MISSILE DATCOM PLOT MODULE 115C 116 IF(.NOT. PBODY) GO TO 1060 117 IRUN = IRUN+1 118 WRITE(14,1290) IRUN, NALPHA, DIM(IDIM) 119 WRITE(14,1300) FLC(I+2), FLC(I+42) 120 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 121 DO 1050 J=1,NALPHA 122 WRITE(14,1310) FLC(J+22), BODY(J+60), BODY(J+40), BODY(J+80), 123 1 BODY(J+140), BODY(J+160), BODY(J+180) 124 1050 CONTINUE 125 WRITE(14,1320) 126 1060 CONTINUE 127C 128 IF(.NOT. PWING) GO TO 1080 129 IRUN = IRUN+1 130 WRITE(14,1330) IRUN, NALPHA, DIM(IDIM) 131 WRITE(14,1300) FLC(I+2), FLC(I+42) 132 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 133 DO 1070 J=1,NALPHA 134 WRITE(14,1310) FLC(J+22), WING(J+60), WING(J+40), WING(J+80), 135 1 WING(J+140), WING(J+160), WING(J+180) 136 1070 CONTINUE 137 WRITE(14,1320) 138 1080 CONTINUE 139C 140 IF(.NOT. PHT) GO TO 1100 141 IRUN = IRUN+1 142 WRITE(14,1340) IRUN, NALPHA, DIM(IDIM) 143 WRITE(14,1300) FLC(I+2), FLC(I+42) 144 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 145 DO 1090 J=1,NALPHA 146 WRITE(14,1310) FLC(J+22), HT(J+60), HT(J+40), HT(J+80), 147 1 HT(J+140), HT(J+160), HT(J+180) 148 1090 CONTINUE 149 WRITE(14,1320) 150 1100 CONTINUE 151C 152 IF(.NOT. PVT) GO TO 1120 153 IRUN = IRUN+1 154 WRITE(14,1350) IRUN, NALPHA, DIM(IDIM) 155 WRITE(14,1300) FLC(I+2), FLC(I+42) 156 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 157 DO 1110 J=1,NALPHA 158 WRITE(14,1310) FLC(J+22), VT(J+60), VT(J+40), VT(J+80), 159 1 VT(J+140), VT(J+160), VT(J+180) 160 1110 CONTINUE 161 WRITE(14,1320) 162 1120 CONTINUE 163C 164 IF(.NOT. PVF) GO TO 1140 165 IRUN = IRUN+1 166 WRITE(14,1360) IRUN, NALPHA, DIM(IDIM) 167 WRITE(14,1300) FLC(I+2), FLC(I+42) 168 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 169 DO 1130 J=1,NALPHA 170 WRITE(14,1310) FLC(J+22), VF(J+60), VF(J+40), VF(J+80), 171 1 VF(J+140), VF(J+160), VF(J+180) 172 1130 CONTINUE 173 WRITE(14,1320) 174 1140 CONTINUE 175C 176 IF(.NOT. PBW) GO TO 1160 177 IRUN = IRUN+1 178 WRITE(14,1370) IRUN, NALPHA, DIM(IDIM) 179 WRITE(14,1300) FLC(I+2), FLC(I+42) 180 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 181 DO 1150 J=1,NALPHA 182 WRITE(14,1310) FLC(J+22), BW(J+60), BW(J+40), BW(J+80), 183 1 BW(J+140), BW(J+160), BW(J+180) 184 1150 CONTINUE 185 WRITE(14,1320) 186 1160 CONTINUE 187C 188 IF(.NOT. PBH) GO TO 1180 189 IRUN = IRUN+1 190 WRITE(14,1380) IRUN, NALPHA, DIM(IDIM) 191 WRITE(14,1300) FLC(I+2), FLC(I+42) 192 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 193 DO 1170 J=1,NALPHA 194 WRITE(14,1310) FLC(J+22), BH(J+60), BH(J+40), BH(J+80), 195 1 BH(J+140), BH(J+160), BH(J+180) 196 1170 CONTINUE 197 WRITE(14,1320) 198 1180 CONTINUE 199C 200 IF(.NOT. PBV) GO TO 1200 201 IRUN = IRUN+1 202 WRITE(14,1390) IRUN, NALPHA, DIM(IDIM) 203 WRITE(14,1300) FLC(I+2), FLC(I+42) 204 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 205 DO 1190 J=1,NALPHA 206 WRITE(14,1310) FLC(J+22), BV(J+60), BV(J+40), BV(J+80), 207 1 BV(J+140), BV(J+160), BV(J+180) 208 1190 CONTINUE 209 WRITE(14,1320) 210 1200 CONTINUE 211C 212 IF(.NOT. PBWH) GO TO 1220 213 IRUN = IRUN+1 214 WRITE(14,1400) IRUN, NALPHA, DIM(IDIM) 215 WRITE(14,1300) FLC(I+2), FLC(I+42) 216 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 217 DO 1210 J=1,NALPHA 218 WRITE(14,1310) FLC(J+22), BWH(J+60), BWH(J+40), BWH(J+80), 219 1 BWH(J+140), BWH(J+160), BWH(J+180) 220 1210 CONTINUE 221 WRITE(14,1320) 222 1220 CONTINUE 223C 224 IF(.NOT. PBWV) GO TO 1240 225 IRUN = IRUN+1 226 WRITE(14,1410) IRUN, NALPHA, DIM(IDIM) 227 WRITE(14,1300) FLC(I+2), FLC(I+42) 228 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 229 DO 1230 J=1,NALPHA 230 WRITE(14,1310) FLC(J+22), BWV(J+60), BWV(J+40), BWV(J+80), 231 1 BWV(J+140), BWV(J+160), BWV(J+180) 232 1230 CONTINUE 233 WRITE(14,1320) 234 1240 CONTINUE 235C 236 IF(.NOT. PBWHV) GO TO 1260 237 IRUN = IRUN+1 238 WRITE(14,1420) IRUN, NALPHA, DIM(IDIM) 239 WRITE(14,1300) FLC(I+2), FLC(I+42) 240 WRITE(14,1310) OPT(1), OPT(2), OPT(4), SYNA(1), YCG, SYNA(4) 241 DO 1250 J=1,NALPHA 242 WRITE(14,1310) FLC(J+22), BWHV(J+60), BWHV(J+40), BWHV(J+80), 243 1 BWHV(J+140), BWHV(J+160), BWHV(J+180) 244 1250 CONTINUE 245 WRITE(14,1320) 246 1260 CONTINUE 247C 248 1270 FORMAT(1P10E12.4) 249 1280 FORMAT(34L3) 250 1290 FORMAT(4HRUN ,2I3,2X,A1,' BODY ALONE') 251 1300 FORMAT(F10.5,F10.0) 252 1310 FORMAT(7F10.5) 253 1320 FORMAT(1HR) 254 1330 FORMAT(4HRUN ,2I3,2X,A1,1X,10HWING ALONE) 255 1340 FORMAT(4HRUN ,2I3,2X,A1,1X,8HHT ALONE) 256 1350 FORMAT(4HRUN ,2I3,2X,A1,1X,8HVT ALONE) 257 1360 FORMAT(4HRUN ,2I3,2X,A1,1X,8HVF ALONE) 258 1370 FORMAT(4HRUN ,2I3,2X,A1,1X,9HBODY-WING) 259 1380 FORMAT(4HRUN ,2I3,2X,A1,1X,7HBODY-HT) 260 1390 FORMAT(4HRUN ,2I3,2X,A1,1X,10HBODY-VT-VF) 261 1400 FORMAT(4HRUN ,2I3,2X,A1,1X,12HBODY-WING-HT) 262 1410 FORMAT(4HRUN ,2I3,2X,A1,1X,15HBODY-WING-VT-VF) 263 1420 FORMAT(4HRUN ,2I3,2X,A1,1X,18HBODY-WING-HT-VT-VF) 264C 265 RETURN 266 END 267