| 798 | } |
| 799 | |
| 800 | static fortran_int getrf(fortran_int *m, fortran_int *n, float a[], fortran_int |
| 801 | *lda, fortran_int ipiv[], fortran_int *info) { |
| 802 | return LAPACK(sgetrf)(m, n, a, lda, ipiv, info); |
| 803 | } |
| 804 | static fortran_int getrf(fortran_int *m, fortran_int *n, double a[], fortran_int |
| 805 | *lda, fortran_int ipiv[], fortran_int *info) { |
| 806 | return LAPACK(dgetrf)(m, n, a, lda, ipiv, info); |
no outgoing calls
no test coverage detected