1 SUBROUTINE MAJERR 2C 3C ----TESTS FOR MISSING ESSENTIAL NAMELISTS 4C 5 COMMON /FLAPIN/ F(138) 6 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 7 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 8 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 9 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 10 4 VFPL,VFSC,CTAB 11 COMMON /ERROR/ IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 12 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 13 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 14 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 15 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 16 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 17 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 18 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 19 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 20 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 21 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 22C 23 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 24 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 25 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 26 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 27 4 VFPL,VFSC,CTAB 28 LOGICAL IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 29 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 30 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 31 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 32 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 33 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 34 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 35 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 36 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 37 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 38 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 39 LOGICAL LOGCOM(10) 40 EQUIVALENCE (LOGCOM(1),FLTC) 41C 42C ----TEST FOR FLIGHT CONDITIONS IF ABSENT CANNOT RUN. 43C 44 IF(FLTC) GO TO 1010 45 WRITE(6,1000) 46 1000 FORMAT(57H0ERROR-FLIGHT CONDITIONS NOT PRESENT-MISSING NAME*FLTCON 47 1* ) 48 IERR=.TRUE. 49C 50C ----TEST FOR SYNTHESIS QUANTITIES.IF ABSENT NO RUN. 51C 52 1010 IF(SYNT) GO TO 1030 53 WRITE(6,1020) 54 1020 FORMAT(50H0ERROR-SYNTHESIS DATA MISSING-MISSING NAME*SYNTHS* ) 55 IERR=.TRUE. 56C 57C ----TEST FOR WING 58C 59 1030 IF(WGPL.AND.WGSC) GO TO 1070 60C 61C ----TEST FOR PLANFORM OR SECTION CHARACTERISTICS PRESENT. 62C 63 IF(WGPL.OR.WGSC) GO TO 1040 64 GO TO 1070 65C 66C ----HERE FOR PART OF WING DATA MISSING. 67C 68 1040 IF(WGPL) WRITE(6,1050) 69 1050 FORMAT(84H0ERROR-WING PLANFORM PRESENT BUT SECTION CHARACTERISTICS 70 1 ABSENT-MISSING NAME*WGSCHR* ) 71 IF(WGSC) WRITE(6,1060) 72 1060 FORMAT(84H0ERROR-WING SECTION CHARACTERISTICS PRESENT BUT PLANFORM 73 1 ABSENT-MISSING NAME*WGPLNF* ) 74 IERR=.TRUE. 75C 76C ----TEST FOR HORIZONTAL TAIL. 77C 78 1070 IF(HTSC.AND.HTPL)GO TO 1110 79 IF(HTSC.OR.HTPL)GO TO 1080 80 GO TO 1110 81C 82C ----TEST FOR 83C 84 1080 IF(HTSC) WRITE(6,1090) 85 1090 FORMAT(61H0MISSING PLANFORM FOR HORIZONTAL TAIL-MISSING NAME IS*HT 86 1PLNF* ) 87 IF(HTPL) WRITE(6,1100) 88 1100 FORMAT(68H0MISSING SECTION CHARACTERISTICS FOR HORIZONTAL TAIL-NAM 89 1E IS*HTSCHR* ) 90 IERR=.TRUE. 91C 92C ----HAVE HORIZONTAL TAIL-TEST FOR WING AND BODY 93C 94 1110 IF(.NOT.VTSC)GO TO 1130 95 IF(VTPL) GO TO 1130 96 WRITE(6,1120) 97 1120 FORMAT(80H0ERROR-MUST HAVE VERTICAL TAIL PLANFORM WHEN V.T.PRESENT 98 1-MISSING NAME IS*VTPLNF* ) 99 IERR=.TRUE. 100 1130 IF(IERR) WRITE(6,1140) 101 1140 FORMAT(42H0THIS CASE ABORTED FOR THE ABOVE REASON(S) / 102 1 34H ALL NAMES REFER TO NAMELIST NAMES ) 103C 104 IF(.NOT. CTAB) GO TO 1160 105 ITYPE = F(17)+0.5 106 IF(SYMFP .AND. (ITYPE .EQ. 1)) GO TO 1160 107 CTAB = .FALSE. 108 WRITE(6,1150) 109 1150 FORMAT(45H0 ERROR - MUST HAVE PLAIN TRAILING EDGE FLAP , 110 1 27HWHEN CONTROL TABS ARE INPUT,/ 111 2 9X,40H CONTROL TAB DATA WILL NOT BE CALCULATED/) 112 1160 CONTINUE 113 RETURN 114 END 115