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