1 SUBROUTINE DUMP2 2 COMMON /FLAPIN/ F(138) 3 COMMON /POWR/ SPR(59),FLA(45),FLP(189),TRM(22) 4 COMMON /SUPDW/ FHG(35),TCD(58) 5 COMMON /SUPWH/ FCM(287) 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 /IBW/ PBW,BW(380) 11 COMMON /IBH/ PBH,BH(380) 12 COMMON /IBV/ PBV,BV(380) 13 COMMON /IBWH/ PBWH,BWH(380) 14 COMMON /IBWV/ PBWV,BWV(380) 15 COMMON /IBWHV/ PBWHV,BWHV(380) 16C 17 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 18 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 19 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 20 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 21 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 22 4 VFPL,VFSC,CTAB 23 COMMON /ERROR/ IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 24 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 25 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 26 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 27 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 28 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 29 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 30 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 31 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 32 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 33 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 34C 35 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 36 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 37 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 38 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 39 4 VFPL,VFSC,CTAB 40 LOGICAL IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 41 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 42 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 43 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 44 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 45 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 46 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 47 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 48 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 49 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 50 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 51 LOGICAL DPBO,DPWG,DPHT,DPVT,DPBW,DPBH,DPBV,DPBWH,DPBWHV 52C 53 DIMENSION TRM2(22),TRN(7) 54 EQUIVALENCE (TRM(1),TRM2(1),TRN(1)) 55 LOGICAL DUM(9) 56 EQUIVALENCE (DUM(1),DPBO),(DUM(2),DPWG),(DUM(3),DPHT), 57 1(DUM(4),DPVT),(DUM(5),DPBW),(DUM(6),DPBH),(DUM(7),DPBV), 58 2(DUM(8),DPBWH),(DUM(9),DPBWHV) 59 DO 1000 I=1,9 60 DUM(I)=.FALSE. 61 1000 CONTINUE 62C 63 IF(.NOT. DMPCSE) GO TO 1010 64 DPF = .TRUE. 65 DPFLP = DPFLP .OR. ((SUBSON .OR. TRANSN) .AND. SYMFP) 66 DPFHG = DPFHG .OR. (SUBSON .AND. (F(17) .EQ. 1.0)) 67 DPFCM = DPFCM .OR. (SUBSON .AND. SYMFP) 68 DPTCD = DPTCD .OR. (SUBSON .AND. (F(17) .LE. 6.0 .AND. 69 1 F(17) .NE. UNUSED)) .OR. 70 2 (.NOT. SUPERS .AND. (F(18) .EQ. 5.0)) 71 DPFLA = DPFLA .OR. ((SUBSON .OR. TRANSN) .AND. ASYFP) 72 DPTRM = DPTRM .OR. (TRIM .AND. SYMFP .AND. SUBSON) 73 DPSPR = DPSPR .OR. (SUPERS .OR. HYPERS) 74 DPTRN = DPTRN .OR. TRANSN 75 DPTRM2 = DPTRM2 .OR. (SUBSON .AND. TRIM .AND. HTPL .AND. 76 1 .NOT. (SYMFP .OR. ASYFP)) 77 DPBO = SUBSON .OR. (TRANSN .AND. ASYFP) .OR. 78 1 (SUPERS .AND. F(18) .EQ. 4.0) 79 DPWG = SUBSON .OR. TRANSN .OR. ((SUPERS .OR. HYPERS) 80 1 .AND. (SYMFP .OR. F(18) .EQ. 5.0)) 81 DPHT = (TRIM .AND. SUBSON) .OR. ASYFP 82 DPVT = (TRIM .AND. SUBSON) 83 DPBW = CTAB 84 DPBH = CTAB 85 DPBV = CTAB 86 DPBWH = CTAB 87 DPBWHV = CTAB 88 1010 CONTINUE 89 IF(DPF) CALL DMPARY(F,138,1HF,1) 90 IF(DPFCM) CALL DMPARY(FCM,287,3HFCM,3) 91 IF(DPFHG) CALL DMPARY(FHG,35,3HFHG,3) 92 IF(DPFLA) CALL DMPARY(FLA,45,3HFLA,3) 93 IF(DPFLP) CALL DMPARY(FLP,189,3HFLP,3) 94 IF(DPSPR) CALL DMPARY(SPR,59,3HSPR,3) 95 IF(DPTCD) CALL DMPARY(TCD,58,3HTCD,3) 96 IF(DPTRM) CALL DMPARY(TRM,22,3HTRM,3) 97 IF(DPTRM2) CALL DMPARY(TRM2,22,4HTRM2,4) 98 IF(DPTRN) CALL DMPARY(TRN,7,3HTRN,3) 99C 100 IF(DPBO .OR. DPWG .OR. DPHT .OR. DPVT .OR. DPBW .OR. 101 1 DPBH .OR. DPBV .OR. DPBWH .OR. DPBWHV) WRITE(6,1020) 102C 103 IF(DPBO) CALL DMPARY(BODY(201),200,4HBODY,4) 104 IF(DPWG) CALL DMPARY(WING(201),200,4HWING,4) 105 IF(DPHT) CALL DMPARY(HT(201) ,180,2HHT ,2) 106 IF(DPVT) CALL DMPARY(VT(201) ,180,2HVT ,2) 107 IF(DPBW) CALL DMPARY(BW(201) ,180,2HBW ,2) 108 IF(DPBH) CALL DMPARY(BH(201) ,180,2HBH ,2) 109 IF(DPBV) CALL DMPARY(BV(201) ,180,2HBV ,2) 110 IF(DPBWH) CALL DMPARY(BWH(201) ,180,3HBWH ,3) 111 IF(DPBWHV) CALL DMPARY(BWHV(201),180,4HBWHV,4) 112 RETURN 113 1020 FORMAT(55H0**** THE FOLLOWING ARE IDEAL OUTPUT MATRIX ARRAYS ****) 114 END 115