Corrected syntax error in BC_data.F