IF (using_cost_bp) call COST_AVERAGESGENERIC(
CALL ECCO_CHECK_FILES( using_cost_bp,'bp',
& using_cost_bp,
logical using_cost_bp
IF (using_cost_bp) THEN
using_cost_bp=.TRUE.
using_cost_bp=.FALSE.
& using_cost_bp, using_cost_scat,