Symbol Description Uses
objf_kapgm 7



File Line number Procedure Code
./pkg/ecco/cost_kapgm.F 124 COST_KAPGM
            objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile
./pkg/ecco/ecco_cost.h 430 NO PROCEDURE
     &     objf_kapgm,
./pkg/ecco/ecco_cost.h 530 NO PROCEDURE
      _RL  objf_kapgm(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 384 ECCO_COST_FINAL
     &         + mult_kapgm   * objf_kapgm(bi,bj)
./pkg/ecco/ecco_cost_final.F 484 ECCO_COST_FINAL
          f_kapgm = f_kapgm + objf_kapgm(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 133 ECCO_COST_INIT_VARIA
          objf_kapgm(bi,bj)    = 0. _d 0