Ab initio calculation of the real contact area on the atomic scale