181 |
_RL objf_t_misfit (nsx,nsy) |
_RL objf_t_misfit (nsx,nsy) |
182 |
_RL objf_eflux (nsx,nsy) |
_RL objf_eflux (nsx,nsy) |
183 |
|
|
184 |
#ifdef ALLOW_COST_VECTOR |
#ifdef ALLOW_COST_STATE_FINAL |
185 |
common /cost_array/ |
common /cost_state_final_r/ |
186 |
& objf_vector |
& objf_state_final |
187 |
_RL objf_vector (snx,nsx,nsy) |
_RL objf_state_final (snx,sny,nsx,nsy) |
188 |
|
cph _RL objf_state_final (snx,sny,nr,nsx,nsy,2) |
189 |
#endif |
#endif |
190 |
|
|
191 |
#ifdef ALLOW_COST_VECTOR |
#ifdef ALLOW_COST_VECTOR |
192 |
common /cost_array/ |
common /cost_vector_r/ |
193 |
& objf_vector |
& objf_vector |
194 |
_RL objf_vector (snx,nsx,nsy) |
_RL objf_vector (snx,nsx,nsy) |
195 |
#endif |
#endif |