Merge branch 'feature/lascl' into 'master'

Feature/lascl

See merge request !11

morse_cmake @ dd40b792

-Subproject commit d44efd0e4af75cf4be6b9483198c595b03ec083a
+Subproject commit dd40b792c7f27bd8644e7837b17dbc876f92eec7

include/spm_config.h.in

@@ -47,6 +47,9 @@
 /* Exploit the scotch version from the library compiling spm */
 #cmakedefine HAVE_SCOTCH
 
+/* LAPACKE */
+#cmakedefine LAPACKE_WITH_LASCL
+
 #if defined(HAVE_FALLTHROUGH)
 #define spm_attr_fallthrough __attribute__((fallthrough))
 #else

src/z_spm_matrixvector.c

@@ -222,6 +222,29 @@ __spm_zmatvec_ge_ijv( const __spm_zmatvec_t *args )
     return SPM_SUCCESS;
 }
 
+#if !defined(LAPACKE_WITH_LASCL)
+static inline void
+__spm_zlascl( spm_complex64_t  alpha,
+              spm_int_t        m,
+              spm_int_t        n,
+              spm_complex64_t *A,
+              spm_int_t        lda )
+{
+    spm_int_t i, j;
+
+    for( j=0; j<n; j++ ) {
+        for( i=0; i<m; i++, A++ ) {
+            *A *= alpha;
+        }
+        A += m - lda;
+    }
+}
+
+#define LAPACKE_zlascl_work( _dir_, _uplo_, _kl_, _ku_, _cfrom_, _cto_, _m_, _n_, _A_, _lda_ ) \
+    __spm_zlascl( (_cto_), (_m_), (_n_), (_A_), (_lda_) )
+
+#endif
+
 /**
  *******************************************************************************
  *