/* * Author: G. Jungman * RCS: $Id: source_hpr.h,v 1.2 1999/10/18 00:45:12 jungman Exp $ */ size_t i, j, k; size_t kk = 0; const BASE_TYPE conj = -1.0; if(Uplo == CblasUpper) { for(j=0; j