Bose-Einstein correlations inpp collisions at 400 GeV/c