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