1 SUBROUTINE M01O01 2C 3C*** EXEC FOR OVERLAY 1, INITIALIZE PROGRAM AND PROCESS INPUTS 4C 5 external blockd 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 7 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 8 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 9 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 10 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 11 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 12 4 VFPL,VFSC,CTAB 13 COMMON /ERROR/ IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 14 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 15 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 16 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 17 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 18 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 19 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 20 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 21 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 22 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 23 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 24 COMMON /EXPER/ KLIST,NLIST(100),NN(2),FLAG(9),ALP(4) 25C 26 LOGICAL LEQV(65),LOGCOM(34),FLAG 27 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 28 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 29 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 30 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 31 4 VFPL,VFSC,CTAB 32 LOGICAL IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 33 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 34 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 35 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 36 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 37 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 38 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 39 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 40 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 41 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 42 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 43C 44 EQUIVALENCE (LOGCOM(1),FLTC) 45 EQUIVALENCE (LEQV(1),IERR) 46C 47 NOVLY=1 48C 49C*** TEST FOR VALID INPUT ON THE FIRST ENTRY - CONERR 50C 51 IF(.NOT. FIRST) GO TO 1010 52 FIRST = .FALSE. 53 DRCONV = .FALSE. 54 CALL CONERR 55 1010 CONTINUE 56C 57C*** INITIALIZE INPUTS AND DATA ARRAYS 58C 59 CALL INITZE 60 HEAD = .FALSE. 61 IERR = .FALSE. 62 DO 1020 L=1,NLOG 63 IF(L .EQ. 29) GO TO 1020 64 LOGCOM(L) = .FALSE. 65 1020 CONTINUE 66 IF(SAVE) GO TO 1040 67 REWIND 8 68 KLIST = 0 69 DO 1030 L=1,100 70 IF(L .LE. 9) FLAG(L) = .FALSE. 71 IF(L .LE. 4) ALP(L) = UNUSED 72 1030 NLIST(L) = 0 73 1040 CONTINUE 74C 75C*** READ AND WRITE INPUTS 76C 77 CALL INPUT 78 IF(.NOT. GONOGO) GO TO 1010 79C 80C*** TEST INPUTS 81C 82 CALL CHECK 83 IF(IERR) GO TO 1010 84 RETURN 85 END 86