1 | C |
---|
2 | C Indices to IO arrays with flags, logical units and file names |
---|
3 | C |
---|
4 | INTEGER ndx_ingbk, ndx_inkey, ndx_intbl |
---|
5 | INTEGER ndx_dbbin, ndx_dbgbk, ndx_dbkey, ndx_dbtbl |
---|
6 | INTEGER ndx_bpmat |
---|
7 | INTEGER ndx_outgbk, ndx_outkey, ndx_outsab, ndx_outtbl, |
---|
8 | - ndx_outhum, ndx_outrul, ndx_outsrv |
---|
9 | INTEGER ndx_log, ndx_err |
---|
10 | |
---|
11 | COMMON / NDX / ndx_ingbk, ndx_inkey, ndx_intbl, |
---|
12 | - ndx_dbbin, ndx_dbgbk, ndx_dbkey, ndx_dbtbl, |
---|
13 | - ndx_bpmat, |
---|
14 | - ndx_outgbk, ndx_outkey, ndx_outsab, ndx_outtbl, |
---|
15 | - ndx_outhum, ndx_outrul, ndx_outsrv, |
---|
16 | - ndx_log, ndx_err |
---|
17 | C |
---|
18 | C Arrays that store flags, logical units and file names, |
---|
19 | C |
---|
20 | LOGICAL IO_flags (ndx_max) |
---|
21 | COMMON / IO_FLAGS / IO_flags |
---|
22 | |
---|
23 | INTEGER IO_luns (ndx_max) |
---|
24 | COMMON / IO_LUNS / IO_luns |
---|
25 | |
---|
26 | CHARACTER*80 IO_fnms (ndx_max) |
---|
27 | COMMON / IO_FNMS / IO_fnms |
---|
28 | C |
---|
29 | C Options |
---|
30 | C |
---|
31 | INTEGER cl_templates |
---|
32 | REAL cl_completepct |
---|
33 | INTEGER cl_listwid |
---|
34 | INTEGER cl_olilen |
---|
35 | |
---|
36 | LOGICAL cl_completeflag, cl_tplflag, cl_outbinflag, |
---|
37 | - cl_dbgapsflag, cl_t2uflag, cl_u2tflag, |
---|
38 | - cl_upcaseflag, cl_locaseflag, cl_debugflag, |
---|
39 | - cl_htmlflag |
---|
40 | C |
---|
41 | C Common block for command line options, |
---|
42 | C |
---|
43 | COMMON / IO_OPTS / |
---|
44 | - cl_templates, cl_completepct, cl_listwid, cl_olilen, |
---|
45 | - cl_completeflag, cl_tplflag, cl_outbinflag, |
---|
46 | - cl_dbgapsflag, cl_t2uflag, cl_u2tflag, |
---|
47 | - cl_upcaseflag, cl_locaseflag, cl_debugflag, |
---|
48 | - cl_htmlflag |
---|
49 | |
---|
50 | |
---|
51 | |
---|
52 | C |
---|
53 | C New unaligned sequences and names |
---|
54 | C |
---|
55 | C CHARACTER*80 IO_fnms(ndx_ingbk), IO_fnms(ndx_inkey), IO_fnms(ndx_intbl) |
---|
56 | C INTEGER IO_luns(ndx_ingbk), IO_luns(ndx_inkey), IO_luns(ndx_intbl) |
---|
57 | C LOGICAL IO_flags(ndx_ingbk), IO_flags(ndx_inkey), IO_flags(ndx_intbl) |
---|
58 | CC |
---|
59 | CC Database of aligned sequences |
---|
60 | CC |
---|
61 | C CHARACTER*80 IO_fnms(ndx_dbgbk), cl_dbkeyfnm, cl_dbtblfnm, IO_fnms(ndx_dbbin) |
---|
62 | C INTEGER IO_luns(ndx_dbgbk), cl_dbkeylun, cl_dbtbllun, IO_luns(ndx_dbbin) |
---|
63 | C LOGICAL IO_flags(ndx_dbgbk), cl_dbkeyflag, cl_dbtblflag, IO_flags(ndx_dbbin) |
---|
64 | CC |
---|
65 | CC Matrices |
---|
66 | CC |
---|
67 | C CHARACTER*80 IO_fnms(ndx_bpmat) |
---|
68 | C INTEGER IO_luns(ndx_bpmat) |
---|
69 | C LOGICAL IO_flags(ndx_bpmat) |
---|
70 | CC |
---|
71 | CC |
---|
72 | CC Output of aligned sequences and names |
---|
73 | CC |
---|
74 | C CHARACTER*80 IO_fnms(ndx_outgbk), cl_outkeyfnm, cl_outrulfnm, |
---|
75 | C - cl_outtblfnm, cl_outhumfnm, cl_outsabfnm |
---|
76 | C INTEGER IO_luns(ndx_outgbk), IO_luns(ndx_outkey), IO_luns(ndx_outrul), |
---|
77 | C - IO_luns(ndx_outtbl), cl_outhumlun, IO_luns(ndx_outsab) |
---|
78 | C LOGICAL IO_flags(ndx_outgbk), IO_flags(ndx_outkey), IO_flags(ndx_outrul), |
---|
79 | C - IO_flags(ndx_outtbl), cl_outhumflag, cl_outsabflag |
---|
80 | CC |
---|
81 | CC Log and error messages |
---|
82 | CC |
---|
83 | C CHARACTER*80 IO_fnms(ndx_err), IO_fnms(ndx_log) |
---|
84 | C INTEGER IO_luns(ndx_err), IO_luns(ndx_log) |
---|
85 | C INTEGER IO_flags(ndx_err), IO_flags(ndx_log) |
---|
86 | CC |
---|
87 | CC Options |
---|
88 | CC |
---|
89 | C INTEGER cl_templates |
---|
90 | C REAL cl_completepct |
---|
91 | C INTEGER cl_listwid |
---|
92 | C INTEGER cl_olilen |
---|
93 | C |
---|
94 | C LOGICAL cl_completeflag, cl_tplflag, IO_flags(ndx_outbin), |
---|
95 | C - cl_dbgapsflag, cl_t2uflag, cl_u2tflag, |
---|
96 | C - cl_upcaseflag, cl_locaseflag, cl_debugflag |
---|
97 | CC |
---|
98 | CC Common block for everything that relates to command line |
---|
99 | CC |
---|
100 | C COMMON / IO / |
---|
101 | C - IO_fnms(ndx_ingbk), IO_fnms(ndx_inkey), IO_fnms(ndx_intbl), |
---|
102 | C - IO_luns(ndx_ingbk), IO_luns(ndx_inkey), IO_luns(ndx_intbl), |
---|
103 | C - IO_flags(ndx_ingbk), IO_flags(ndx_inkey), IO_flags(ndx_intbl), |
---|
104 | C - IO_fnms(ndx_dbgbk), cl_dbkeyfnm, cl_dbtblfnm, IO_fnms(ndx_dbbin), |
---|
105 | C - IO_luns(ndx_dbgbk), cl_dbkeylun, cl_dbtbllun, IO_luns(ndx_dbbin), |
---|
106 | C - IO_flags(ndx_dbgbk), cl_dbkeyflag, cl_dbtblflag, IO_flags(ndx_dbbin), |
---|
107 | C - IO_fnms(ndx_bpmat), IO_luns(ndx_bpmat), IO_flags(ndx_bpmat), |
---|
108 | C - IO_fnms(ndx_outgbk), cl_outkeyfnm, cl_outrulfnm, |
---|
109 | C - cl_outtblfnm, cl_outhumfnm, cl_outsabfnm, |
---|
110 | C - IO_luns(ndx_outgbk), IO_luns(ndx_outkey), IO_luns(ndx_outrul), |
---|
111 | C - IO_luns(ndx_outtbl), cl_outhumlun, IO_luns(ndx_outsab), |
---|
112 | C - IO_flags(ndx_outgbk), IO_flags(ndx_outkey), IO_flags(ndx_outrul), |
---|
113 | C - IO_flags(ndx_outtbl), cl_outhumflag, cl_outsabflag, |
---|
114 | C - IO_fnms(ndx_err), IO_fnms(ndx_log), |
---|
115 | C - IO_luns(ndx_err), IO_luns(ndx_log), |
---|
116 | C - IO_flags(ndx_err), IO_flags(ndx_log), |
---|
117 | C - cl_templates, cl_completepct, cl_listwid, cl_olilen, |
---|
118 | C - cl_completeflag, cl_tplflag, IO_flags(ndx_outbin), |
---|
119 | C - cl_dbgapsflag, cl_t2uflag, cl_u2tflag, |
---|
120 | C - cl_upcaseflag, cl_locaseflag, cl_debugflag |
---|
121 | C |
---|