| 87 | sgeqrf_(m,n,da,lda,dtau,dwork,ldwork,info); |
| 88 | } |
| 89 | inline void getrs( const char& transa, const int& n, const int& nrhs, const double da[], const int& lda, int ipivot[], double db[], const int& ldb, int& info) |
| 90 | { |
| 91 | dgetrs_(transa,n,nrhs,da,lda,ipivot,db,ldb,info); |
| 92 | } |
| 93 | inline void getrs( const char& transa, const int& n, const int& nrhs, const float da[], const int& lda, int ipivot[], float db[], const int& ldb, int& info) |
| 94 | { |
| 95 | sgetrs_(transa,n,nrhs,da,lda,ipivot,db,ldb,info); |
no test coverage detected