Function ztpsv

src/tests/correctness/blas-lapack.c:397–401

}

void
ztpsv(char uplo, char transa, char diag, int n, doublecomplex *ap, doublecomplex *x, int incx)
{
   ztpsv_( &uplo, &transa, &diag, &n, ap, x, &incx);
}

void
sspr(char uplo, int n, float alpha, float *x, int incx, float *ap )