243   CBLAS_TEST_ZOMPLEX *A, *AP;  in F77_zhpmv()  local
255         AP = (CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)*  in F77_zhpmv()
265                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpmv()
266                  AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpmv()
277 	         AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpmv()
278 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpmv()
281         cblas_zhpmv( CblasRowMajor, uplo, *n, alpha, AP, x, *incx, beta, y,  in F77_zhpmv()
284         free(AP);  in F77_zhpmv()
424   CBLAS_TEST_ZOMPLEX *A, *AP;  in F77_ztpmv()  local
440         AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)*  in F77_ztpmv()
450                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_ztpmv()
451                  AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_ztpmv()
462                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_ztpmv()
463 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_ztpmv()
466         cblas_ztpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_ztpmv()
468         free(AP);  in F77_ztpmv()
479   CBLAS_TEST_ZOMPLEX *A, *AP;  in F77_ztpsv()  local
495         AP=(CBLAS_TEST_ZOMPLEX*)malloc((((LDA+1)*LDA)/2)*  in F77_ztpsv()
505                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_ztpsv()
506 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_ztpsv()
517                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_ztpsv()
518 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_ztpsv()
521         cblas_ztpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx );  in F77_ztpsv()
523         free(AP);  in F77_ztpsv()
593   CBLAS_TEST_ZOMPLEX *A, *AP;  in F77_zhpr()  local
605         AP = ( CBLAS_TEST_ZOMPLEX* )malloc( (((LDA+1)*LDA)/2)*  in F77_zhpr()
615                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpr()
616                  AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpr()
627                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpr()
628                  AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpr()
631         cblas_zhpr(CblasRowMajor, uplo, *n, *alpha, x, *incx, AP );  in F77_zhpr()
635                  A[ LDA*i+j ].real=AP[ k ].real;  in F77_zhpr()
636                  A[ LDA*i+j ].imag=AP[ k ].imag;  in F77_zhpr()
647                  A[ LDA*i+j ].real=AP[ k ].real;  in F77_zhpr()
648                  A[ LDA*i+j ].imag=AP[ k ].imag;  in F77_zhpr()
657         free(AP);  in F77_zhpr()
669   CBLAS_TEST_ZOMPLEX *A, *AP;  in F77_zhpr2()  local
682         AP=(CBLAS_TEST_ZOMPLEX*)malloc( (((LDA+1)*LDA)/2)*  in F77_zhpr2()
692                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpr2()
693 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpr2()
704                  AP[ k ].real=A[ LDA*i+j ].real;  in F77_zhpr2()
705 	         AP[ k ].imag=A[ LDA*i+j ].imag;  in F77_zhpr2()
708         cblas_zhpr2( CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, AP );  in F77_zhpr2()
712                  A[ LDA*i+j ].real=AP[ k ].real;  in F77_zhpr2()
713                  A[ LDA*i+j ].imag=AP[ k ].imag;  in F77_zhpr2()
724                  A[ LDA*i+j ].real=AP[ k ].real;  in F77_zhpr2()
725 	         A[ LDA*i+j ].imag=AP[ k ].imag;  in F77_zhpr2()
734         free(AP);  in F77_zhpr2()