Symbol Description Uses
gencost_errfile 6


File Line number Procedure Code
./pkg/ecco/ecco_cost.h 88 NO PROCEDURE 
     &       gencost_errfile,
./pkg/ecco/ecco_cost.h 93 NO PROCEDURE 
      character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST)
./pkg/ecco/ecco_cost_weights.F 1555 ECCO_COST_WEIGHTS 
      if ( gencost_errfile(k) .NE. ' ' ) then
./pkg/ecco/ecco_cost_weights.F 1557 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( gencost_errfile(k), cost_iprec, cost_yftype,
./pkg/ecco/ecco_readparms.F 134 ECCO_READPARMS 
     &         gencost_errfile,
./pkg/ecco/ecco_readparms.F 448 ECCO_READPARMS 
         gencost_errfile(k)    = ' '