|
|
|
@@ -138,6 +138,9 @@ int NAME(char *UPLO, char *DIAG, blasint *N, FLOAT *a, blasint *ldA, blasint *In |
|
|
|
// call dtrtri from lapack for a walk around. |
|
|
|
if(uplo==0){ |
|
|
|
dtrtri_lapack_(UPLO, DIAG, N, a, ldA, Info); |
|
|
|
#ifndef PPC440 |
|
|
|
blas_memory_free(buffer); |
|
|
|
#endif |
|
|
|
return 0; |
|
|
|
} |
|
|
|
#endif |
|
|
|
|