Symbol Description Uses
objf_kapredi 7



File Line number Procedure Code
./pkg/ecco/cost_kapredi.F 124 COST_KAPREDI
            objf_kapredi(bi,bj) = objf_kapredi(bi,bj) + fctile
./pkg/ecco/ecco_cost.h 431 NO PROCEDURE
     &     objf_kapredi,
./pkg/ecco/ecco_cost.h 531 NO PROCEDURE
      _RL  objf_kapredi(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 385 ECCO_COST_FINAL
     &         + mult_kapredi   * objf_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 485 ECCO_COST_FINAL
          f_kapredi = f_kapredi + objf_kapredi(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 134 ECCO_COST_INIT_VARIA
          objf_kapredi(bi,bj)    = 0. _d 0