Design and Implementation of Compensated Gram-Schmidt Algorithm