82 |
|
|
83 |
common /ecco_gencost_i_1/ |
common /ecco_gencost_i_1/ |
84 |
& gencost_nrec, gencost_flag |
& gencost_nrec, gencost_flag |
85 |
|
#ifdef ALLOW_SMOOTH |
86 |
|
& , gencost_smooth2Ddiffnbt |
87 |
|
#endif /* ALLOW_SMOOTH */ |
88 |
integer gencost_nrec(NGENCOST) |
integer gencost_nrec(NGENCOST) |
89 |
integer gencost_flag(NGENCOST) |
integer gencost_flag(NGENCOST) |
90 |
|
#ifdef ALLOW_SMOOTH |
91 |
|
integer gencost_smooth2Ddiffnbt(NGENCOST) |
92 |
|
#endif /* ALLOW_SMOOTH */ |
93 |
|
|
94 |
common /ecco_gencost_l_1/ |
common /ecco_gencost_l_1/ |
95 |
#ifdef ALLOW_GENCOST_TIMEVARY_WEIGHT |
#ifdef ALLOW_GENCOST_TIMEVARY_WEIGHT |