void F77_stpsv(int *layout, char *uplow, char *transp, char *diagn, int *n, float *ap, float *x, int *incx)
void cblas_stpsv(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_TRANSPOSE TransA, const CBLAS_DIAG Diag, const CBLAS_INT N, const float *Ap, float *X, const CBLAS_INT incX)