85 |
integer gencost_nrec(NGENCOST) |
integer gencost_nrec(NGENCOST) |
86 |
|
|
87 |
common /ecco_gencost_c/ |
common /ecco_gencost_c/ |
88 |
|
& gencost_scalefile, |
89 |
& gencost_errfile, |
& gencost_errfile, |
90 |
& gencost_datafile, |
& gencost_datafile, |
91 |
& gencost_barfile, |
& gencost_barfile, |
92 |
& gencost_avgperiod, |
& gencost_avgperiod, |
93 |
& gencost_mask |
& gencost_mask |
94 |
|
character*(MAX_LEN_FNAM) gencost_scalefile(NGENCOST) |
95 |
character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST) |
character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST) |
96 |
character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST) |
character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST) |
97 |
character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST) |
character*(MAX_LEN_FNAM) gencost_barfile(NGENCOST) |