x$atom[,5] formatting

x$atom[,5] formatting correction