Modified routine to calculate bcor2, but I’m not sure that it’s right at all.