fix some error

Author: dzzz2001

source/source_base/module_external/blas_connector.h

@@ -186,6 +186,14 @@ void zherk_(const char* uplo, const char* trans, const int* n, const int* k,
             const std::complex<double>* a, const int* lda,
             const double* beta,
             std::complex<double>* c, const int* ldc);
+
+// === Symmetric rank-k update ===
+void dsyrk_(const char* uplo, const char* trans, const int* n, const int* k,
+            const double* alpha,
+            const double* a, const int* lda,
+            const double* beta, 
+            double* c,
+            const int* ldc);
 }
 
 // Class BlasConnector provide the connector to fortran lapack routine.

source/source_base/test/blas_connector_test.cpp

@@ -226,7 +226,7 @@ TEST(blas_connector, AxpyGpu) {
 
 TEST(blas_connector, dcopy_) {
     typedef double T;
-    long const size = 8;
+    int const size = 8;
     int const incx = 1;
     int const incy = 1;
     std::array<T, size> x_const, result, answer;
@@ -241,7 +241,7 @@ TEST(blas_connector, dcopy_) {
 
 TEST(blas_connector, zcopy_) {
     typedef std::complex<double> T;
-    long const size = 8;
+    int const size = 8;
     int const incx = 1;
     int const incy = 1;
     std::array<T, size> x_const, result, answer;
@@ -259,7 +259,7 @@ TEST(blas_connector, zcopy_) {
 }
 
 TEST(blas_connector, copy) {
-    long const size = 8;
+    int const size = 8;
     int const incx = 1;
     int const incy = 1;
     std::complex<double> result[8], answer[8];