diff --git a/CONTRIBUTORS.md b/CONTRIBUTORS.md index 1404f1546..4a13bcc2c 100644 --- a/CONTRIBUTORS.md +++ b/CONTRIBUTORS.md @@ -15,6 +15,14 @@ * Build LAPACKE: C interface to LAPACK * Improve the windows build. +## Previous Developers + +* Chen Shaohu + * Optimize GEMV on the Loongson 3A processor. + +* Luo Wen + * Intern. Test Level-2 BLAS. + ## Contributors In chronological order: diff --git a/f_check b/f_check index 83587e609..d7c0b2328 100644 --- a/f_check +++ b/f_check @@ -24,7 +24,7 @@ $compiler = "" if $compiler eq "f77"; if ($compiler eq "") { - @lists = ("f77", "g77", "g95", "gfortran", "frt", "fort", "openf90", "openf95", + @lists = ("g77", "g95", "gfortran", "frt", "fort", "openf90", "openf95", "sunf77", "sunf90", "sunf95", "xlf95", "xlf90", "xlf", "ppuf77", "ppuf95", "ppuf90", "ppuxlf", diff --git a/interface/trtri.c b/interface/trtri.c index 75416529a..0564bc183 100644 --- a/interface/trtri.c +++ b/interface/trtri.c @@ -138,7 +138,7 @@ 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); - return; + return 0; } #endif