| 1 | C |
|---|
| 2 | C Initialize indices into the arrays that store flags, logical units |
|---|
| 3 | C and file names, |
|---|
| 4 | C |
|---|
| 5 | ndx_ingbk = 1 |
|---|
| 6 | ndx_inkey = 2 |
|---|
| 7 | ndx_intbl = 3 |
|---|
| 8 | ndx_dbbin = 4 |
|---|
| 9 | ndx_dbgbk = 5 |
|---|
| 10 | ndx_bpmat = 6 |
|---|
| 11 | ndx_outgbk = 7 |
|---|
| 12 | ndx_outkey = 8 |
|---|
| 13 | ndx_outsab = 9 |
|---|
| 14 | ndx_outtbl = 10 |
|---|
| 15 | ndx_outhum = 11 |
|---|
| 16 | ndx_outrul = 12 |
|---|
| 17 | ndx_outsrv = 15 |
|---|
| 18 | ndx_log = 13 |
|---|
| 19 | ndx_err = 14 |
|---|
| 20 | C |
|---|
| 21 | C Initialize flags and default values, |
|---|
| 22 | C |
|---|
| 23 | cl_dbgapsflag = .TRUE. |
|---|
| 24 | cl_t2uflag = .FALSE. |
|---|
| 25 | cl_u2tflag = .FALSE. |
|---|
| 26 | cl_upcaseflag = .FALSE. |
|---|
| 27 | cl_locaseflag = .FALSE. |
|---|
| 28 | cl_completeflag = .FALSE. |
|---|
| 29 | cl_tplflag = .FALSE. |
|---|
| 30 | cl_debugflag = .FALSE. |
|---|
| 31 | |
|---|
| 32 | cl_listwid = 60 |
|---|
| 33 | cl_completepct = 90.0 |
|---|
| 34 | cl_olilen = 7 |
|---|
| 35 | cl_templates = 0 |
|---|
| 36 | |
|---|
| 37 | C IO_fnms(ndx_dbgbk) = ' ' |
|---|
| 38 | C IO_fnms(ndx_dbbin) = ' ' |
|---|
| 39 | C IO_fnms(ndx_outgbk) = ' ' |
|---|
| 40 | C IO_fnms(ndx_err) = ' ' |
|---|
| 41 | C IO_fnms(ndx_ingbk) = ' ' |
|---|
| 42 | C IO_fnms(ndx_log) = ' ' |
|---|
| 43 | C IO_fnms(ndx_bpmat) = ' ' |
|---|
| 44 | CC |
|---|
| 45 | CC Its of course not a good idea to permanently assign logical unit |
|---|
| 46 | CC numbers; they should be assigned as needed by a function. |
|---|
| 47 | CC |
|---|
| 48 | C IO_luns(ndx_ingbk) = 2 |
|---|
| 49 | C IO_luns(ndx_inkey) = 10 |
|---|
| 50 | C IO_luns(ndx_intbl) = 11 |
|---|
| 51 | C IO_luns(ndx_dbbin) = 3 |
|---|
| 52 | C IO_luns(ndx_dbgbk) = 1 |
|---|
| 53 | C IO_luns(ndx_bpmat) = 8 |
|---|
| 54 | C IO_luns(ndx_outgbk) = 7 |
|---|
| 55 | C IO_luns(ndx_outkey) = 12 |
|---|
| 56 | C IO_luns(ndx_outsab) = 16 |
|---|
| 57 | C IO_luns(ndx_outtbl) = 13 |
|---|
| 58 | C IO_luns(ndx_outhum) = 14 |
|---|
| 59 | C IO_luns(ndx_outrul) = 15 |
|---|
| 60 | C IO_luns(ndx_log) = 4 |
|---|
| 61 | C IO_luns(ndx_err) = 9 |
|---|
| 62 | C |
|---|
| 63 | C IO_flags(ndx_ingbk) = .FALSE. |
|---|
| 64 | C IO_flags(ndx_inkey) = .FALSE. |
|---|
| 65 | C IO_flags(ndx_intbl) = .FALSE. |
|---|
| 66 | C IO_flags(ndx_dbbin) = .FALSE. |
|---|
| 67 | C IO_flags(ndx_dbgbk) = .FALSE. |
|---|
| 68 | C IO_flags(ndx_bpmat) = .FALSE. |
|---|
| 69 | C IO_flags(ndx_outgbk) = .FALSE. |
|---|
| 70 | C IO_flags(ndx_outkey) = .FALSE. |
|---|
| 71 | C IO_flags(ndx_outtbl) = .FALSE. |
|---|
| 72 | C IO_flags(ndx_outhum) = .FALSE. |
|---|
| 73 | C IO_flags(ndx_outrul) = .FALSE. |
|---|
| 74 | C IO_flags(ndx_outbin) = .TRUE. |
|---|
| 75 | C IO_flags(ndx_err) = .FALSE. |
|---|
| 76 | C IO_flags(ndx_log) = .FALSE. |
|---|
| 77 | C |
|---|
| 78 | C cl_dbgapsflag = .TRUE. |
|---|
| 79 | C cl_t2uflag = .FALSE. |
|---|
| 80 | C cl_u2tflag = .FALSE. |
|---|
| 81 | C cl_upcaseflag = .FALSE. |
|---|
| 82 | C cl_locaseflag = .FALSE. |
|---|
| 83 | C cl_completeflag = .FALSE. |
|---|
| 84 | C cl_tplflag = .FALSE. |
|---|
| 85 | C cl_debugflag = .FALSE. |
|---|
| 86 | C |
|---|
| 87 | C cl_listwid = 60 |
|---|
| 88 | C cl_completepct = 90.0 |
|---|
| 89 | C cl_olilen = 7 |
|---|
