Symbol Description Uses
cfname 3



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 565 ECCO_COST_FINAL
        write(cfname,'(A,i4.4)') 'costfunction',optimcycle
./pkg/ecco/ecco_cost_final.F 566 ECCO_COST_FINAL
        open(unit=ifc,file=cfname)
./pkg/ecco/ecco_cost_final.F 80 ECCO_COST_FINAL
      character*20 cfname