Fix conflicts of trsm

Author: Cstandardlib

source/module_base/blas_connector.h

@@ -133,10 +133,10 @@ extern "C"
 		std::complex<double> *a,  int *lda,  std::complex<double> *b, int *ldb, std::complex<double> *beta, std::complex<double> *c, int *ldc);
 
 	//solving triangular matrix with multiple right hand sides
-	void dtrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
-		double* alpha, double* a, int *lda, double*b, int *ldb);
-	void ztrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
-	std::complex<double>* alpha, std::complex<double>* a, int *lda, std::complex<double>*b, int *ldb);
+	void dtrsm_(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n,
+		const double *alpha, const double *a, const int *lda, double *b, const int *ldb);
+	void ztrsm_(const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n,
+		const std::complex<double> *alpha, const std::complex<double> *a, const int *lda, std::complex<double> *b, const int *ldb);
 
 }
 

source/module_base/module_container/base/third_party/blas.h

@@ -111,10 +111,11 @@ void zhemm_(char *side, char *uplo, int *m, int *n,std::complex<double> *alpha,
             std::complex<double> *a,  int *lda,  std::complex<double> *b, int *ldb, std::complex<double> *beta, std::complex<double> *c, int *ldc);
 
 //solving triangular matrix with multiple right hand sides
-void dtrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
-            double* alpha, double* a, int *lda, double*b, int *ldb);
-void ztrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
-            std::complex<double>* alpha, std::complex<double>* a, int *lda, std::complex<double>*b, int *ldb);
+// # trsm is included in lapack definitions
+// void dtrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
+//             double* alpha, double* a, int *lda, double*b, int *ldb);
+// void ztrsm_(char *side, char* uplo, char *transa, char *diag, int *m, int *n,
+//             std::complex<double>* alpha, std::complex<double>* a, int *lda, std::complex<double>*b, int *ldb);
 
 }
 

source/module_base/module_container/base/third_party/lapack.h

@@ -428,7 +428,26 @@ void geqrf(const int m, const int n, std::complex<double>* A, const int lda, std
 {
     zgeqrf_(&m, &n, A, &lda, tau, work, &lwork, &info);
 }
-
+static inline
+void trsm(char side, char uplo, char transA, char diag, int m, int n, float alpha, const float* A, int lda, float* B, int ldb)
+{
+    strsm_(&side, &uplo, &transA, &diag, &m, &n, &alpha, A, &lda, B, &ldb);
+}
+static inline
+void trsm(char side, char uplo, char transA, char diag, int m, int n, double alpha, const double* A, int lda, double* B, int ldb)
+{
+    dtrsm_(&side, &uplo, &transA, &diag, &m, &n, &alpha, A, &lda, B, &ldb);
+}
+static inline
+void trsm(char side, char uplo, char transA, char diag, int m, int n, std::complex<float> alpha, const std::complex<float>* A, int lda, std::complex<float>* B, int ldb)
+{
+    ctrsm_(&side, &uplo, &transA, &diag, &m, &n, &alpha, A, &lda, B, &ldb);
+}
+static inline
+void trsm(char side, char uplo, char transA, char diag, int m, int n, std::complex<double> alpha, const std::complex<double>* A, int lda, std::complex<double>* B, int ldb)
+{
+    ztrsm_(&side, &uplo, &transA, &diag, &m, &n, &alpha, A, &lda, B, &ldb);
+}
 
 
 } // namespace lapackConnector