From f123c6dee27f26710d7b1bdc6cb44897c5026acf Mon Sep 17 00:00:00 2001
From: Jason Christopherson <jchristopherson@hotmail.com>
Date: Tue, 13 Feb 2024 18:06:44 -0600
Subject: [PATCH] Update documentation

---
 docs/html/annotated.html                      |  132 +-
 docs/html/annotated_dup.js                    |   33 +
 docs/html/blas_8f90_source.html               |   16 +-
 docs/html/classes.html                        |   48 +-
 .../dir_68267d1309a1af8e8297ef4c3efbcdba.html |    6 +-
 .../dir_68267d1309a1af8e8297ef4c3efbcdba.js   |    4 +-
 .../dir_d44c64559bbebec7f509842c48db8b23.html |    2 +-
 docs/html/doxygen_crawl.html                  |   75 +
 docs/html/files.html                          |    6 +-
 docs/html/functions.html                      |   28 +-
 docs/html/functions_func.html                 |   43 +-
 docs/html/functions_vars.html                 |   29 +-
 docs/html/globals.html                        |    2 +-
 docs/html/globals_func.html                   |    2 +-
 docs/html/graph_legend.html                   |    2 +-
 docs/html/index.html                          |    8 +-
 docs/html/interfaceblas_1_1ddot-members.html  |  118 +
 docs/html/interfaceblas_1_1ddot.html          |  169 +
 docs/html/interfaceblas_1_1dgbmv-members.html |    2 +-
 docs/html/interfaceblas_1_1dgbmv.html         |    2 +-
 docs/html/interfaceblas_1_1dgemm-members.html |    2 +-
 docs/html/interfaceblas_1_1dgemm.html         |    2 +-
 docs/html/interfaceblas_1_1dgemv-members.html |    2 +-
 docs/html/interfaceblas_1_1dgemv.html         |    2 +-
 docs/html/interfaceblas_1_1dscal-members.html |    2 +-
 docs/html/interfaceblas_1_1dscal.html         |    2 +-
 docs/html/interfaceblas_1_1dtrsm-members.html |    2 +-
 docs/html/interfaceblas_1_1dtrsm.html         |    2 +-
 docs/html/interfaceblas_1_1dtrsv-members.html |    2 +-
 docs/html/interfaceblas_1_1dtrsv.html         |    2 +-
 .../html/interfaceblas_1_1zdscal-members.html |    2 +-
 docs/html/interfaceblas_1_1zdscal.html        |    2 +-
 docs/html/interfaceblas_1_1zgbmv-members.html |    2 +-
 docs/html/interfaceblas_1_1zgbmv.html         |    2 +-
 docs/html/interfaceblas_1_1zgemm-members.html |    2 +-
 docs/html/interfaceblas_1_1zgemm.html         |    2 +-
 docs/html/interfaceblas_1_1zgemv-members.html |    2 +-
 docs/html/interfaceblas_1_1zgemv.html         |    2 +-
 docs/html/interfaceblas_1_1zscal-members.html |    2 +-
 docs/html/interfaceblas_1_1zscal.html         |    2 +-
 docs/html/interfaceblas_1_1ztrsm-members.html |    2 +-
 docs/html/interfaceblas_1_1ztrsm.html         |    2 +-
 docs/html/interfaceblas_1_1ztrsv-members.html |    2 +-
 docs/html/interfaceblas_1_1ztrsv.html         |    2 +-
 .../interfacelapack_1_1dgeev-members.html     |    2 +-
 docs/html/interfacelapack_1_1dgeev.html       |    2 +-
 .../interfacelapack_1_1dgelqf-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgelqf.html      |    2 +-
 .../interfacelapack_1_1dgels-members.html     |    2 +-
 docs/html/interfacelapack_1_1dgels.html       |    2 +-
 .../interfacelapack_1_1dgelss-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgelss.html      |    2 +-
 .../interfacelapack_1_1dgelsy-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgelsy.html      |    2 +-
 .../interfacelapack_1_1dgeqp3-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgeqp3.html      |    2 +-
 .../interfacelapack_1_1dgeqrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgeqrf.html      |    2 +-
 .../interfacelapack_1_1dgesvd-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgesvd.html      |    2 +-
 .../interfacelapack_1_1dgetrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgetrf.html      |    2 +-
 .../interfacelapack_1_1dgetri-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgetri.html      |    2 +-
 .../interfacelapack_1_1dgetrs-members.html    |    2 +-
 docs/html/interfacelapack_1_1dgetrs.html      |    2 +-
 .../interfacelapack_1_1dggev-members.html     |    2 +-
 docs/html/interfacelapack_1_1dggev.html       |    2 +-
 .../interfacelapack_1_1dlaic1-members.html    |    2 +-
 docs/html/interfacelapack_1_1dlaic1.html      |    2 +-
 .../interfacelapack_1_1dlamch-members.html    |    2 +-
 docs/html/interfacelapack_1_1dlamch.html      |    2 +-
 .../interfacelapack_1_1dlaset-members.html    |    2 +-
 docs/html/interfacelapack_1_1dlaset.html      |    2 +-
 .../interfacelapack_1_1dlasrt-members.html    |    2 +-
 docs/html/interfacelapack_1_1dlasrt.html      |    2 +-
 .../interfacelapack_1_1dorglq-members.html    |    2 +-
 docs/html/interfacelapack_1_1dorglq.html      |    2 +-
 .../interfacelapack_1_1dorgqr-members.html    |    2 +-
 docs/html/interfacelapack_1_1dorgqr.html      |    2 +-
 .../interfacelapack_1_1dormlq-members.html    |    2 +-
 docs/html/interfacelapack_1_1dormlq.html      |    2 +-
 .../interfacelapack_1_1dormqr-members.html    |    2 +-
 docs/html/interfacelapack_1_1dormqr.html      |    2 +-
 .../interfacelapack_1_1dormrz-members.html    |    2 +-
 docs/html/interfacelapack_1_1dormrz.html      |    2 +-
 .../interfacelapack_1_1dpotrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1dpotrf.html      |    2 +-
 .../interfacelapack_1_1dpotrs-members.html    |    2 +-
 docs/html/interfacelapack_1_1dpotrs.html      |    2 +-
 .../interfacelapack_1_1dsyev-members.html     |    2 +-
 docs/html/interfacelapack_1_1dsyev.html       |    2 +-
 .../interfacelapack_1_1dtzrzf-members.html    |    2 +-
 docs/html/interfacelapack_1_1dtzrzf.html      |    2 +-
 .../interfacelapack_1_1zgeev-members.html     |    2 +-
 docs/html/interfacelapack_1_1zgeev.html       |    2 +-
 .../interfacelapack_1_1zgelqf-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgelqf.html      |    2 +-
 .../interfacelapack_1_1zgels-members.html     |    2 +-
 docs/html/interfacelapack_1_1zgels.html       |    2 +-
 .../interfacelapack_1_1zgelss-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgelss.html      |    2 +-
 .../interfacelapack_1_1zgelsy-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgelsy.html      |    2 +-
 .../interfacelapack_1_1zgeqp3-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgeqp3.html      |    2 +-
 .../interfacelapack_1_1zgeqrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgeqrf.html      |    2 +-
 .../interfacelapack_1_1zgesvd-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgesvd.html      |    2 +-
 .../interfacelapack_1_1zgetrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgetrf.html      |    2 +-
 .../interfacelapack_1_1zgetri-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgetri.html      |    2 +-
 .../interfacelapack_1_1zgetrs-members.html    |    2 +-
 docs/html/interfacelapack_1_1zgetrs.html      |    2 +-
 .../interfacelapack_1_1zlaic1-members.html    |    2 +-
 docs/html/interfacelapack_1_1zlaic1.html      |    2 +-
 .../interfacelapack_1_1zpotrf-members.html    |    2 +-
 docs/html/interfacelapack_1_1zpotrf.html      |    2 +-
 .../interfacelapack_1_1zpotrs-members.html    |    2 +-
 docs/html/interfacelapack_1_1zpotrs.html      |    2 +-
 .../interfacelapack_1_1ztzrzf-members.html    |    2 +-
 docs/html/interfacelapack_1_1ztzrzf.html      |    2 +-
 .../interfacelapack_1_1zunglq-members.html    |    2 +-
 docs/html/interfacelapack_1_1zunglq.html      |    2 +-
 .../interfacelapack_1_1zungqr-members.html    |    2 +-
 docs/html/interfacelapack_1_1zungqr.html      |    2 +-
 .../interfacelapack_1_1zunmlq-members.html    |    2 +-
 docs/html/interfacelapack_1_1zunmlq.html      |    2 +-
 .../interfacelapack_1_1zunmqr-members.html    |    2 +-
 docs/html/interfacelapack_1_1zunmqr.html      |    2 +-
 .../interfacelapack_1_1zunmrz-members.html    |    2 +-
 docs/html/interfacelapack_1_1zunmrz.html      |    2 +-
 ...nalg_1_1band__diag__mtx__mult-members.html |    2 +-
 ...erfacelinalg_1_1band__diag__mtx__mult.html |    4 +-
 ...facelinalg_1_1band__mtx__mult-members.html |    2 +-
 .../interfacelinalg_1_1band__mtx__mult.html   |    4 +-
 ...g_1_1band__mtx__to__full__mtx-members.html |    2 +-
 ...acelinalg_1_1band__mtx__to__full__mtx.html |    4 +-
 ...celinalg_1_1banded__to__dense-members.html |  119 +
 .../interfacelinalg_1_1banded__to__dense.html |  157 +
 ...acelinalg_1_1cholesky__factor-members.html |    2 +-
 .../interfacelinalg_1_1cholesky__factor.html  |   10 +-
 ..._1_1cholesky__rank1__downdate-members.html |    2 +-
 ...celinalg_1_1cholesky__rank1__downdate.html |   10 +-
 ...lg_1_1cholesky__rank1__update-members.html |    2 +-
 ...facelinalg_1_1cholesky__rank1__update.html |   10 +-
 ...celinalg_1_1dense__to__banded-members.html |  119 +
 .../interfacelinalg_1_1dense__to__banded.html |  155 +
 docs/html/interfacelinalg_1_1det-members.html |    2 +-
 docs/html/interfacelinalg_1_1det.html         |    4 +-
 ...facelinalg_1_1diag__mtx__mult-members.html |    3 +-
 .../interfacelinalg_1_1diag__mtx__mult.html   |   35 +-
 .../interfacelinalg_1_1eigen-members.html     |    2 +-
 docs/html/interfacelinalg_1_1eigen.html       |    6 +-
 ...celinalg_1_1extract__diagonal-members.html |  120 +
 .../interfacelinalg_1_1extract__diagonal.html |  156 +
 .../interfacelinalg_1_1form__lq-members.html  |    2 +-
 docs/html/interfacelinalg_1_1form__lq.html    |   12 +-
 .../interfacelinalg_1_1form__lu-members.html  |    2 +-
 docs/html/interfacelinalg_1_1form__lu.html    |   13 +-
 .../interfacelinalg_1_1form__qr-members.html  |    2 +-
 docs/html/interfacelinalg_1_1form__qr.html    |   14 +-
 ...interfacelinalg_1_1lq__factor-members.html |    2 +-
 docs/html/interfacelinalg_1_1lq__factor.html  |   12 +-
 ...interfacelinalg_1_1lu__factor-members.html |    7 +-
 docs/html/interfacelinalg_1_1lu__factor.html  |   31 +-
 .../interfacelinalg_1_1matmul-members.html    |  119 +
 docs/html/interfacelinalg_1_1matmul.html      |  158 +
 ...terfacelinalg_1_1mtx__inverse-members.html |    2 +-
 .../html/interfacelinalg_1_1mtx__inverse.html |    9 +-
 .../interfacelinalg_1_1mtx__mult-members.html |    2 +-
 docs/html/interfacelinalg_1_1mtx__mult.html   |    4 +-
 ...erfacelinalg_1_1mtx__pinverse-members.html |    2 +-
 .../interfacelinalg_1_1mtx__pinverse.html     |    9 +-
 .../interfacelinalg_1_1mtx__rank-members.html |    2 +-
 docs/html/interfacelinalg_1_1mtx__rank.html   |    4 +-
 .../interfacelinalg_1_1mult__lq-members.html  |    2 +-
 docs/html/interfacelinalg_1_1mult__lq.html    |   10 +-
 .../interfacelinalg_1_1mult__qr-members.html  |    2 +-
 docs/html/interfacelinalg_1_1mult__qr.html    |   10 +-
 .../interfacelinalg_1_1mult__rz-members.html  |    2 +-
 docs/html/interfacelinalg_1_1mult__rz.html    |    4 +-
 ...rfacelinalg_1_1nonzero__count-members.html |  119 +
 .../interfacelinalg_1_1nonzero__count.html    |  148 +
 ...facelinalg_1_1operator_07-_08-members.html |  118 +
 .../interfacelinalg_1_1operator_07-_08.html   |  145 +
 ...celinalg_1_1operator_07_09_08-members.html |  118 +
 .../interfacelinalg_1_1operator_07_09_08.html |  145 +
 ...acelinalg_1_1operator_07_2_08-members.html |  118 +
 .../interfacelinalg_1_1operator_07_2_08.html  |  145 +
 ...acelinalg_1_1operator_07_5_08-members.html |  119 +
 .../interfacelinalg_1_1operator_07_5_08.html  |  149 +
 ...rfacelinalg_1_1pgmres__solver-members.html |  118 +
 .../interfacelinalg_1_1pgmres__solver.html    |  166 +
 ...interfacelinalg_1_1qr__factor-members.html |    2 +-
 docs/html/interfacelinalg_1_1qr__factor.html  |    8 +-
 ...celinalg_1_1qr__rank1__update-members.html |    2 +-
 .../interfacelinalg_1_1qr__rank1__update.html |   12 +-
 ...erfacelinalg_1_1rank1__update-members.html |    2 +-
 .../interfacelinalg_1_1rank1__update.html     |    4 +-
 ...elinalg_1_1recip__mult__array-members.html |    2 +-
 ...interfacelinalg_1_1recip__mult__array.html |    4 +-
 ...interfacelinalg_1_1rz__factor-members.html |    2 +-
 docs/html/interfacelinalg_1_1rz__factor.html  |    4 +-
 .../html/interfacelinalg_1_1size-members.html |  119 +
 docs/html/interfacelinalg_1_1size.html        |  149 +
 ...facelinalg_1_1solve__cholesky-members.html |    2 +-
 .../interfacelinalg_1_1solve__cholesky.html   |   10 +-
 ...nalg_1_1solve__least__squares-members.html |    2 +-
 ...erfacelinalg_1_1solve__least__squares.html |    6 +-
 ..._1solve__least__squares__full-members.html |    2 +-
 ...linalg_1_1solve__least__squares__full.html |    6 +-
 ...1_1solve__least__squares__svd-members.html |    2 +-
 ...elinalg_1_1solve__least__squares__svd.html |    6 +-
 .../interfacelinalg_1_1solve__lq-members.html |    2 +-
 docs/html/interfacelinalg_1_1solve__lq.html   |    8 +-
 .../interfacelinalg_1_1solve__lu-members.html |   11 +-
 docs/html/interfacelinalg_1_1solve__lu.html   |   28 +-
 .../interfacelinalg_1_1solve__qr-members.html |    2 +-
 docs/html/interfacelinalg_1_1solve__qr.html   |    8 +-
 ..._1_1solve__triangular__system-members.html |    2 +-
 ...celinalg_1_1solve__triangular__system.html |   13 +-
 .../html/interfacelinalg_1_1sort-members.html |    2 +-
 docs/html/interfacelinalg_1_1sort.html        |    4 +-
 ...nalg_1_1sparse__direct__solve-members.html |  118 +
 ...erfacelinalg_1_1sparse__direct__solve.html |  153 +
 docs/html/interfacelinalg_1_1svd-members.html |    2 +-
 docs/html/interfacelinalg_1_1svd.html         |   11 +-
 .../html/interfacelinalg_1_1swap-members.html |    2 +-
 docs/html/interfacelinalg_1_1swap.html        |    4 +-
 .../interfacelinalg_1_1trace-members.html     |    2 +-
 docs/html/interfacelinalg_1_1trace.html       |    4 +-
 .../interfacelinalg_1_1transpose-members.html |  118 +
 docs/html/interfacelinalg_1_1transpose.html   |  144 +
 ...rfacelinalg_1_1tri__mtx__mult-members.html |    2 +-
 .../interfacelinalg_1_1tri__mtx__mult.html    |    4 +-
 .../interfaceqrupdate_1_1dch1dn-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1dch1dn.html    |    2 +-
 .../interfaceqrupdate_1_1dch1up-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1dch1up.html    |    2 +-
 .../interfaceqrupdate_1_1dqr1up-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1dqr1up.html    |    2 +-
 .../interfaceqrupdate_1_1zch1dn-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1zch1dn.html    |    2 +-
 .../interfaceqrupdate_1_1zch1up-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1zch1up.html    |    2 +-
 .../interfaceqrupdate_1_1zqr1up-members.html  |    2 +-
 docs/html/interfaceqrupdate_1_1zqr1up.html    |    2 +-
 .../interfacesparskit_1_1amub-members.html    |  118 +
 docs/html/interfacesparskit_1_1amub.html      |  247 ++
 .../interfacesparskit_1_1aplb-members.html    |  118 +
 docs/html/interfacesparskit_1_1aplb.html      |  246 ++
 .../interfacesparskit_1_1aplsb-members.html   |  118 +
 docs/html/interfacesparskit_1_1aplsb.html     |  247 ++
 .../interfacesparskit_1_1bndcsr-members.html  |  118 +
 docs/html/interfacesparskit_1_1bndcsr.html    |  224 ++
 .../interfacesparskit_1_1csrcsc2-members.html |  118 +
 docs/html/interfacesparskit_1_1csrcsc2.html   |  213 ++
 .../interfacesparskit_1_1csrmsr-members.html  |  118 +
 docs/html/interfacesparskit_1_1csrmsr.html    |  201 +
 .../interfacesparskit_1_1getdia-members.html  |  118 +
 docs/html/interfacesparskit_1_1getdia.html    |  209 ++
 .../interfacesparskit_1_1getelm-members.html  |  118 +
 docs/html/interfacesparskit_1_1getelm.html    |  196 +
 .../interfacesparskit_1_1ilud-members.html    |  118 +
 docs/html/interfacesparskit_1_1ilud.html      |  238 ++
 .../interfacesparskit_1_1iludp-members.html   |  118 +
 docs/html/interfacesparskit_1_1iludp.html     |  255 ++
 .../interfacesparskit_1_1ilut-members.html    |  118 +
 docs/html/interfacesparskit_1_1ilut.html      |  240 ++
 .../interfacesparskit_1_1ilutp-members.html   |  118 +
 docs/html/interfacesparskit_1_1ilutp.html     |  262 ++
 .../interfacesparskit_1_1lusol-members.html   |  118 +
 docs/html/interfacesparskit_1_1lusol.html     |  189 +
 .../interfacesparskit_1_1msrcsr-members.html  |  118 +
 docs/html/interfacesparskit_1_1msrcsr.html    |  201 +
 .../interfacesparskit_1_1pgmres-members.html  |  118 +
 docs/html/interfacesparskit_1_1pgmres.html    |  248 ++
 docs/html/lapack_8f90_source.html             |    2 +-
 docs/html/linalg_8f90_source.html             | 3220 ++++++++++-------
 docs/html/linalg_8h.html                      |    2 +-
 docs/html/linalg_8h_source.html               |    2 +-
 docs/html/linalg__basic_8f90_source.html      | 2963 ++++++++-------
 docs/html/linalg__eigen_8f90_source.html      |    2 +-
 docs/html/linalg__factor_8f90_source.html     |    2 +-
 docs/html/linalg__solve_8f90_source.html      |    2 +-
 docs/html/linalg__sorting_8f90_source.html    |    2 +-
 docs/html/linalg__sparse_8f90_source.html     | 1575 ++++++++
 docs/html/menudata.js                         |    6 +-
 docs/html/namespaceblas.html                  |    4 +-
 docs/html/namespaceblas.js                    |    1 +
 docs/html/namespacelinalg.html                |   69 +-
 docs/html/namespacelinalg.js                  |   15 +
 docs/html/namespacemembers.html               |    2 +-
 docs/html/namespacemembers_vars.html          |    2 +-
 docs/html/namespaceqrupdate.html              |    2 +-
 docs/html/namespaces.html                     |  140 +-
 docs/html/namespaces_dup.js                   |    3 +-
 docs/html/namespacesparskit.html              |  171 +
 docs/html/namespacesparskit.js                |   18 +
 docs/html/navtreedata.js                      |    9 +-
 docs/html/navtreeindex0.js                    |  332 +-
 docs/html/navtreeindex1.js                    |  104 +-
 docs/html/qrupdate_8f90_source.html           |    2 +-
 docs/html/search/all_0.js                     |    7 +-
 docs/html/search/all_1.js                     |    9 +-
 docs/html/search/all_10.js                    |    6 +
 docs/html/search/all_11.js                    |    4 +
 docs/html/search/all_12.js                    |   33 +
 docs/html/search/all_2.js                     |   43 +-
 docs/html/search/all_3.js                     |   39 +-
 docs/html/search/all_4.js                     |    5 +-
 docs/html/search/all_5.js                     |    4 +-
 docs/html/search/all_6.js                     |   93 +-
 docs/html/search/all_7.js                     |   13 +-
 docs/html/search/all_8.js                     |   94 +-
 docs/html/search/all_9.js                     |   13 +-
 docs/html/search/all_a.js                     |   12 +-
 docs/html/search/all_b.js                     |    6 +-
 docs/html/search/all_c.js                     |   32 +-
 docs/html/search/all_d.js                     |    6 +-
 docs/html/search/all_e.js                     |    5 +-
 docs/html/search/all_f.js                     |   17 +-
 docs/html/search/classes_0.js                 |    6 +-
 docs/html/search/classes_1.js                 |    8 +-
 docs/html/search/classes_10.js                |    6 +
 docs/html/search/classes_11.js                |   33 +
 docs/html/search/classes_2.js                 |   42 +-
 docs/html/search/classes_3.js                 |   39 +-
 docs/html/search/classes_4.js                 |    5 +-
 docs/html/search/classes_5.js                 |    5 +-
 docs/html/search/classes_6.js                 |    9 +-
 docs/html/search/classes_7.js                 |    6 +-
 docs/html/search/classes_8.js                 |    6 +-
 docs/html/search/classes_9.js                 |   21 +-
 docs/html/search/classes_a.js                 |    3 +-
 docs/html/search/classes_b.js                 |   34 +-
 docs/html/search/classes_c.js                 |    5 +
 docs/html/search/classes_d.js                 |    5 +
 docs/html/search/classes_e.js                 |    6 +
 docs/html/search/classes_f.js                 |   16 +
 docs/html/search/functions_0.js               |   76 +-
 docs/html/search/functions_1.js               |   85 +-
 docs/html/search/namespaces_3.js              |    4 +
 docs/html/search/searchdata.js                |   10 +-
 docs/html/search/variables_0.js               |   12 +-
 docs/html/search/variables_1.js               |    2 +-
 docs/html/search/variables_2.js               |   12 +-
 docs/html/search/variables_3.js               |    2 +-
 docs/html/search/variables_4.js               |    2 +-
 docs/html/sparskit_8f90_source.html           |  327 ++
 .../structlinalg_1_1csr__matrix-members.html  |  121 +
 docs/html/structlinalg_1_1csr__matrix.html    |  222 ++
 docs/html/structlinalg_1_1csr__matrix.js      |    7 +
 .../structlinalg_1_1msr__matrix-members.html  |  119 +
 docs/html/structlinalg_1_1msr__matrix.html    |  175 +
 docs/html/structlinalg_1_1msr__matrix.js      |    5 +
 359 files changed, 16820 insertions(+), 3842 deletions(-)
 create mode 100644 docs/html/interfaceblas_1_1ddot-members.html
 create mode 100644 docs/html/interfaceblas_1_1ddot.html
 create mode 100644 docs/html/interfacelinalg_1_1banded__to__dense-members.html
 create mode 100644 docs/html/interfacelinalg_1_1banded__to__dense.html
 create mode 100644 docs/html/interfacelinalg_1_1dense__to__banded-members.html
 create mode 100644 docs/html/interfacelinalg_1_1dense__to__banded.html
 create mode 100644 docs/html/interfacelinalg_1_1extract__diagonal-members.html
 create mode 100644 docs/html/interfacelinalg_1_1extract__diagonal.html
 create mode 100644 docs/html/interfacelinalg_1_1matmul-members.html
 create mode 100644 docs/html/interfacelinalg_1_1matmul.html
 create mode 100644 docs/html/interfacelinalg_1_1nonzero__count-members.html
 create mode 100644 docs/html/interfacelinalg_1_1nonzero__count.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07-_08-members.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07-_08.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_09_08-members.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_09_08.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_2_08-members.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_2_08.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_5_08-members.html
 create mode 100644 docs/html/interfacelinalg_1_1operator_07_5_08.html
 create mode 100644 docs/html/interfacelinalg_1_1pgmres__solver-members.html
 create mode 100644 docs/html/interfacelinalg_1_1pgmres__solver.html
 create mode 100644 docs/html/interfacelinalg_1_1size-members.html
 create mode 100644 docs/html/interfacelinalg_1_1size.html
 create mode 100644 docs/html/interfacelinalg_1_1sparse__direct__solve-members.html
 create mode 100644 docs/html/interfacelinalg_1_1sparse__direct__solve.html
 create mode 100644 docs/html/interfacelinalg_1_1transpose-members.html
 create mode 100644 docs/html/interfacelinalg_1_1transpose.html
 create mode 100644 docs/html/interfacesparskit_1_1amub-members.html
 create mode 100644 docs/html/interfacesparskit_1_1amub.html
 create mode 100644 docs/html/interfacesparskit_1_1aplb-members.html
 create mode 100644 docs/html/interfacesparskit_1_1aplb.html
 create mode 100644 docs/html/interfacesparskit_1_1aplsb-members.html
 create mode 100644 docs/html/interfacesparskit_1_1aplsb.html
 create mode 100644 docs/html/interfacesparskit_1_1bndcsr-members.html
 create mode 100644 docs/html/interfacesparskit_1_1bndcsr.html
 create mode 100644 docs/html/interfacesparskit_1_1csrcsc2-members.html
 create mode 100644 docs/html/interfacesparskit_1_1csrcsc2.html
 create mode 100644 docs/html/interfacesparskit_1_1csrmsr-members.html
 create mode 100644 docs/html/interfacesparskit_1_1csrmsr.html
 create mode 100644 docs/html/interfacesparskit_1_1getdia-members.html
 create mode 100644 docs/html/interfacesparskit_1_1getdia.html
 create mode 100644 docs/html/interfacesparskit_1_1getelm-members.html
 create mode 100644 docs/html/interfacesparskit_1_1getelm.html
 create mode 100644 docs/html/interfacesparskit_1_1ilud-members.html
 create mode 100644 docs/html/interfacesparskit_1_1ilud.html
 create mode 100644 docs/html/interfacesparskit_1_1iludp-members.html
 create mode 100644 docs/html/interfacesparskit_1_1iludp.html
 create mode 100644 docs/html/interfacesparskit_1_1ilut-members.html
 create mode 100644 docs/html/interfacesparskit_1_1ilut.html
 create mode 100644 docs/html/interfacesparskit_1_1ilutp-members.html
 create mode 100644 docs/html/interfacesparskit_1_1ilutp.html
 create mode 100644 docs/html/interfacesparskit_1_1lusol-members.html
 create mode 100644 docs/html/interfacesparskit_1_1lusol.html
 create mode 100644 docs/html/interfacesparskit_1_1msrcsr-members.html
 create mode 100644 docs/html/interfacesparskit_1_1msrcsr.html
 create mode 100644 docs/html/interfacesparskit_1_1pgmres-members.html
 create mode 100644 docs/html/interfacesparskit_1_1pgmres.html
 create mode 100644 docs/html/linalg__sparse_8f90_source.html
 create mode 100644 docs/html/namespacesparskit.html
 create mode 100644 docs/html/namespacesparskit.js
 create mode 100644 docs/html/search/all_10.js
 create mode 100644 docs/html/search/all_11.js
 create mode 100644 docs/html/search/all_12.js
 create mode 100644 docs/html/search/classes_10.js
 create mode 100644 docs/html/search/classes_11.js
 create mode 100644 docs/html/search/classes_c.js
 create mode 100644 docs/html/search/classes_d.js
 create mode 100644 docs/html/search/classes_e.js
 create mode 100644 docs/html/search/classes_f.js
 create mode 100644 docs/html/search/namespaces_3.js
 create mode 100644 docs/html/sparskit_8f90_source.html
 create mode 100644 docs/html/structlinalg_1_1csr__matrix-members.html
 create mode 100644 docs/html/structlinalg_1_1csr__matrix.html
 create mode 100644 docs/html/structlinalg_1_1csr__matrix.js
 create mode 100644 docs/html/structlinalg_1_1msr__matrix-members.html
 create mode 100644 docs/html/structlinalg_1_1msr__matrix.html
 create mode 100644 docs/html/structlinalg_1_1msr__matrix.js

diff --git a/docs/html/annotated.html b/docs/html/annotated.html
index f644210d..899e0b2d 100644
--- a/docs/html/annotated.html
+++ b/docs/html/annotated.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -105,19 +105,20 @@
 <div class="textblock">Here are the data types with brief descriptions:</div><div class="directory">
 <div class="levels">[detail level <span onclick="javascript:dynsection.toggleLevel(1);">1</span><span onclick="javascript:dynsection.toggleLevel(2);">2</span>]</div><table class="directory">
 <tr id="row_0_" class="even"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_0_" class="arrow" onclick="dynsection.toggleFolder('0_')">&#9658;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespaceblas.html" target="_self">blas</a></td><td class="desc">A module providing explicit interfaces to BLAS routines </td></tr>
-<tr id="row_0_0_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgbmv.html" target="_self">dgbmv</a></td><td class="desc"></td></tr>
-<tr id="row_0_1_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemm.html" target="_self">dgemm</a></td><td class="desc"></td></tr>
-<tr id="row_0_2_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemv.html" target="_self">dgemv</a></td><td class="desc"></td></tr>
-<tr id="row_0_3_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dscal.html" target="_self">dscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_4_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsm.html" target="_self">dtrsm</a></td><td class="desc"></td></tr>
-<tr id="row_0_5_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsv.html" target="_self">dtrsv</a></td><td class="desc"></td></tr>
-<tr id="row_0_6_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zdscal.html" target="_self">zdscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_7_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgbmv.html" target="_self">zgbmv</a></td><td class="desc"></td></tr>
-<tr id="row_0_8_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemm.html" target="_self">zgemm</a></td><td class="desc"></td></tr>
-<tr id="row_0_9_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemv.html" target="_self">zgemv</a></td><td class="desc"></td></tr>
-<tr id="row_0_10_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zscal.html" target="_self">zscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_11_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsm.html" target="_self">ztrsm</a></td><td class="desc"></td></tr>
-<tr id="row_0_12_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsv.html" target="_self">ztrsv</a></td><td class="desc"></td></tr>
+<tr id="row_0_0_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ddot.html" target="_self">ddot</a></td><td class="desc"></td></tr>
+<tr id="row_0_1_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgbmv.html" target="_self">dgbmv</a></td><td class="desc"></td></tr>
+<tr id="row_0_2_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemm.html" target="_self">dgemm</a></td><td class="desc"></td></tr>
+<tr id="row_0_3_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemv.html" target="_self">dgemv</a></td><td class="desc"></td></tr>
+<tr id="row_0_4_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dscal.html" target="_self">dscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_5_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsm.html" target="_self">dtrsm</a></td><td class="desc"></td></tr>
+<tr id="row_0_6_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsv.html" target="_self">dtrsv</a></td><td class="desc"></td></tr>
+<tr id="row_0_7_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zdscal.html" target="_self">zdscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_8_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgbmv.html" target="_self">zgbmv</a></td><td class="desc"></td></tr>
+<tr id="row_0_9_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemm.html" target="_self">zgemm</a></td><td class="desc"></td></tr>
+<tr id="row_0_10_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemv.html" target="_self">zgemv</a></td><td class="desc"></td></tr>
+<tr id="row_0_11_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zscal.html" target="_self">zscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_12_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsm.html" target="_self">ztrsm</a></td><td class="desc"></td></tr>
+<tr id="row_0_13_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsv.html" target="_self">ztrsv</a></td><td class="desc"></td></tr>
 <tr id="row_1_" class="odd"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_1_" class="arrow" onclick="dynsection.toggleFolder('1_')">&#9658;</span><span class="icona"><span class="icon">M</span></span><b>lapack</b></td><td class="desc"></td></tr>
 <tr id="row_1_0_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelapack_1_1dgeev.html" target="_self">dgeev</a></td><td class="desc"></td></tr>
 <tr id="row_1_1_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelapack_1_1dgelqf.html" target="_self">dgelqf</a></td><td class="desc"></td></tr>
@@ -168,42 +169,57 @@
 <tr id="row_2_0_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__diag__mtx__mult.html" target="_self">band_diag_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, with a diagonal matrix, B, such that A = alpha * A * B, or A = alpha * B * A </td></tr>
 <tr id="row_2_1_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__mult.html" target="_self">band_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, by a vector x such that alpha * op(A) * x + beta * y = y </td></tr>
 <tr id="row_2_2_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html" target="_self">band_mtx_to_full_mtx</a></td><td class="desc">Converts a banded matrix stored in dense form to a full matrix </td></tr>
-<tr id="row_2_3_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__factor.html" target="_self">cholesky_factor</a></td><td class="desc">Computes the Cholesky factorization of a symmetric, positive definite matrix </td></tr>
-<tr id="row_2_4_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html" target="_self">cholesky_rank1_downdate</a></td><td class="desc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular) </td></tr>
-<tr id="row_2_5_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html" target="_self">cholesky_rank1_update</a></td><td class="desc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular) </td></tr>
-<tr id="row_2_6_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1det.html" target="_self">det</a></td><td class="desc">Computes the determinant of a square matrix </td></tr>
-<tr id="row_2_7_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html" target="_self">diag_mtx_mult</a></td><td class="desc">Multiplies a diagonal matrix with another matrix or array </td></tr>
-<tr id="row_2_8_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1eigen.html" target="_self">eigen</a></td><td class="desc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix </td></tr>
-<tr id="row_2_9_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lq.html" target="_self">form_lq</a></td><td class="desc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorithm </td></tr>
-<tr id="row_2_10_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lu.html" target="_self">form_lu</a></td><td class="desc">Extracts the L and U matrices from the condensed [L\U] storage format used by the <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> </td></tr>
-<tr id="row_2_11_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__qr.html" target="_self">form_qr</a></td><td class="desc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR factorization algorithm </td></tr>
-<tr id="row_2_12_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lq__factor.html" target="_self">lq_factor</a></td><td class="desc">Computes the LQ factorization of an M-by-N matrix </td></tr>
-<tr id="row_2_13_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lu__factor.html" target="_self">lu_factor</a></td><td class="desc">Computes the LU factorization of an M-by-N matrix </td></tr>
-<tr id="row_2_14_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__inverse.html" target="_self">mtx_inverse</a></td><td class="desc">Computes the inverse of a square matrix </td></tr>
-<tr id="row_2_15_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__mult.html" target="_self">mtx_mult</a></td><td class="desc">Performs the matrix operation: \( C = \alpha op(A) op(B) + \beta C \) </td></tr>
-<tr id="row_2_16_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__pinverse.html" target="_self">mtx_pinverse</a></td><td class="desc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition of the matrix </td></tr>
-<tr id="row_2_17_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__rank.html" target="_self">mtx_rank</a></td><td class="desc">Computes the rank of a matrix </td></tr>
-<tr id="row_2_18_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__lq.html" target="_self">mult_lq</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization </td></tr>
-<tr id="row_2_19_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__qr.html" target="_self">mult_qr</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization </td></tr>
-<tr id="row_2_20_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__rz.html" target="_self">mult_rz</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization </td></tr>
-<tr id="row_2_21_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__factor.html" target="_self">qr_factor</a></td><td class="desc">Computes the QR factorization of an M-by-N matrix </td></tr>
-<tr id="row_2_22_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__rank1__update.html" target="_self">qr_rank1_update</a></td><td class="desc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where \( A = Q R \), and \( A1 = A + U V^T \) such that \( A1 = Q1 R1 \). In the event \( V \) is complex-valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
-<tr id="row_2_23_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rank1__update.html" target="_self">rank1_update</a></td><td class="desc">Performs the rank-1 update to matrix A such that: \( A = \alpha X Y^T + A \), where \( A \) is an M-by-N matrix, \( \alpha \)is a scalar, \( X \) is an M-element array, and \( Y \) is an N-element array. In the event that \( Y \) is complex, \( Y^H \) is used instead of \( Y^T \) </td></tr>
-<tr id="row_2_24_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1recip__mult__array.html" target="_self">recip_mult_array</a></td><td class="desc">Multiplies a vector by the reciprocal of a real scalar </td></tr>
-<tr id="row_2_25_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rz__factor.html" target="_self">rz_factor</a></td><td class="desc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that \( A = R Z = (R 0) Z \). Z is an orthogonal matrix of dimension N-by-N, and R is an M-by-M upper triangular matrix </td></tr>
-<tr id="row_2_26_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__cholesky.html" target="_self">solve_cholesky</a></td><td class="desc">Solves a system of Cholesky factored equations </td></tr>
-<tr id="row_2_27_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares.html" target="_self">solve_least_squares</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns. Notice, it is assumed that matrix A has full rank </td></tr>
-<tr id="row_2_28_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html" target="_self">solve_least_squares_full</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns, but uses a full orthogonal factorization of the system </td></tr>
-<tr id="row_2_29_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html" target="_self">solve_least_squares_svd</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns using a singular value decomposition of matrix A </td></tr>
-<tr id="row_2_30_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lq.html" target="_self">solve_lq</a></td><td class="desc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M </td></tr>
-<tr id="row_2_31_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lu.html" target="_self">solve_lu</a></td><td class="desc">Solves a system of LU-factored equations </td></tr>
-<tr id="row_2_32_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__qr.html" target="_self">solve_qr</a></td><td class="desc">Solves a system of M QR-factored equations of N unknowns </td></tr>
-<tr id="row_2_33_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__triangular__system.html" target="_self">solve_triangular_system</a></td><td class="desc">Solves a triangular system of equations </td></tr>
-<tr id="row_2_34_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sort.html" target="_self">sort</a></td><td class="desc">Sorts an array </td></tr>
-<tr id="row_2_35_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1svd.html" target="_self">svd</a></td><td class="desc">Computes the singular value decomposition of a matrix A. The SVD is defined as: \( A = U S V^T \), where \( U \) is an M-by-M orthogonal matrix, \( S \) is an M-by-N diagonal matrix, and \( V \) is an N-by-N orthogonal matrix. In the event that \( V \) is complex valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
-<tr id="row_2_36_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1swap.html" target="_self">swap</a></td><td class="desc">Swaps the contents of two arrays </td></tr>
-<tr id="row_2_37_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1trace.html" target="_self">trace</a></td><td class="desc">Computes the trace of a matrix (the sum of the main diagonal elements) </td></tr>
-<tr id="row_2_38_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html" target="_self">tri_mtx_mult</a></td><td class="desc">Computes the triangular matrix operation: \( B = \alpha A^T A + \beta B \), or \( B = \alpha A A^T + \beta B \), where A is a triangular matrix </td></tr>
+<tr id="row_2_3_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1banded__to__dense.html" target="_self">banded_to_dense</a></td><td class="desc">Converts a banded matrix to a dense matrix </td></tr>
+<tr id="row_2_4_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__factor.html" target="_self">cholesky_factor</a></td><td class="desc">Computes the Cholesky factorization of a symmetric, positive definite matrix </td></tr>
+<tr id="row_2_5_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html" target="_self">cholesky_rank1_downdate</a></td><td class="desc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular) </td></tr>
+<tr id="row_2_6_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html" target="_self">cholesky_rank1_update</a></td><td class="desc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular) </td></tr>
+<tr id="row_2_7_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="structlinalg_1_1csr__matrix.html" target="_self">csr_matrix</a></td><td class="desc">A sparse matrix stored in compressed sparse row (CSR) format </td></tr>
+<tr id="row_2_8_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1dense__to__banded.html" target="_self">dense_to_banded</a></td><td class="desc">Converts a dense matrix to a banded matrix </td></tr>
+<tr id="row_2_9_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1det.html" target="_self">det</a></td><td class="desc">Computes the determinant of a square matrix </td></tr>
+<tr id="row_2_10_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html" target="_self">diag_mtx_mult</a></td><td class="desc">Multiplies a diagonal matrix with another matrix or array </td></tr>
+<tr id="row_2_11_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1eigen.html" target="_self">eigen</a></td><td class="desc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix </td></tr>
+<tr id="row_2_12_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1extract__diagonal.html" target="_self">extract_diagonal</a></td><td class="desc">Extracts the diagonal of a matrix </td></tr>
+<tr id="row_2_13_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lq.html" target="_self">form_lq</a></td><td class="desc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorithm </td></tr>
+<tr id="row_2_14_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lu.html" target="_self">form_lu</a></td><td class="desc">Extracts the L and U matrices from the condensed [L\U] storage format used by the <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> </td></tr>
+<tr id="row_2_15_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__qr.html" target="_self">form_qr</a></td><td class="desc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR factorization algorithm </td></tr>
+<tr id="row_2_16_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lq__factor.html" target="_self">lq_factor</a></td><td class="desc">Computes the LQ factorization of an M-by-N matrix </td></tr>
+<tr id="row_2_17_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lu__factor.html" target="_self">lu_factor</a></td><td class="desc">Computes the LU factorization of an M-by-N matrix </td></tr>
+<tr id="row_2_18_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1matmul.html" target="_self">matmul</a></td><td class="desc">Performs sparse matrix multiplication C = A * B </td></tr>
+<tr id="row_2_19_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="structlinalg_1_1msr__matrix.html" target="_self">msr_matrix</a></td><td class="desc">A sparse matrix stored in modified sparse row format. This format is convenient for situations where the diagonal is fully populated </td></tr>
+<tr id="row_2_20_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__inverse.html" target="_self">mtx_inverse</a></td><td class="desc">Computes the inverse of a square matrix </td></tr>
+<tr id="row_2_21_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__mult.html" target="_self">mtx_mult</a></td><td class="desc">Performs the matrix operation: \( C = \alpha op(A) op(B) + \beta C \) </td></tr>
+<tr id="row_2_22_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__pinverse.html" target="_self">mtx_pinverse</a></td><td class="desc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition of the matrix </td></tr>
+<tr id="row_2_23_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__rank.html" target="_self">mtx_rank</a></td><td class="desc">Computes the rank of a matrix </td></tr>
+<tr id="row_2_24_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__lq.html" target="_self">mult_lq</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization </td></tr>
+<tr id="row_2_25_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__qr.html" target="_self">mult_qr</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization </td></tr>
+<tr id="row_2_26_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__rz.html" target="_self">mult_rz</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization </td></tr>
+<tr id="row_2_27_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1nonzero__count.html" target="_self">nonzero_count</a></td><td class="desc">Determines the number of nonzero entries in a sparse matrix </td></tr>
+<tr id="row_2_28_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_5_08.html" target="_self">operator(*)</a></td><td class="desc">Multiplies a sparse matrix and a scalar </td></tr>
+<tr id="row_2_29_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_09_08.html" target="_self">operator(+)</a></td><td class="desc">Adds two sparse matrices </td></tr>
+<tr id="row_2_30_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07-_08.html" target="_self">operator(-)</a></td><td class="desc">Subtracts two sparse matrices </td></tr>
+<tr id="row_2_31_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_2_08.html" target="_self">operator(/)</a></td><td class="desc">Multiplies a sparse matrix by a scalar </td></tr>
+<tr id="row_2_32_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1pgmres__solver.html" target="_self">pgmres_solver</a></td><td class="desc">A preconditioned GMRES solver </td></tr>
+<tr id="row_2_33_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__factor.html" target="_self">qr_factor</a></td><td class="desc">Computes the QR factorization of an M-by-N matrix </td></tr>
+<tr id="row_2_34_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__rank1__update.html" target="_self">qr_rank1_update</a></td><td class="desc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where \( A = Q R \), and \( A1 = A + U V^T \) such that \( A1 = Q1 R1 \). In the event \( V \) is complex-valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
+<tr id="row_2_35_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rank1__update.html" target="_self">rank1_update</a></td><td class="desc">Performs the rank-1 update to matrix A such that: \( A = \alpha X Y^T + A \), where \( A \) is an M-by-N matrix, \( \alpha \)is a scalar, \( X \) is an M-element array, and \( Y \) is an N-element array. In the event that \( Y \) is complex, \( Y^H \) is used instead of \( Y^T \) </td></tr>
+<tr id="row_2_36_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1recip__mult__array.html" target="_self">recip_mult_array</a></td><td class="desc">Multiplies a vector by the reciprocal of a real scalar </td></tr>
+<tr id="row_2_37_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rz__factor.html" target="_self">rz_factor</a></td><td class="desc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that \( A = R Z = (R 0) Z \). Z is an orthogonal matrix of dimension N-by-N, and R is an M-by-M upper triangular matrix </td></tr>
+<tr id="row_2_38_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1size.html" target="_self">size</a></td><td class="desc">Determines the size of the requested dimension of the supplied sparse matrix </td></tr>
+<tr id="row_2_39_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__cholesky.html" target="_self">solve_cholesky</a></td><td class="desc">Solves a system of Cholesky factored equations </td></tr>
+<tr id="row_2_40_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares.html" target="_self">solve_least_squares</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns. Notice, it is assumed that matrix A has full rank </td></tr>
+<tr id="row_2_41_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html" target="_self">solve_least_squares_full</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns, but uses a full orthogonal factorization of the system </td></tr>
+<tr id="row_2_42_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html" target="_self">solve_least_squares_svd</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns using a singular value decomposition of matrix A </td></tr>
+<tr id="row_2_43_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lq.html" target="_self">solve_lq</a></td><td class="desc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M </td></tr>
+<tr id="row_2_44_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lu.html" target="_self">solve_lu</a></td><td class="desc">Solves a system of LU-factored equations </td></tr>
+<tr id="row_2_45_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__qr.html" target="_self">solve_qr</a></td><td class="desc">Solves a system of M QR-factored equations of N unknowns </td></tr>
+<tr id="row_2_46_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__triangular__system.html" target="_self">solve_triangular_system</a></td><td class="desc">Solves a triangular system of equations </td></tr>
+<tr id="row_2_47_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sort.html" target="_self">sort</a></td><td class="desc">Sorts an array </td></tr>
+<tr id="row_2_48_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html" target="_self">sparse_direct_solve</a></td><td class="desc">Provides a direct solution to a square, sparse system </td></tr>
+<tr id="row_2_49_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1svd.html" target="_self">svd</a></td><td class="desc">Computes the singular value decomposition of a matrix A. The SVD is defined as: \( A = U S V^T \), where \( U \) is an M-by-M orthogonal matrix, \( S \) is an M-by-N diagonal matrix, and \( V \) is an N-by-N orthogonal matrix. In the event that \( V \) is complex valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
+<tr id="row_2_50_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1swap.html" target="_self">swap</a></td><td class="desc">Swaps the contents of two arrays </td></tr>
+<tr id="row_2_51_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1trace.html" target="_self">trace</a></td><td class="desc">Computes the trace of a matrix (the sum of the main diagonal elements) </td></tr>
+<tr id="row_2_52_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1transpose.html" target="_self">transpose</a></td><td class="desc">Provides the transpose of a sparse matrix </td></tr>
+<tr id="row_2_53_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html" target="_self">tri_mtx_mult</a></td><td class="desc">Computes the triangular matrix operation: \( B = \alpha A^T A + \beta B \), or \( B = \alpha A A^T + \beta B \), where A is a triangular matrix </td></tr>
 <tr id="row_3_" class="odd"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_3_" class="arrow" onclick="dynsection.toggleFolder('3_')">&#9658;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespaceqrupdate.html" target="_self">qrupdate</a></td><td class="desc">A module providing explicit interfaces for the QRUPDATE library </td></tr>
 <tr id="row_3_0_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1dch1dn.html" target="_self">dch1dn</a></td><td class="desc"></td></tr>
 <tr id="row_3_1_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1dch1up.html" target="_self">dch1up</a></td><td class="desc"></td></tr>
@@ -211,6 +227,22 @@
 <tr id="row_3_3_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zch1dn.html" target="_self">zch1dn</a></td><td class="desc"></td></tr>
 <tr id="row_3_4_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zch1up.html" target="_self">zch1up</a></td><td class="desc"></td></tr>
 <tr id="row_3_5_" class="even" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zqr1up.html" target="_self">zqr1up</a></td><td class="desc"></td></tr>
+<tr id="row_4_" class="even"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_4_" class="arrow" onclick="dynsection.toggleFolder('4_')">&#9658;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespacesparskit.html" target="_self">sparskit</a></td><td class="desc">An interface to the SPARSKIT library available at <a href="https://www-users.cse.umn.edu/~saad/software/SPARSKIT/">https://www-users.cse.umn.edu/~saad/software/SPARSKIT/</a> </td></tr>
+<tr id="row_4_0_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1amub.html" target="_self">amub</a></td><td class="desc">Computes the matrix product: C = A * B </td></tr>
+<tr id="row_4_1_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1aplb.html" target="_self">aplb</a></td><td class="desc">Computes the matrix sum: C = A + B, where the matrices are given in CSR format </td></tr>
+<tr id="row_4_2_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1aplsb.html" target="_self">aplsb</a></td><td class="desc">Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format </td></tr>
+<tr id="row_4_3_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1bndcsr.html" target="_self">bndcsr</a></td><td class="desc">Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format </td></tr>
+<tr id="row_4_4_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1csrcsc2.html" target="_self">csrcsc2</a></td><td class="desc">Converts a CSR matrix into a CSC matrix (transposition) </td></tr>
+<tr id="row_4_5_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1csrmsr.html" target="_self">csrmsr</a></td><td class="desc">Converts a CSR matrix to an MSR matrix </td></tr>
+<tr id="row_4_6_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1getdia.html" target="_self">getdia</a></td><td class="desc">Extracts the diagonal from a matrix </td></tr>
+<tr id="row_4_7_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1getelm.html" target="_self">getelm</a></td><td class="desc">Gets element A(i,j) of matrix A for any pair (i,j) </td></tr>
+<tr id="row_4_8_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilud.html" target="_self">ilud</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy </td></tr>
+<tr id="row_4_9_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1iludp.html" target="_self">iludp</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy </td></tr>
+<tr id="row_4_10_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilut.html" target="_self">ilut</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism </td></tr>
+<tr id="row_4_11_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilutp.html" target="_self">ilutp</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism and pivoting </td></tr>
+<tr id="row_4_12_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1lusol.html" target="_self">lusol</a></td><td class="desc">Solves the LU-factored system (LU) x = y </td></tr>
+<tr id="row_4_13_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1msrcsr.html" target="_self">msrcsr</a></td><td class="desc">Converts and MSR matrix to a CSR matrix </td></tr>
+<tr id="row_4_14_" class="odd" style="display:none;"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1pgmres.html" target="_self">pgmres</a></td><td class="desc">An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the ILUT routine to precondition the GMRES algorithm. The stopping criteria utilized is based simply on reducing the residual norm to the requested tolerance </td></tr>
 </table>
 </div><!-- directory -->
 </div><!-- contents -->
diff --git a/docs/html/annotated_dup.js b/docs/html/annotated_dup.js
index 4192d753..9c42b6f1 100644
--- a/docs/html/annotated_dup.js
+++ b/docs/html/annotated_dup.js
@@ -1,6 +1,7 @@
 var annotated_dup =
 [
     [ "blas", "namespaceblas.html", [
+      [ "ddot", "interfaceblas_1_1ddot.html", null ],
       [ "dgbmv", "interfaceblas_1_1dgbmv.html", null ],
       [ "dgemm", "interfaceblas_1_1dgemm.html", null ],
       [ "dgemv", "interfaceblas_1_1dgemv.html", null ],
@@ -66,17 +67,23 @@ var annotated_dup =
       [ "band_diag_mtx_mult", "interfacelinalg_1_1band__diag__mtx__mult.html", null ],
       [ "band_mtx_mult", "interfacelinalg_1_1band__mtx__mult.html", null ],
       [ "band_mtx_to_full_mtx", "interfacelinalg_1_1band__mtx__to__full__mtx.html", null ],
+      [ "banded_to_dense", "interfacelinalg_1_1banded__to__dense.html", null ],
       [ "cholesky_factor", "interfacelinalg_1_1cholesky__factor.html", null ],
       [ "cholesky_rank1_downdate", "interfacelinalg_1_1cholesky__rank1__downdate.html", null ],
       [ "cholesky_rank1_update", "interfacelinalg_1_1cholesky__rank1__update.html", null ],
+      [ "csr_matrix", "structlinalg_1_1csr__matrix.html", "structlinalg_1_1csr__matrix" ],
+      [ "dense_to_banded", "interfacelinalg_1_1dense__to__banded.html", null ],
       [ "det", "interfacelinalg_1_1det.html", null ],
       [ "diag_mtx_mult", "interfacelinalg_1_1diag__mtx__mult.html", null ],
       [ "eigen", "interfacelinalg_1_1eigen.html", null ],
+      [ "extract_diagonal", "interfacelinalg_1_1extract__diagonal.html", null ],
       [ "form_lq", "interfacelinalg_1_1form__lq.html", null ],
       [ "form_lu", "interfacelinalg_1_1form__lu.html", null ],
       [ "form_qr", "interfacelinalg_1_1form__qr.html", null ],
       [ "lq_factor", "interfacelinalg_1_1lq__factor.html", null ],
       [ "lu_factor", "interfacelinalg_1_1lu__factor.html", null ],
+      [ "matmul", "interfacelinalg_1_1matmul.html", null ],
+      [ "msr_matrix", "structlinalg_1_1msr__matrix.html", "structlinalg_1_1msr__matrix" ],
       [ "mtx_inverse", "interfacelinalg_1_1mtx__inverse.html", null ],
       [ "mtx_mult", "interfacelinalg_1_1mtx__mult.html", null ],
       [ "mtx_pinverse", "interfacelinalg_1_1mtx__pinverse.html", null ],
@@ -84,11 +91,18 @@ var annotated_dup =
       [ "mult_lq", "interfacelinalg_1_1mult__lq.html", null ],
       [ "mult_qr", "interfacelinalg_1_1mult__qr.html", null ],
       [ "mult_rz", "interfacelinalg_1_1mult__rz.html", null ],
+      [ "nonzero_count", "interfacelinalg_1_1nonzero__count.html", null ],
+      [ "operator(*)", "interfacelinalg_1_1operator_07_5_08.html", null ],
+      [ "operator(+)", "interfacelinalg_1_1operator_07_09_08.html", null ],
+      [ "operator(-)", "interfacelinalg_1_1operator_07-_08.html", null ],
+      [ "operator(/)", "interfacelinalg_1_1operator_07_2_08.html", null ],
+      [ "pgmres_solver", "interfacelinalg_1_1pgmres__solver.html", null ],
       [ "qr_factor", "interfacelinalg_1_1qr__factor.html", null ],
       [ "qr_rank1_update", "interfacelinalg_1_1qr__rank1__update.html", null ],
       [ "rank1_update", "interfacelinalg_1_1rank1__update.html", null ],
       [ "recip_mult_array", "interfacelinalg_1_1recip__mult__array.html", null ],
       [ "rz_factor", "interfacelinalg_1_1rz__factor.html", null ],
+      [ "size", "interfacelinalg_1_1size.html", null ],
       [ "solve_cholesky", "interfacelinalg_1_1solve__cholesky.html", null ],
       [ "solve_least_squares", "interfacelinalg_1_1solve__least__squares.html", null ],
       [ "solve_least_squares_full", "interfacelinalg_1_1solve__least__squares__full.html", null ],
@@ -98,9 +112,11 @@ var annotated_dup =
       [ "solve_qr", "interfacelinalg_1_1solve__qr.html", null ],
       [ "solve_triangular_system", "interfacelinalg_1_1solve__triangular__system.html", null ],
       [ "sort", "interfacelinalg_1_1sort.html", null ],
+      [ "sparse_direct_solve", "interfacelinalg_1_1sparse__direct__solve.html", null ],
       [ "svd", "interfacelinalg_1_1svd.html", null ],
       [ "swap", "interfacelinalg_1_1swap.html", null ],
       [ "trace", "interfacelinalg_1_1trace.html", null ],
+      [ "transpose", "interfacelinalg_1_1transpose.html", null ],
       [ "tri_mtx_mult", "interfacelinalg_1_1tri__mtx__mult.html", null ]
     ] ],
     [ "qrupdate", "namespaceqrupdate.html", [
@@ -110,5 +126,22 @@ var annotated_dup =
       [ "zch1dn", "interfaceqrupdate_1_1zch1dn.html", null ],
       [ "zch1up", "interfaceqrupdate_1_1zch1up.html", null ],
       [ "zqr1up", "interfaceqrupdate_1_1zqr1up.html", null ]
+    ] ],
+    [ "sparskit", "namespacesparskit.html", [
+      [ "amub", "interfacesparskit_1_1amub.html", null ],
+      [ "aplb", "interfacesparskit_1_1aplb.html", null ],
+      [ "aplsb", "interfacesparskit_1_1aplsb.html", null ],
+      [ "bndcsr", "interfacesparskit_1_1bndcsr.html", null ],
+      [ "csrcsc2", "interfacesparskit_1_1csrcsc2.html", null ],
+      [ "csrmsr", "interfacesparskit_1_1csrmsr.html", null ],
+      [ "getdia", "interfacesparskit_1_1getdia.html", null ],
+      [ "getelm", "interfacesparskit_1_1getelm.html", null ],
+      [ "ilud", "interfacesparskit_1_1ilud.html", null ],
+      [ "iludp", "interfacesparskit_1_1iludp.html", null ],
+      [ "ilut", "interfacesparskit_1_1ilut.html", null ],
+      [ "ilutp", "interfacesparskit_1_1ilutp.html", null ],
+      [ "lusol", "interfacesparskit_1_1lusol.html", null ],
+      [ "msrcsr", "interfacesparskit_1_1msrcsr.html", null ],
+      [ "pgmres", "interfacesparskit_1_1pgmres.html", null ]
     ] ]
 ];
\ No newline at end of file
diff --git a/docs/html/blas_8f90_source.html b/docs/html/blas_8f90_source.html
index 1db897b1..3ecd8e25 100644
--- a/docs/html/blas_8f90_source.html
+++ b/docs/html/blas_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -242,8 +242,18 @@
 <div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span>            <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span> :: y(*)</div>
 </div>
 <div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span>        <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>    <span class="keyword">end interface</span></div>
-<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span><span class="keyword">end module</span></div>
+<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span> </div>
+<div class="foldopen" id="foldopen00111" data-start="" data-end="">
+<div class="line"><a id="l00111" name="l00111"></a><span class="lineno"><a class="line" href="interfaceblas_1_1ddot.html">  111</a></span>        <span class="keyword">function </span><a class="code hl_interface" href="interfaceblas_1_1ddot.html">ddot</a>(n, dx, incx, dy, incy) <span class="keyword">result</span>(rst)</div>
+<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, incx, incy</div>
+<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: dx(*), dy(*)</div>
+<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span><span class="keywordtype">            real</span>(real64) :: rst</div>
+</div>
+<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span><span class="keyword">end module</span></div>
+<div class="ttc" id="ainterfaceblas_1_1ddot_html"><div class="ttname"><a href="interfaceblas_1_1ddot.html">blas::ddot</a></div><div class="ttdef"><b>Definition</b> <a href="#l00111">blas.f90:111</a></div></div>
 <div class="ttc" id="ainterfaceblas_1_1dgbmv_html"><div class="ttname"><a href="interfaceblas_1_1dgbmv.html">blas::dgbmv</a></div><div class="ttdef"><b>Definition</b> <a href="#l00093">blas.f90:93</a></div></div>
 <div class="ttc" id="ainterfaceblas_1_1dgemm_html"><div class="ttname"><a href="interfaceblas_1_1dgemm.html">blas::dgemm</a></div><div class="ttdef"><b>Definition</b> <a href="#l00006">blas.f90:6</a></div></div>
 <div class="ttc" id="ainterfaceblas_1_1dgemv_html"><div class="ttname"><a href="interfaceblas_1_1dgemv.html">blas::dgemv</a></div><div class="ttdef"><b>Definition</b> <a href="#l00015">blas.f90:15</a></div></div>
diff --git a/docs/html/classes.html b/docs/html/classes.html
index 2a5d673b..de2f75f5 100644
--- a/docs/html/classes.html
+++ b/docs/html/classes.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -102,29 +102,47 @@
   <div class="headertitle"><div class="title">Data Type Index</div></div>
 </div><!--header-->
 <div class="contents">
-<div class="qindex"><a class="qindex" href="#letter_B">B</a>&#160;|&#160;<a class="qindex" href="#letter_C">C</a>&#160;|&#160;<a class="qindex" href="#letter_D">D</a>&#160;|&#160;<a class="qindex" href="#letter_E">E</a>&#160;|&#160;<a class="qindex" href="#letter_F">F</a>&#160;|&#160;<a class="qindex" href="#letter_L">L</a>&#160;|&#160;<a class="qindex" href="#letter_M">M</a>&#160;|&#160;<a class="qindex" href="#letter_Q">Q</a>&#160;|&#160;<a class="qindex" href="#letter_R">R</a>&#160;|&#160;<a class="qindex" href="#letter_S">S</a>&#160;|&#160;<a class="qindex" href="#letter_T">T</a>&#160;|&#160;<a class="qindex" href="#letter_Z">Z</a></div>
+<div class="qindex"><a class="qindex" href="#letter_A">A</a>&#160;|&#160;<a class="qindex" href="#letter_B">B</a>&#160;|&#160;<a class="qindex" href="#letter_C">C</a>&#160;|&#160;<a class="qindex" href="#letter_D">D</a>&#160;|&#160;<a class="qindex" href="#letter_E">E</a>&#160;|&#160;<a class="qindex" href="#letter_F">F</a>&#160;|&#160;<a class="qindex" href="#letter_G">G</a>&#160;|&#160;<a class="qindex" href="#letter_I">I</a>&#160;|&#160;<a class="qindex" href="#letter_L">L</a>&#160;|&#160;<a class="qindex" href="#letter_M">M</a>&#160;|&#160;<a class="qindex" href="#letter_N">N</a>&#160;|&#160;<a class="qindex" href="#letter_O">O</a>&#160;|&#160;<a class="qindex" href="#letter_P">P</a>&#160;|&#160;<a class="qindex" href="#letter_Q">Q</a>&#160;|&#160;<a class="qindex" href="#letter_R">R</a>&#160;|&#160;<a class="qindex" href="#letter_S">S</a>&#160;|&#160;<a class="qindex" href="#letter_T">T</a>&#160;|&#160;<a class="qindex" href="#letter_Z">Z</a></div>
 <div class="classindex">
 <dl class="classindex even">
-<dt class="alphachar"><a id="letter_B" name="letter_B">B</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1band__diag__mtx__mult.html">band_diag_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1band__mtx__mult.html">band_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dt class="alphachar"><a id="letter_A" name="letter_A">A</a></dt>
+<dd><a class="el" href="interfacesparskit_1_1amub.html">amub</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1aplb.html">aplb</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1aplsb.html">aplsb</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
 <dl class="classindex odd">
-<dt class="alphachar"><a id="letter_C" name="letter_C">C</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1cholesky__factor.html">cholesky_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html">cholesky_rank1_downdate</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html">cholesky_rank1_update</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dt class="alphachar"><a id="letter_B" name="letter_B">B</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1band__diag__mtx__mult.html">band_diag_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1band__mtx__mult.html">band_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1banded__to__dense.html">banded_to_dense</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacesparskit_1_1bndcsr.html">bndcsr</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
 <dl class="classindex even">
-<dt class="alphachar"><a id="letter_D" name="letter_D">D</a></dt>
-<dd><a class="el" href="interfaceqrupdate_1_1dch1dn.html">dch1dn</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceqrupdate_1_1dch1up.html">dch1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfacelinalg_1_1det.html">det</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfaceblas_1_1dgbmv.html">dgbmv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dgeev.html">dgeev</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelqf.html">dgelqf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgels.html">dgels</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelss.html">dgelss</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelsy.html">dgelsy</a> (lapack)</dd><dd><a class="el" href="interfaceblas_1_1dgemm.html">dgemm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1dgemv.html">dgemv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dgeqp3.html">dgeqp3</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgeqrf.html">dgeqrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgesvd.html">dgesvd</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetrf.html">dgetrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetri.html">dgetri</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetrs.html">dgetrs</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dggev.html">dggev</a> (lapack)</dd><dd><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelapack_1_1dlaic1.html">dlaic1</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlamch.html">dlamch</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlaset.html">dlaset</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlasrt.html">dlasrt</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dorglq.html">dorglq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dorgqr.html">dorgqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormlq.html">dormlq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormqr.html">dormqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormrz.html">dormrz</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dpotrf.html">dpotrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dpotrs.html">dpotrs</a> (lapack)</dd><dd><a class="el" href="interfaceqrupdate_1_1dqr1up.html">dqr1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceblas_1_1dscal.html">dscal</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dsyev.html">dsyev</a> (lapack)</dd><dd><a class="el" href="interfaceblas_1_1dtrsm.html">dtrsm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1dtrsv.html">dtrsv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dtzrzf.html">dtzrzf</a> (lapack)</dd></dl>
+<dt class="alphachar"><a id="letter_C" name="letter_C">C</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1cholesky__factor.html">cholesky_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html">cholesky_rank1_downdate</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html">cholesky_rank1_update</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="structlinalg_1_1csr__matrix.html">csr_matrix</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacesparskit_1_1csrcsc2.html">csrcsc2</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1csrmsr.html">csrmsr</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
 <dl class="classindex odd">
-<dt class="alphachar"><a id="letter_E" name="letter_E">E</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1eigen.html">eigen</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dt class="alphachar"><a id="letter_D" name="letter_D">D</a></dt>
+<dd><a class="el" href="interfaceqrupdate_1_1dch1dn.html">dch1dn</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceqrupdate_1_1dch1up.html">dch1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceblas_1_1ddot.html">ddot</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelinalg_1_1dense__to__banded.html">dense_to_banded</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1det.html">det</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfaceblas_1_1dgbmv.html">dgbmv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dgeev.html">dgeev</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelqf.html">dgelqf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgels.html">dgels</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelss.html">dgelss</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgelsy.html">dgelsy</a> (lapack)</dd><dd><a class="el" href="interfaceblas_1_1dgemm.html">dgemm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1dgemv.html">dgemv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dgeqp3.html">dgeqp3</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgeqrf.html">dgeqrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgesvd.html">dgesvd</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetrf.html">dgetrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetri.html">dgetri</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dgetrs.html">dgetrs</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dggev.html">dggev</a> (lapack)</dd><dd><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelapack_1_1dlaic1.html">dlaic1</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlamch.html">dlamch</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlaset.html">dlaset</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dlasrt.html">dlasrt</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dorglq.html">dorglq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dorgqr.html">dorgqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormlq.html">dormlq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormqr.html">dormqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dormrz.html">dormrz</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dpotrf.html">dpotrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1dpotrs.html">dpotrs</a> (lapack)</dd><dd><a class="el" href="interfaceqrupdate_1_1dqr1up.html">dqr1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceblas_1_1dscal.html">dscal</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dsyev.html">dsyev</a> (lapack)</dd><dd><a class="el" href="interfaceblas_1_1dtrsm.html">dtrsm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1dtrsv.html">dtrsv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1dtzrzf.html">dtzrzf</a> (lapack)</dd></dl>
 <dl class="classindex even">
+<dt class="alphachar"><a id="letter_E" name="letter_E">E</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1eigen.html">eigen</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1extract__diagonal.html">extract_diagonal</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dl class="classindex odd">
 <dt class="alphachar"><a id="letter_F" name="letter_F">F</a></dt>
 <dd><a class="el" href="interfacelinalg_1_1form__lq.html">form_lq</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1form__lu.html">form_lu</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1form__qr.html">form_qr</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dl class="classindex even">
+<dt class="alphachar"><a id="letter_G" name="letter_G">G</a></dt>
+<dd><a class="el" href="interfacesparskit_1_1getdia.html">getdia</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1getelm.html">getelm</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
 <dl class="classindex odd">
-<dt class="alphachar"><a id="letter_L" name="letter_L">L</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1lq__factor.html">lq_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dt class="alphachar"><a id="letter_I" name="letter_I">I</a></dt>
+<dd><a class="el" href="interfacesparskit_1_1ilud.html">ilud</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1iludp.html">iludp</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1ilut.html">ilut</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacesparskit_1_1ilutp.html">ilutp</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
 <dl class="classindex even">
+<dt class="alphachar"><a id="letter_L" name="letter_L">L</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1lq__factor.html">lq_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacesparskit_1_1lusol.html">lusol</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd></dl>
+<dl class="classindex odd">
 <dt class="alphachar"><a id="letter_M" name="letter_M">M</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__mult.html">mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__pinverse.html">mtx_pinverse</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__rank.html">mtx_rank</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__lq.html">mult_lq</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__qr.html">mult_qr</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__rz.html">mult_rz</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dd><a class="el" href="interfacelinalg_1_1matmul.html">matmul</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="structlinalg_1_1msr__matrix.html">msr_matrix</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacesparskit_1_1msrcsr.html">msrcsr</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__mult.html">mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__pinverse.html">mtx_pinverse</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mtx__rank.html">mtx_rank</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__lq.html">mult_lq</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__qr.html">mult_qr</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1mult__rz.html">mult_rz</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dl class="classindex even">
+<dt class="alphachar"><a id="letter_N" name="letter_N">N</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1nonzero__count.html">nonzero_count</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dl class="classindex odd">
+<dt class="alphachar"><a id="letter_O" name="letter_O">O</a></dt>
+<dd><a class="el" href="interfacelinalg_1_1operator_07_5_08.html">operator(*)</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1operator_07_09_08.html">operator(+)</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1operator_07-_08.html">operator(-)</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1operator_07_2_08.html">operator(/)</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dl class="classindex even">
+<dt class="alphachar"><a id="letter_P" name="letter_P">P</a></dt>
+<dd><a class="el" href="interfacesparskit_1_1pgmres.html">pgmres</a> (<a class="el" href="namespacesparskit.html">sparskit</a>)</dd><dd><a class="el" href="interfacelinalg_1_1pgmres__solver.html">pgmres_solver</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
 <dl class="classindex odd">
 <dt class="alphachar"><a id="letter_Q" name="letter_Q">Q</a></dt>
 <dd><a class="el" href="interfacelinalg_1_1qr__factor.html">qr_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1qr__rank1__update.html">qr_rank1_update</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
@@ -133,10 +151,10 @@
 <dd><a class="el" href="interfacelinalg_1_1rank1__update.html">rank1_update</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1recip__mult__array.html">recip_mult_array</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1rz__factor.html">rz_factor</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
 <dl class="classindex odd">
 <dt class="alphachar"><a id="letter_S" name="letter_S">S</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1solve__cholesky.html">solve_cholesky</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares.html">solve_least_squares</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html">solve_least_squares_full</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html">solve_least_squares_svd</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__lq.html">solve_lq</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__lu.html">solve_lu</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__qr.html">solve_qr</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__triangular__system.html">solve_triangular_system</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1sort.html">sort</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1svd.html">svd</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1swap.html">swap</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dd><a class="el" href="interfacelinalg_1_1size.html">size</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__cholesky.html">solve_cholesky</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares.html">solve_least_squares</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html">solve_least_squares_full</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html">solve_least_squares_svd</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__lq.html">solve_lq</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__lu.html">solve_lu</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__qr.html">solve_qr</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1solve__triangular__system.html">solve_triangular_system</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1sort.html">sort</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">sparse_direct_solve</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1svd.html">svd</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1swap.html">swap</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
 <dl class="classindex even">
 <dt class="alphachar"><a id="letter_T" name="letter_T">T</a></dt>
-<dd><a class="el" href="interfacelinalg_1_1trace.html">trace</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html">tri_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
+<dd><a class="el" href="interfacelinalg_1_1trace.html">trace</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1transpose.html">transpose</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd><dd><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html">tri_mtx_mult</a> (<a class="el" href="namespacelinalg.html">linalg</a>)</dd></dl>
 <dl class="classindex odd">
 <dt class="alphachar"><a id="letter_Z" name="letter_Z">Z</a></dt>
 <dd><a class="el" href="interfaceqrupdate_1_1zch1dn.html">zch1dn</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceqrupdate_1_1zch1up.html">zch1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceblas_1_1zdscal.html">zdscal</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1zgbmv.html">zgbmv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1zgeev.html">zgeev</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgelqf.html">zgelqf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgels.html">zgels</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgelss.html">zgelss</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgelsy.html">zgelsy</a> (lapack)</dd><dd><a class="el" href="interfaceblas_1_1zgemm.html">zgemm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1zgemv.html">zgemv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1zgeqp3.html">zgeqp3</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgeqrf.html">zgeqrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgesvd.html">zgesvd</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgetrf.html">zgetrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgetri.html">zgetri</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zgetrs.html">zgetrs</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zlaic1.html">zlaic1</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zpotrf.html">zpotrf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zpotrs.html">zpotrs</a> (lapack)</dd><dd><a class="el" href="interfaceqrupdate_1_1zqr1up.html">zqr1up</a> (<a class="el" href="namespaceqrupdate.html">qrupdate</a>)</dd><dd><a class="el" href="interfaceblas_1_1zscal.html">zscal</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1ztrsm.html">ztrsm</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfaceblas_1_1ztrsv.html">ztrsv</a> (<a class="el" href="namespaceblas.html">blas</a>)</dd><dd><a class="el" href="interfacelapack_1_1ztzrzf.html">ztzrzf</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zunglq.html">zunglq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zungqr.html">zungqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zunmlq.html">zunmlq</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zunmqr.html">zunmqr</a> (lapack)</dd><dd><a class="el" href="interfacelapack_1_1zunmrz.html">zunmrz</a> (lapack)</dd></dl>
diff --git a/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.html b/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.html
index 4338896c..dfec911c 100644
--- a/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.html
+++ b/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -121,8 +121,12 @@
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top"><a href="linalg__sorting_8f90_source.html"><span class="icondoc"></span></a>&#160;</td><td class="memItemRight" valign="bottom"><b>linalg_sorting.f90</b></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top"><a href="linalg__sparse_8f90_source.html"><span class="icondoc"></span></a>&#160;</td><td class="memItemRight" valign="bottom"><b>linalg_sparse.f90</b></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top"><a href="qrupdate_8f90_source.html"><span class="icondoc"></span></a>&#160;</td><td class="memItemRight" valign="bottom"><b>qrupdate.f90</b></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top"><a href="sparskit_8f90_source.html"><span class="icondoc"></span></a>&#160;</td><td class="memItemRight" valign="bottom"><b>sparskit.f90</b></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 </table>
 </div><!-- contents -->
 </div><!-- doc-content -->
diff --git a/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.js b/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.js
index c984e24f..a7e2a21e 100644
--- a/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.js
+++ b/docs/html/dir_68267d1309a1af8e8297ef4c3efbcdba.js
@@ -8,5 +8,7 @@ var dir_68267d1309a1af8e8297ef4c3efbcdba =
     [ "linalg_factor.f90", "linalg__factor_8f90_source.html", null ],
     [ "linalg_solve.f90", "linalg__solve_8f90_source.html", null ],
     [ "linalg_sorting.f90", "linalg__sorting_8f90_source.html", null ],
-    [ "qrupdate.f90", "qrupdate_8f90_source.html", null ]
+    [ "linalg_sparse.f90", "linalg__sparse_8f90_source.html", null ],
+    [ "qrupdate.f90", "qrupdate_8f90_source.html", null ],
+    [ "sparskit.f90", "sparskit_8f90_source.html", null ]
 ];
\ No newline at end of file
diff --git a/docs/html/dir_d44c64559bbebec7f509842c48db8b23.html b/docs/html/dir_d44c64559bbebec7f509842c48db8b23.html
index 18910662..eb87a66e 100644
--- a/docs/html/dir_d44c64559bbebec7f509842c48db8b23.html
+++ b/docs/html/dir_d44c64559bbebec7f509842c48db8b23.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/doxygen_crawl.html b/docs/html/doxygen_crawl.html
index b64ba071..c495e810 100644
--- a/docs/html/doxygen_crawl.html
+++ b/docs/html/doxygen_crawl.html
@@ -17,9 +17,13 @@
 <a href="linalg__factor_8f90_source.html"/>
 <a href="linalg__solve_8f90_source.html"/>
 <a href="linalg__sorting_8f90_source.html"/>
+<a href="linalg__sparse_8f90_source.html"/>
 <a href="qrupdate_8f90_source.html"/>
+<a href="sparskit_8f90_source.html"/>
 <a href="linalg_8h.html"/>
 <a href="namespaceblas.html"/>
+<a href="interfaceblas_1_1ddot.html"/>
+<a href="interfaceblas_1_1ddot-members.html"/>
 <a href="interfaceblas_1_1dgbmv.html"/>
 <a href="interfaceblas_1_1dgbmv-members.html"/>
 <a href="interfaceblas_1_1dgemm.html"/>
@@ -143,18 +147,26 @@
 <a href="interfacelinalg_1_1band__mtx__mult-members.html"/>
 <a href="interfacelinalg_1_1band__mtx__to__full__mtx.html"/>
 <a href="interfacelinalg_1_1band__mtx__to__full__mtx-members.html"/>
+<a href="interfacelinalg_1_1banded__to__dense.html"/>
+<a href="interfacelinalg_1_1banded__to__dense-members.html"/>
 <a href="interfacelinalg_1_1cholesky__factor.html"/>
 <a href="interfacelinalg_1_1cholesky__factor-members.html"/>
 <a href="interfacelinalg_1_1cholesky__rank1__downdate.html"/>
 <a href="interfacelinalg_1_1cholesky__rank1__downdate-members.html"/>
 <a href="interfacelinalg_1_1cholesky__rank1__update.html"/>
 <a href="interfacelinalg_1_1cholesky__rank1__update-members.html"/>
+<a href="structlinalg_1_1csr__matrix.html"/>
+<a href="structlinalg_1_1csr__matrix-members.html"/>
+<a href="interfacelinalg_1_1dense__to__banded.html"/>
+<a href="interfacelinalg_1_1dense__to__banded-members.html"/>
 <a href="interfacelinalg_1_1det.html"/>
 <a href="interfacelinalg_1_1det-members.html"/>
 <a href="interfacelinalg_1_1diag__mtx__mult.html"/>
 <a href="interfacelinalg_1_1diag__mtx__mult-members.html"/>
 <a href="interfacelinalg_1_1eigen.html"/>
 <a href="interfacelinalg_1_1eigen-members.html"/>
+<a href="interfacelinalg_1_1extract__diagonal.html"/>
+<a href="interfacelinalg_1_1extract__diagonal-members.html"/>
 <a href="interfacelinalg_1_1form__lq.html"/>
 <a href="interfacelinalg_1_1form__lq-members.html"/>
 <a href="interfacelinalg_1_1form__lu.html"/>
@@ -165,6 +177,10 @@
 <a href="interfacelinalg_1_1lq__factor-members.html"/>
 <a href="interfacelinalg_1_1lu__factor.html"/>
 <a href="interfacelinalg_1_1lu__factor-members.html"/>
+<a href="interfacelinalg_1_1matmul.html"/>
+<a href="interfacelinalg_1_1matmul-members.html"/>
+<a href="structlinalg_1_1msr__matrix.html"/>
+<a href="structlinalg_1_1msr__matrix-members.html"/>
 <a href="interfacelinalg_1_1mtx__inverse.html"/>
 <a href="interfacelinalg_1_1mtx__inverse-members.html"/>
 <a href="interfacelinalg_1_1mtx__mult.html"/>
@@ -179,6 +195,18 @@
 <a href="interfacelinalg_1_1mult__qr-members.html"/>
 <a href="interfacelinalg_1_1mult__rz.html"/>
 <a href="interfacelinalg_1_1mult__rz-members.html"/>
+<a href="interfacelinalg_1_1nonzero__count.html"/>
+<a href="interfacelinalg_1_1nonzero__count-members.html"/>
+<a href="interfacelinalg_1_1operator_07_5_08.html"/>
+<a href="interfacelinalg_1_1operator_07_5_08-members.html"/>
+<a href="interfacelinalg_1_1operator_07_09_08.html"/>
+<a href="interfacelinalg_1_1operator_07_09_08-members.html"/>
+<a href="interfacelinalg_1_1operator_07-_08.html"/>
+<a href="interfacelinalg_1_1operator_07-_08-members.html"/>
+<a href="interfacelinalg_1_1operator_07_2_08.html"/>
+<a href="interfacelinalg_1_1operator_07_2_08-members.html"/>
+<a href="interfacelinalg_1_1pgmres__solver.html"/>
+<a href="interfacelinalg_1_1pgmres__solver-members.html"/>
 <a href="interfacelinalg_1_1qr__factor.html"/>
 <a href="interfacelinalg_1_1qr__factor-members.html"/>
 <a href="interfacelinalg_1_1qr__rank1__update.html"/>
@@ -189,6 +217,8 @@
 <a href="interfacelinalg_1_1recip__mult__array-members.html"/>
 <a href="interfacelinalg_1_1rz__factor.html"/>
 <a href="interfacelinalg_1_1rz__factor-members.html"/>
+<a href="interfacelinalg_1_1size.html"/>
+<a href="interfacelinalg_1_1size-members.html"/>
 <a href="interfacelinalg_1_1solve__cholesky.html"/>
 <a href="interfacelinalg_1_1solve__cholesky-members.html"/>
 <a href="interfacelinalg_1_1solve__least__squares.html"/>
@@ -207,12 +237,16 @@
 <a href="interfacelinalg_1_1solve__triangular__system-members.html"/>
 <a href="interfacelinalg_1_1sort.html"/>
 <a href="interfacelinalg_1_1sort-members.html"/>
+<a href="interfacelinalg_1_1sparse__direct__solve.html"/>
+<a href="interfacelinalg_1_1sparse__direct__solve-members.html"/>
 <a href="interfacelinalg_1_1svd.html"/>
 <a href="interfacelinalg_1_1svd-members.html"/>
 <a href="interfacelinalg_1_1swap.html"/>
 <a href="interfacelinalg_1_1swap-members.html"/>
 <a href="interfacelinalg_1_1trace.html"/>
 <a href="interfacelinalg_1_1trace-members.html"/>
+<a href="interfacelinalg_1_1transpose.html"/>
+<a href="interfacelinalg_1_1transpose-members.html"/>
 <a href="interfacelinalg_1_1tri__mtx__mult.html"/>
 <a href="interfacelinalg_1_1tri__mtx__mult-members.html"/>
 <a href="namespaceqrupdate.html"/>
@@ -228,6 +262,37 @@
 <a href="interfaceqrupdate_1_1zch1up-members.html"/>
 <a href="interfaceqrupdate_1_1zqr1up.html"/>
 <a href="interfaceqrupdate_1_1zqr1up-members.html"/>
+<a href="namespacesparskit.html"/>
+<a href="interfacesparskit_1_1amub.html"/>
+<a href="interfacesparskit_1_1amub-members.html"/>
+<a href="interfacesparskit_1_1aplb.html"/>
+<a href="interfacesparskit_1_1aplb-members.html"/>
+<a href="interfacesparskit_1_1aplsb.html"/>
+<a href="interfacesparskit_1_1aplsb-members.html"/>
+<a href="interfacesparskit_1_1bndcsr.html"/>
+<a href="interfacesparskit_1_1bndcsr-members.html"/>
+<a href="interfacesparskit_1_1csrcsc2.html"/>
+<a href="interfacesparskit_1_1csrcsc2-members.html"/>
+<a href="interfacesparskit_1_1csrmsr.html"/>
+<a href="interfacesparskit_1_1csrmsr-members.html"/>
+<a href="interfacesparskit_1_1getdia.html"/>
+<a href="interfacesparskit_1_1getdia-members.html"/>
+<a href="interfacesparskit_1_1getelm.html"/>
+<a href="interfacesparskit_1_1getelm-members.html"/>
+<a href="interfacesparskit_1_1ilud.html"/>
+<a href="interfacesparskit_1_1ilud-members.html"/>
+<a href="interfacesparskit_1_1iludp.html"/>
+<a href="interfacesparskit_1_1iludp-members.html"/>
+<a href="interfacesparskit_1_1ilut.html"/>
+<a href="interfacesparskit_1_1ilut-members.html"/>
+<a href="interfacesparskit_1_1ilutp.html"/>
+<a href="interfacesparskit_1_1ilutp-members.html"/>
+<a href="interfacesparskit_1_1lusol.html"/>
+<a href="interfacesparskit_1_1lusol-members.html"/>
+<a href="interfacesparskit_1_1msrcsr.html"/>
+<a href="interfacesparskit_1_1msrcsr-members.html"/>
+<a href="interfacesparskit_1_1pgmres.html"/>
+<a href="interfacesparskit_1_1pgmres-members.html"/>
 <a href="graph_legend.html"/>
 <a href="dir_d44c64559bbebec7f509842c48db8b23.html"/>
 <a href="dir_68267d1309a1af8e8297ef4c3efbcdba.html"/>
@@ -238,6 +303,16 @@
 <a href="namespacemembers_vars.html"/>
 <a href="annotated.html"/>
 <a href="classes.html"/>
+<a href="functions.html"/>
+<a href="functions.html"/>
+<a href="functions.html"/>
+<a href="functions.html"/>
+<a href="functions.html"/>
+<a href="functions_func.html"/>
+<a href="functions_vars.html"/>
+<a href="functions_vars.html"/>
+<a href="functions_vars.html"/>
+<a href="functions_vars.html"/>
 <a href="files.html"/>
 <a href="globals.html"/>
 <a href="globals_func.html"/>
diff --git a/docs/html/files.html b/docs/html/files.html
index 9d86425e..08f05a18 100644
--- a/docs/html/files.html
+++ b/docs/html/files.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -115,7 +115,9 @@
 <tr id="row_1_5_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="linalg__factor_8f90_source.html"><span class="icondoc"></span></a><b>linalg_factor.f90</b></td><td class="desc"></td></tr>
 <tr id="row_1_6_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="linalg__solve_8f90_source.html"><span class="icondoc"></span></a><b>linalg_solve.f90</b></td><td class="desc"></td></tr>
 <tr id="row_1_7_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="linalg__sorting_8f90_source.html"><span class="icondoc"></span></a><b>linalg_sorting.f90</b></td><td class="desc"></td></tr>
-<tr id="row_1_8_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="qrupdate_8f90_source.html"><span class="icondoc"></span></a><b>qrupdate.f90</b></td><td class="desc"></td></tr>
+<tr id="row_1_8_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="linalg__sparse_8f90_source.html"><span class="icondoc"></span></a><b>linalg_sparse.f90</b></td><td class="desc"></td></tr>
+<tr id="row_1_9_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="qrupdate_8f90_source.html"><span class="icondoc"></span></a><b>qrupdate.f90</b></td><td class="desc"></td></tr>
+<tr id="row_1_10_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><a href="sparskit_8f90_source.html"><span class="icondoc"></span></a><b>sparskit.f90</b></td><td class="desc"></td></tr>
 </table>
 </div><!-- directory -->
 </div><!-- contents -->
diff --git a/docs/html/functions.html b/docs/html/functions.html
index 8f414088..3b2c7699 100644
--- a/docs/html/functions.html
+++ b/docs/html/functions.html
@@ -3,16 +3,18 @@
 <head>
 <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
 <meta http-equiv="X-UA-Compatible" content="IE=11"/>
-<meta name="generator" content="Doxygen 1.9.5"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
 <meta name="viewport" content="width=device-width, initial-scale=1"/>
 <title>linalg: Data Fields</title>
 <link href="tabs.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="jquery.js"></script>
 <script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
 <link href="navtree.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="resize.js"></script>
 <script type="text/javascript" src="navtreedata.js"></script>
 <script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
 <link href="search/search.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="search/searchdata.js"></script>
 <script type="text/javascript" src="search/search.js"></script>
@@ -32,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.6.1</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -41,7 +43,7 @@
 </table>
 </div>
 <!-- end header part -->
-<!-- Generated by Doxygen 1.9.5 -->
+<!-- Generated by Doxygen 1.10.0 -->
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 var searchBox = new SearchBox("searchBox", "search/",'.html');
@@ -53,7 +55,7 @@
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 $(function() {
   initMenu('',true,false,'search.php','Search');
-  $(document).ready(function() { init_search(); });
+  $(function() { init_search(); });
 });
 /* @license-end */
 </script>
@@ -71,7 +73,7 @@
 </div>
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
-$(document).ready(function(){initNavTree('functions.html',''); initResizable(); });
+$(function(){initNavTree('functions.html',''); initResizable(); });
 /* @license-end */
 </script>
 <div id="doc-content">
@@ -98,22 +100,18 @@
 
 <div class="contents">
 <div class="textblock">Here is a list of all documented data types members with links to the data structure documentation for each member</div><ul>
-<li>l&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#a7a11c264a8858527ebc021e609600cbb">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a0634e363082d3c94fab5d5c73755f4ae">linalg_immutable::lu_results_cmplx</a></li>
-<li>p&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#ae1e1fd78123e04a2be4f1bfd25ddddb1">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a99d03bc910361aab08d17fcc4aaa960d">linalg_immutable::lu_results_cmplx</a>, <a class="el" href="structlinalg__immutable_1_1qr__results.html#a053899b9dffba08b5052544c13d4983c">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a782d54320ca646427702d5f2e0a9372f">linalg_immutable::qr_results_cmplx</a></li>
-<li>q&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1qr__results.html#a91547ec8def57c0cc59271ccf59b3a01">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a7fa839ced2d020c61550d5b6cff9bb69">linalg_immutable::qr_results_cmplx</a></li>
-<li>r&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1qr__results.html#aeeea31b1fad256f5fcc2462b2990d56b">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a9382745395a25db425c5de89c33df2cd">linalg_immutable::qr_results_cmplx</a></li>
-<li>s&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1svd__results.html#acbc05e1d170351bbfcd4cd1f089c81d8">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#a66544dafaacf2b5465e6b1c55d804fff">linalg_immutable::svd_results_cmplx</a></li>
-<li>u&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#ab1af96c7808037f63563e1bf912c4dad">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a7488afe2004b11c8fed4c517400fde98">linalg_immutable::lu_results_cmplx</a>, <a class="el" href="structlinalg__immutable_1_1svd__results.html#a582822c9765048fcb8632d72a6ed506a">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#ae65cfdf6d19c3bbb3a7e425db266cb3c">linalg_immutable::svd_results_cmplx</a></li>
-<li>values&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1eigen__results.html#abb60901ab160c6fd232cfb46ed0bf3cc">linalg_immutable::eigen_results</a></li>
-<li>vectors&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1eigen__results.html#a982607b9c3ff93504bb4524dcd31a442">linalg_immutable::eigen_results</a></li>
-<li>vt&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1svd__results.html#af5c35f3392431179a5cb15d1cddf7cb1">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#af9e74638b38510fb24de3f3a6ea30de8">linalg_immutable::svd_results_cmplx</a></li>
+<li>column_indices&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307">linalg::csr_matrix</a></li>
+<li>get()&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf">linalg::csr_matrix</a></li>
+<li>indices&#160;:&#160;<a class="el" href="structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a">linalg::msr_matrix</a></li>
+<li>row_indices&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de">linalg::csr_matrix</a></li>
+<li>values&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5">linalg::csr_matrix</a>, <a class="el" href="structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75">linalg::msr_matrix</a></li>
 </ul>
 </div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
 <div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
   <ul>
-    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.9.5 </li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
   </ul>
 </div>
 </body>
diff --git a/docs/html/functions_func.html b/docs/html/functions_func.html
index 4611922d..46fd35e4 100644
--- a/docs/html/functions_func.html
+++ b/docs/html/functions_func.html
@@ -3,16 +3,18 @@
 <head>
 <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
 <meta http-equiv="X-UA-Compatible" content="IE=11"/>
-<meta name="generator" content="Doxygen 1.9.5"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
 <meta name="viewport" content="width=device-width, initial-scale=1"/>
 <title>linalg: Data Fields - Functions/Subroutines</title>
 <link href="tabs.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="jquery.js"></script>
 <script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
 <link href="navtree.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="resize.js"></script>
 <script type="text/javascript" src="navtreedata.js"></script>
 <script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
 <link href="search/search.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="search/searchdata.js"></script>
 <script type="text/javascript" src="search/search.js"></script>
@@ -32,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.6.1</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -41,7 +43,7 @@
 </table>
 </div>
 <!-- end header part -->
-<!-- Generated by Doxygen 1.9.5 -->
+<!-- Generated by Doxygen 1.10.0 -->
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 var searchBox = new SearchBox("searchBox", "search/",'.html');
@@ -53,7 +55,7 @@
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 $(function() {
   initMenu('',true,false,'search.php','Search');
-  $(document).ready(function() { init_search(); });
+  $(function() { init_search(); });
 });
 /* @license-end */
 </script>
@@ -71,7 +73,7 @@
 </div>
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
-$(document).ready(function(){initNavTree('functions_func.html',''); initResizable(); });
+$(function(){initNavTree('functions_func.html',''); initResizable(); });
 /* @license-end */
 </script>
 <div id="doc-content">
@@ -97,40 +99,15 @@
 </div>
 
 <div class="contents">
-&#160;<ul>
-<li>mat_eigen_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__eigen.html#a30c4db4bc943963757cc91e6b01e591b">linalg_immutable::mat_eigen</a></li>
-<li>mat_eigen_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__eigen.html#a9eaef6fd28d9713ebba5dbd3ca44deff">linalg_immutable::mat_eigen</a></li>
-<li>mat_lu_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__lu.html#a085e6774ff582e30cb7bcd45d554a585">linalg_immutable::mat_lu</a></li>
-<li>mat_lu_dbl()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__lu.html#ab5bb8b86586008f8958cf7d026cc541f">linalg_immutable::mat_lu</a></li>
-<li>mat_mult_diag_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#ac7e97da527c8e0ba4be582d79fe94331">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_diag_1_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#a202551e80ef44a3b0cfc827c1d33cbcd">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_diag_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#a2977bc4d536b8c40e77f222be6b1bb9e">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_diag_2_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#a81769d8240f87a60da4e7c66fca2d5f7">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_diag_3()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#a387bdf49e35ada60f819efb7db189f78">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_diag_3_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__diag.html#a126d23945fc3d2280e4a6edbaa2ad5c9">linalg_immutable::mat_mult_diag</a></li>
-<li>mat_mult_lower_tri_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__lower__tri.html#a588ba3472cb80109671f756d611ed023">linalg_immutable::mat_mult_lower_tri</a></li>
-<li>mat_mult_lower_tri_1_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__lower__tri.html#ace28e02e648b20c69f10919e0e9ab839">linalg_immutable::mat_mult_lower_tri</a></li>
-<li>mat_mult_lower_tri_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__lower__tri.html#a9754468f10374e34e1a2fb40ce1206e0">linalg_immutable::mat_mult_lower_tri</a></li>
-<li>mat_mult_lower_tri_2_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__lower__tri.html#ac1a3df11bc32e8f90d4f623620c7006f">linalg_immutable::mat_mult_lower_tri</a></li>
-<li>mat_mult_upper_tri_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__upper__tri.html#a20ce53441ab78f4879a43849c1ed2447">linalg_immutable::mat_mult_upper_tri</a></li>
-<li>mat_mult_upper_tri_1_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__upper__tri.html#a6a23337b162b1b1343fac5c9fc4ecd5e">linalg_immutable::mat_mult_upper_tri</a></li>
-<li>mat_mult_upper_tri_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__upper__tri.html#a39d766d741737c85e6a7f9f60b36f855">linalg_immutable::mat_mult_upper_tri</a></li>
-<li>mat_mult_upper_tri_2_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__mult__upper__tri.html#a64fdf72e665743c6b8703b9dec595e3f">linalg_immutable::mat_mult_upper_tri</a></li>
-<li>mat_solve_lower_tri_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__lower__tri.html#a9b40869b879ddc2e960a7ec46d17c09a">linalg_immutable::mat_solve_lower_tri</a></li>
-<li>mat_solve_lower_tri_1_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__lower__tri.html#aa0c0c7078ffd02046021c6bd25375a58">linalg_immutable::mat_solve_lower_tri</a></li>
-<li>mat_solve_lower_tri_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__lower__tri.html#a4e1d7b1aaa7aa8eeff2c09a481cbb9fa">linalg_immutable::mat_solve_lower_tri</a></li>
-<li>mat_solve_lower_tri_2_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__lower__tri.html#a2dc5a090481dd5226c19214205a2c047">linalg_immutable::mat_solve_lower_tri</a></li>
-<li>mat_solve_upper_tri_1()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__upper__tri.html#a97f528aee778d8ddfdcb52058d048de7">linalg_immutable::mat_solve_upper_tri</a></li>
-<li>mat_solve_upper_tri_1_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__upper__tri.html#a59e1f0aed5b9fd5b952542d8e669fdbd">linalg_immutable::mat_solve_upper_tri</a></li>
-<li>mat_solve_upper_tri_2()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__upper__tri.html#a8085ffccaa724ae8f60c897fa38691f7">linalg_immutable::mat_solve_upper_tri</a></li>
-<li>mat_solve_upper_tri_2_cmplx()&#160;:&#160;<a class="el" href="interfacelinalg__immutable_1_1mat__solve__upper__tri.html#a93e3f2a1097e88c8da32d6e13eb0472f">linalg_immutable::mat_solve_upper_tri</a></li>
+<div class="textblock">Here is a list of all documented functions with links to the class documentation for each member:</div><ul>
+<li>get()&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf">linalg::csr_matrix</a></li>
 </ul>
 </div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
 <div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
   <ul>
-    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.9.5 </li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
   </ul>
 </div>
 </body>
diff --git a/docs/html/functions_vars.html b/docs/html/functions_vars.html
index 25091ab9..38105353 100644
--- a/docs/html/functions_vars.html
+++ b/docs/html/functions_vars.html
@@ -3,16 +3,18 @@
 <head>
 <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
 <meta http-equiv="X-UA-Compatible" content="IE=11"/>
-<meta name="generator" content="Doxygen 1.9.5"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
 <meta name="viewport" content="width=device-width, initial-scale=1"/>
 <title>linalg: Data Fields - Variables</title>
 <link href="tabs.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="jquery.js"></script>
 <script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
 <link href="navtree.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="resize.js"></script>
 <script type="text/javascript" src="navtreedata.js"></script>
 <script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
 <link href="search/search.css" rel="stylesheet" type="text/css"/>
 <script type="text/javascript" src="search/searchdata.js"></script>
 <script type="text/javascript" src="search/search.js"></script>
@@ -32,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.6.1</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -41,7 +43,7 @@
 </table>
 </div>
 <!-- end header part -->
-<!-- Generated by Doxygen 1.9.5 -->
+<!-- Generated by Doxygen 1.10.0 -->
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 var searchBox = new SearchBox("searchBox", "search/",'.html');
@@ -53,7 +55,7 @@
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
 $(function() {
   initMenu('',true,false,'search.php','Search');
-  $(document).ready(function() { init_search(); });
+  $(function() { init_search(); });
 });
 /* @license-end */
 </script>
@@ -71,7 +73,7 @@
 </div>
 <script type="text/javascript">
 /* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
-$(document).ready(function(){initNavTree('functions_vars.html',''); initResizable(); });
+$(function(){initNavTree('functions_vars.html',''); initResizable(); });
 /* @license-end */
 </script>
 <div id="doc-content">
@@ -97,23 +99,18 @@
 </div>
 
 <div class="contents">
-&#160;<ul>
-<li>l&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#a7a11c264a8858527ebc021e609600cbb">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a0634e363082d3c94fab5d5c73755f4ae">linalg_immutable::lu_results_cmplx</a></li>
-<li>p&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#ae1e1fd78123e04a2be4f1bfd25ddddb1">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a99d03bc910361aab08d17fcc4aaa960d">linalg_immutable::lu_results_cmplx</a>, <a class="el" href="structlinalg__immutable_1_1qr__results.html#a053899b9dffba08b5052544c13d4983c">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a782d54320ca646427702d5f2e0a9372f">linalg_immutable::qr_results_cmplx</a></li>
-<li>q&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1qr__results.html#a91547ec8def57c0cc59271ccf59b3a01">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a7fa839ced2d020c61550d5b6cff9bb69">linalg_immutable::qr_results_cmplx</a></li>
-<li>r&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1qr__results.html#aeeea31b1fad256f5fcc2462b2990d56b">linalg_immutable::qr_results</a>, <a class="el" href="structlinalg__immutable_1_1qr__results__cmplx.html#a9382745395a25db425c5de89c33df2cd">linalg_immutable::qr_results_cmplx</a></li>
-<li>s&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1svd__results.html#acbc05e1d170351bbfcd4cd1f089c81d8">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#a66544dafaacf2b5465e6b1c55d804fff">linalg_immutable::svd_results_cmplx</a></li>
-<li>u&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1lu__results.html#ab1af96c7808037f63563e1bf912c4dad">linalg_immutable::lu_results</a>, <a class="el" href="structlinalg__immutable_1_1lu__results__cmplx.html#a7488afe2004b11c8fed4c517400fde98">linalg_immutable::lu_results_cmplx</a>, <a class="el" href="structlinalg__immutable_1_1svd__results.html#a582822c9765048fcb8632d72a6ed506a">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#ae65cfdf6d19c3bbb3a7e425db266cb3c">linalg_immutable::svd_results_cmplx</a></li>
-<li>values&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1eigen__results.html#abb60901ab160c6fd232cfb46ed0bf3cc">linalg_immutable::eigen_results</a></li>
-<li>vectors&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1eigen__results.html#a982607b9c3ff93504bb4524dcd31a442">linalg_immutable::eigen_results</a></li>
-<li>vt&#160;:&#160;<a class="el" href="structlinalg__immutable_1_1svd__results.html#af5c35f3392431179a5cb15d1cddf7cb1">linalg_immutable::svd_results</a>, <a class="el" href="structlinalg__immutable_1_1svd__results__cmplx.html#af9e74638b38510fb24de3f3a6ea30de8">linalg_immutable::svd_results_cmplx</a></li>
+<div class="textblock">Here is a list of all documented variables with links to the class documentation for each member:</div><ul>
+<li>column_indices&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307">linalg::csr_matrix</a></li>
+<li>indices&#160;:&#160;<a class="el" href="structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a">linalg::msr_matrix</a></li>
+<li>row_indices&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de">linalg::csr_matrix</a></li>
+<li>values&#160;:&#160;<a class="el" href="structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5">linalg::csr_matrix</a>, <a class="el" href="structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75">linalg::msr_matrix</a></li>
 </ul>
 </div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
 <div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
   <ul>
-    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.9.5 </li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
   </ul>
 </div>
 </body>
diff --git a/docs/html/globals.html b/docs/html/globals.html
index 592ca532..762f3ae4 100644
--- a/docs/html/globals.html
+++ b/docs/html/globals.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/globals_func.html b/docs/html/globals_func.html
index fdbaaf3f..a438da42 100644
--- a/docs/html/globals_func.html
+++ b/docs/html/globals_func.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/graph_legend.html b/docs/html/graph_legend.html
index 746893cb..90d78e92 100644
--- a/docs/html/graph_legend.html
+++ b/docs/html/graph_legend.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/index.html b/docs/html/index.html
index 22f93e1e..18ddf549 100644
--- a/docs/html/index.html
+++ b/docs/html/index.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -144,8 +144,8 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LU Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02291">linalg.f90:2291</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02420">linalg.f90:2420</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --><p> The program generates the following output. </p><div class="fragment"><div class="line">LU Solution: X =</div>
 <div class="line"> 0.3333</div>
@@ -209,7 +209,7 @@
 <div class="line">        print <span class="stringliteral">&#39;(F10.3)&#39;</span>, (real(modeshapes(j,i)), j = 1, <span class="keyword">size</span>(natfreq))</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03240">linalg.f90:3240</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03370">linalg.f90:3370</a></div></div>
 </div><!-- fragment --><p> The above program produces the following output. </p><div class="fragment"><div class="line">Modal Information:</div>
 <div class="line">Mode 1: (232.9225 Hz)</div>
 <div class="line">    -0.718</div>
diff --git a/docs/html/interfaceblas_1_1ddot-members.html b/docs/html/interfaceblas_1_1ddot-members.html
new file mode 100644
index 00000000..aba2fe45
--- /dev/null
+++ b/docs/html/interfaceblas_1_1ddot-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfaceblas_1_1ddot.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">blas::ddot Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfaceblas_1_1ddot.html">blas::ddot</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>ddot</b>(n, dx, incx, dy, incy) (defined in <a class="el" href="interfaceblas_1_1ddot.html">blas::ddot</a>)</td><td class="entry"><a class="el" href="interfaceblas_1_1ddot.html">blas::ddot</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfaceblas_1_1ddot.html b/docs/html/interfaceblas_1_1ddot.html
new file mode 100644
index 00000000..c8fbb7d8
--- /dev/null
+++ b/docs/html/interfaceblas_1_1ddot.html
@@ -0,0 +1,169 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: blas::ddot Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfaceblas_1_1ddot.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfaceblas_1_1ddot-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">blas::ddot Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a14c3dee4c2cf87ef0e29b29917a44c74" id="r_a14c3dee4c2cf87ef0e29b29917a44c74"><td class="memItemLeft" align="right" valign="top">real(real64) function&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a14c3dee4c2cf87ef0e29b29917a44c74">ddot</a> (n, dx, incx, dy, incy)</td></tr>
+<tr class="separator:a14c3dee4c2cf87ef0e29b29917a44c74"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock">
+<p class="definition">Definition at line <a class="el" href="blas_8f90_source.html#l00111">111</a> of file <a class="el" href="blas_8f90_source.html">blas.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a14c3dee4c2cf87ef0e29b29917a44c74" name="a14c3dee4c2cf87ef0e29b29917a44c74"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a14c3dee4c2cf87ef0e29b29917a44c74">&#9670;&#160;</a></span>ddot()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">real(real64) function blas::ddot::ddot </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>dx</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>incx</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>dy</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>incy</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="blas_8f90_source.html#l00111">111</a> of file <a class="el" href="blas_8f90_source.html">blas.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="blas_8f90_source.html">blas.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespaceblas.html">blas</a></li><li class="navelem"><a class="el" href="interfaceblas_1_1ddot.html">ddot</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfaceblas_1_1dgbmv-members.html b/docs/html/interfaceblas_1_1dgbmv-members.html
index 7edd4b9d..c8d6e993 100644
--- a/docs/html/interfaceblas_1_1dgbmv-members.html
+++ b/docs/html/interfaceblas_1_1dgbmv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dgbmv.html b/docs/html/interfaceblas_1_1dgbmv.html
index 40d8df6e..2d753224 100644
--- a/docs/html/interfaceblas_1_1dgbmv.html
+++ b/docs/html/interfaceblas_1_1dgbmv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dgemm-members.html b/docs/html/interfaceblas_1_1dgemm-members.html
index 92aa29c5..8dd557c1 100644
--- a/docs/html/interfaceblas_1_1dgemm-members.html
+++ b/docs/html/interfaceblas_1_1dgemm-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dgemm.html b/docs/html/interfaceblas_1_1dgemm.html
index ba1bbf4e..3be9d963 100644
--- a/docs/html/interfaceblas_1_1dgemm.html
+++ b/docs/html/interfaceblas_1_1dgemm.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dgemv-members.html b/docs/html/interfaceblas_1_1dgemv-members.html
index 3088b845..bd6cb7f7 100644
--- a/docs/html/interfaceblas_1_1dgemv-members.html
+++ b/docs/html/interfaceblas_1_1dgemv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dgemv.html b/docs/html/interfaceblas_1_1dgemv.html
index b63cc320..db29095a 100644
--- a/docs/html/interfaceblas_1_1dgemv.html
+++ b/docs/html/interfaceblas_1_1dgemv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dscal-members.html b/docs/html/interfaceblas_1_1dscal-members.html
index 1a1f6e27..dc388dec 100644
--- a/docs/html/interfaceblas_1_1dscal-members.html
+++ b/docs/html/interfaceblas_1_1dscal-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dscal.html b/docs/html/interfaceblas_1_1dscal.html
index f039f78a..bb4c8f77 100644
--- a/docs/html/interfaceblas_1_1dscal.html
+++ b/docs/html/interfaceblas_1_1dscal.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dtrsm-members.html b/docs/html/interfaceblas_1_1dtrsm-members.html
index 5b9c546a..a7d427da 100644
--- a/docs/html/interfaceblas_1_1dtrsm-members.html
+++ b/docs/html/interfaceblas_1_1dtrsm-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dtrsm.html b/docs/html/interfaceblas_1_1dtrsm.html
index e4f7b9e5..f4a80998 100644
--- a/docs/html/interfaceblas_1_1dtrsm.html
+++ b/docs/html/interfaceblas_1_1dtrsm.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dtrsv-members.html b/docs/html/interfaceblas_1_1dtrsv-members.html
index e9e83b98..04a9d5e2 100644
--- a/docs/html/interfaceblas_1_1dtrsv-members.html
+++ b/docs/html/interfaceblas_1_1dtrsv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1dtrsv.html b/docs/html/interfaceblas_1_1dtrsv.html
index 512afe03..9fe10450 100644
--- a/docs/html/interfaceblas_1_1dtrsv.html
+++ b/docs/html/interfaceblas_1_1dtrsv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zdscal-members.html b/docs/html/interfaceblas_1_1zdscal-members.html
index 35130ca2..dd9c447c 100644
--- a/docs/html/interfaceblas_1_1zdscal-members.html
+++ b/docs/html/interfaceblas_1_1zdscal-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zdscal.html b/docs/html/interfaceblas_1_1zdscal.html
index 5c2714cd..7152fc37 100644
--- a/docs/html/interfaceblas_1_1zdscal.html
+++ b/docs/html/interfaceblas_1_1zdscal.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgbmv-members.html b/docs/html/interfaceblas_1_1zgbmv-members.html
index 63c22c07..87cb035b 100644
--- a/docs/html/interfaceblas_1_1zgbmv-members.html
+++ b/docs/html/interfaceblas_1_1zgbmv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgbmv.html b/docs/html/interfaceblas_1_1zgbmv.html
index 475e24c5..04fc20e8 100644
--- a/docs/html/interfaceblas_1_1zgbmv.html
+++ b/docs/html/interfaceblas_1_1zgbmv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgemm-members.html b/docs/html/interfaceblas_1_1zgemm-members.html
index 5e0155a2..63ce388e 100644
--- a/docs/html/interfaceblas_1_1zgemm-members.html
+++ b/docs/html/interfaceblas_1_1zgemm-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgemm.html b/docs/html/interfaceblas_1_1zgemm.html
index e14f0d21..6e8ac981 100644
--- a/docs/html/interfaceblas_1_1zgemm.html
+++ b/docs/html/interfaceblas_1_1zgemm.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgemv-members.html b/docs/html/interfaceblas_1_1zgemv-members.html
index 534eb376..b2692622 100644
--- a/docs/html/interfaceblas_1_1zgemv-members.html
+++ b/docs/html/interfaceblas_1_1zgemv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zgemv.html b/docs/html/interfaceblas_1_1zgemv.html
index e41704cc..6a5ed9c6 100644
--- a/docs/html/interfaceblas_1_1zgemv.html
+++ b/docs/html/interfaceblas_1_1zgemv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zscal-members.html b/docs/html/interfaceblas_1_1zscal-members.html
index f42560ff..a858ad92 100644
--- a/docs/html/interfaceblas_1_1zscal-members.html
+++ b/docs/html/interfaceblas_1_1zscal-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1zscal.html b/docs/html/interfaceblas_1_1zscal.html
index d80250ea..5871c1b1 100644
--- a/docs/html/interfaceblas_1_1zscal.html
+++ b/docs/html/interfaceblas_1_1zscal.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1ztrsm-members.html b/docs/html/interfaceblas_1_1ztrsm-members.html
index 2646d3ef..7da8a56f 100644
--- a/docs/html/interfaceblas_1_1ztrsm-members.html
+++ b/docs/html/interfaceblas_1_1ztrsm-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1ztrsm.html b/docs/html/interfaceblas_1_1ztrsm.html
index 547122f2..1bc8ec9b 100644
--- a/docs/html/interfaceblas_1_1ztrsm.html
+++ b/docs/html/interfaceblas_1_1ztrsm.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1ztrsv-members.html b/docs/html/interfaceblas_1_1ztrsv-members.html
index aa5c5907..8d9b835d 100644
--- a/docs/html/interfaceblas_1_1ztrsv-members.html
+++ b/docs/html/interfaceblas_1_1ztrsv-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceblas_1_1ztrsv.html b/docs/html/interfaceblas_1_1ztrsv.html
index 8e9fdd6a..89a5dea3 100644
--- a/docs/html/interfaceblas_1_1ztrsv.html
+++ b/docs/html/interfaceblas_1_1ztrsv.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeev-members.html b/docs/html/interfacelapack_1_1dgeev-members.html
index 37dce9e6..6c18dc39 100644
--- a/docs/html/interfacelapack_1_1dgeev-members.html
+++ b/docs/html/interfacelapack_1_1dgeev-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeev.html b/docs/html/interfacelapack_1_1dgeev.html
index 6b3549d3..0699f5b2 100644
--- a/docs/html/interfacelapack_1_1dgeev.html
+++ b/docs/html/interfacelapack_1_1dgeev.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelqf-members.html b/docs/html/interfacelapack_1_1dgelqf-members.html
index d68be660..7f8d3a3f 100644
--- a/docs/html/interfacelapack_1_1dgelqf-members.html
+++ b/docs/html/interfacelapack_1_1dgelqf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelqf.html b/docs/html/interfacelapack_1_1dgelqf.html
index 0dab1708..5917ecbf 100644
--- a/docs/html/interfacelapack_1_1dgelqf.html
+++ b/docs/html/interfacelapack_1_1dgelqf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgels-members.html b/docs/html/interfacelapack_1_1dgels-members.html
index fcc73485..a4e642d5 100644
--- a/docs/html/interfacelapack_1_1dgels-members.html
+++ b/docs/html/interfacelapack_1_1dgels-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgels.html b/docs/html/interfacelapack_1_1dgels.html
index 540437a9..18e833d5 100644
--- a/docs/html/interfacelapack_1_1dgels.html
+++ b/docs/html/interfacelapack_1_1dgels.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelss-members.html b/docs/html/interfacelapack_1_1dgelss-members.html
index 314c67aa..3bd36978 100644
--- a/docs/html/interfacelapack_1_1dgelss-members.html
+++ b/docs/html/interfacelapack_1_1dgelss-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelss.html b/docs/html/interfacelapack_1_1dgelss.html
index 726380fd..5d2cb07f 100644
--- a/docs/html/interfacelapack_1_1dgelss.html
+++ b/docs/html/interfacelapack_1_1dgelss.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelsy-members.html b/docs/html/interfacelapack_1_1dgelsy-members.html
index 4c8b0cd4..1d0c1d24 100644
--- a/docs/html/interfacelapack_1_1dgelsy-members.html
+++ b/docs/html/interfacelapack_1_1dgelsy-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgelsy.html b/docs/html/interfacelapack_1_1dgelsy.html
index 758fe8eb..3ffdd07f 100644
--- a/docs/html/interfacelapack_1_1dgelsy.html
+++ b/docs/html/interfacelapack_1_1dgelsy.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeqp3-members.html b/docs/html/interfacelapack_1_1dgeqp3-members.html
index 7dc7e6d1..665aeac8 100644
--- a/docs/html/interfacelapack_1_1dgeqp3-members.html
+++ b/docs/html/interfacelapack_1_1dgeqp3-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeqp3.html b/docs/html/interfacelapack_1_1dgeqp3.html
index 08e297df..b6227e4c 100644
--- a/docs/html/interfacelapack_1_1dgeqp3.html
+++ b/docs/html/interfacelapack_1_1dgeqp3.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeqrf-members.html b/docs/html/interfacelapack_1_1dgeqrf-members.html
index 3a007305..861a9918 100644
--- a/docs/html/interfacelapack_1_1dgeqrf-members.html
+++ b/docs/html/interfacelapack_1_1dgeqrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgeqrf.html b/docs/html/interfacelapack_1_1dgeqrf.html
index 45cf640f..a9260c4c 100644
--- a/docs/html/interfacelapack_1_1dgeqrf.html
+++ b/docs/html/interfacelapack_1_1dgeqrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgesvd-members.html b/docs/html/interfacelapack_1_1dgesvd-members.html
index e2c02613..be12e983 100644
--- a/docs/html/interfacelapack_1_1dgesvd-members.html
+++ b/docs/html/interfacelapack_1_1dgesvd-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgesvd.html b/docs/html/interfacelapack_1_1dgesvd.html
index 44eccec7..a6e1e36f 100644
--- a/docs/html/interfacelapack_1_1dgesvd.html
+++ b/docs/html/interfacelapack_1_1dgesvd.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetrf-members.html b/docs/html/interfacelapack_1_1dgetrf-members.html
index bbd616c6..d0867b4f 100644
--- a/docs/html/interfacelapack_1_1dgetrf-members.html
+++ b/docs/html/interfacelapack_1_1dgetrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetrf.html b/docs/html/interfacelapack_1_1dgetrf.html
index d5412a64..60dbe5b7 100644
--- a/docs/html/interfacelapack_1_1dgetrf.html
+++ b/docs/html/interfacelapack_1_1dgetrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetri-members.html b/docs/html/interfacelapack_1_1dgetri-members.html
index acde2844..d3adeac4 100644
--- a/docs/html/interfacelapack_1_1dgetri-members.html
+++ b/docs/html/interfacelapack_1_1dgetri-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetri.html b/docs/html/interfacelapack_1_1dgetri.html
index 4f5a4c89..ae9b2d1d 100644
--- a/docs/html/interfacelapack_1_1dgetri.html
+++ b/docs/html/interfacelapack_1_1dgetri.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetrs-members.html b/docs/html/interfacelapack_1_1dgetrs-members.html
index 4ad1c36e..76c209a0 100644
--- a/docs/html/interfacelapack_1_1dgetrs-members.html
+++ b/docs/html/interfacelapack_1_1dgetrs-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dgetrs.html b/docs/html/interfacelapack_1_1dgetrs.html
index 7f935cfb..cdb75ab2 100644
--- a/docs/html/interfacelapack_1_1dgetrs.html
+++ b/docs/html/interfacelapack_1_1dgetrs.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dggev-members.html b/docs/html/interfacelapack_1_1dggev-members.html
index 5c544210..caaec04f 100644
--- a/docs/html/interfacelapack_1_1dggev-members.html
+++ b/docs/html/interfacelapack_1_1dggev-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dggev.html b/docs/html/interfacelapack_1_1dggev.html
index f9cabfea..7af7b152 100644
--- a/docs/html/interfacelapack_1_1dggev.html
+++ b/docs/html/interfacelapack_1_1dggev.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlaic1-members.html b/docs/html/interfacelapack_1_1dlaic1-members.html
index e1ce9da5..9831c6e5 100644
--- a/docs/html/interfacelapack_1_1dlaic1-members.html
+++ b/docs/html/interfacelapack_1_1dlaic1-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlaic1.html b/docs/html/interfacelapack_1_1dlaic1.html
index 8b0f8665..6a3a09fd 100644
--- a/docs/html/interfacelapack_1_1dlaic1.html
+++ b/docs/html/interfacelapack_1_1dlaic1.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlamch-members.html b/docs/html/interfacelapack_1_1dlamch-members.html
index 309bdbf7..04fd07ef 100644
--- a/docs/html/interfacelapack_1_1dlamch-members.html
+++ b/docs/html/interfacelapack_1_1dlamch-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlamch.html b/docs/html/interfacelapack_1_1dlamch.html
index 4470f70a..eeffad45 100644
--- a/docs/html/interfacelapack_1_1dlamch.html
+++ b/docs/html/interfacelapack_1_1dlamch.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlaset-members.html b/docs/html/interfacelapack_1_1dlaset-members.html
index 1993a1ac..2f3b5ed7 100644
--- a/docs/html/interfacelapack_1_1dlaset-members.html
+++ b/docs/html/interfacelapack_1_1dlaset-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlaset.html b/docs/html/interfacelapack_1_1dlaset.html
index 0eea4593..cac5d5ce 100644
--- a/docs/html/interfacelapack_1_1dlaset.html
+++ b/docs/html/interfacelapack_1_1dlaset.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlasrt-members.html b/docs/html/interfacelapack_1_1dlasrt-members.html
index 063efd83..1d99f183 100644
--- a/docs/html/interfacelapack_1_1dlasrt-members.html
+++ b/docs/html/interfacelapack_1_1dlasrt-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dlasrt.html b/docs/html/interfacelapack_1_1dlasrt.html
index 602fb65f..c77708ff 100644
--- a/docs/html/interfacelapack_1_1dlasrt.html
+++ b/docs/html/interfacelapack_1_1dlasrt.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dorglq-members.html b/docs/html/interfacelapack_1_1dorglq-members.html
index 4b9a834b..8a9bbdf0 100644
--- a/docs/html/interfacelapack_1_1dorglq-members.html
+++ b/docs/html/interfacelapack_1_1dorglq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dorglq.html b/docs/html/interfacelapack_1_1dorglq.html
index 55e1135d..2c437cfc 100644
--- a/docs/html/interfacelapack_1_1dorglq.html
+++ b/docs/html/interfacelapack_1_1dorglq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dorgqr-members.html b/docs/html/interfacelapack_1_1dorgqr-members.html
index 1827be09..a982312d 100644
--- a/docs/html/interfacelapack_1_1dorgqr-members.html
+++ b/docs/html/interfacelapack_1_1dorgqr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dorgqr.html b/docs/html/interfacelapack_1_1dorgqr.html
index c8d5d827..5b04178c 100644
--- a/docs/html/interfacelapack_1_1dorgqr.html
+++ b/docs/html/interfacelapack_1_1dorgqr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormlq-members.html b/docs/html/interfacelapack_1_1dormlq-members.html
index e596d3b5..1373c27a 100644
--- a/docs/html/interfacelapack_1_1dormlq-members.html
+++ b/docs/html/interfacelapack_1_1dormlq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormlq.html b/docs/html/interfacelapack_1_1dormlq.html
index de1e0ab0..d58778ac 100644
--- a/docs/html/interfacelapack_1_1dormlq.html
+++ b/docs/html/interfacelapack_1_1dormlq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormqr-members.html b/docs/html/interfacelapack_1_1dormqr-members.html
index a7762703..4c8d2c84 100644
--- a/docs/html/interfacelapack_1_1dormqr-members.html
+++ b/docs/html/interfacelapack_1_1dormqr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormqr.html b/docs/html/interfacelapack_1_1dormqr.html
index f8eb4b5f..fe2aadaf 100644
--- a/docs/html/interfacelapack_1_1dormqr.html
+++ b/docs/html/interfacelapack_1_1dormqr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormrz-members.html b/docs/html/interfacelapack_1_1dormrz-members.html
index fd755043..5c9fa60f 100644
--- a/docs/html/interfacelapack_1_1dormrz-members.html
+++ b/docs/html/interfacelapack_1_1dormrz-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dormrz.html b/docs/html/interfacelapack_1_1dormrz.html
index d7df1e95..f0cd9f74 100644
--- a/docs/html/interfacelapack_1_1dormrz.html
+++ b/docs/html/interfacelapack_1_1dormrz.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dpotrf-members.html b/docs/html/interfacelapack_1_1dpotrf-members.html
index b6608312..e4f6862d 100644
--- a/docs/html/interfacelapack_1_1dpotrf-members.html
+++ b/docs/html/interfacelapack_1_1dpotrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dpotrf.html b/docs/html/interfacelapack_1_1dpotrf.html
index 136d2842..f620ca38 100644
--- a/docs/html/interfacelapack_1_1dpotrf.html
+++ b/docs/html/interfacelapack_1_1dpotrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dpotrs-members.html b/docs/html/interfacelapack_1_1dpotrs-members.html
index d98d2a83..10f6cd3c 100644
--- a/docs/html/interfacelapack_1_1dpotrs-members.html
+++ b/docs/html/interfacelapack_1_1dpotrs-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dpotrs.html b/docs/html/interfacelapack_1_1dpotrs.html
index 96823a7b..efb47e95 100644
--- a/docs/html/interfacelapack_1_1dpotrs.html
+++ b/docs/html/interfacelapack_1_1dpotrs.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dsyev-members.html b/docs/html/interfacelapack_1_1dsyev-members.html
index ce1d0984..9d1c06e5 100644
--- a/docs/html/interfacelapack_1_1dsyev-members.html
+++ b/docs/html/interfacelapack_1_1dsyev-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dsyev.html b/docs/html/interfacelapack_1_1dsyev.html
index c31d526e..e977807e 100644
--- a/docs/html/interfacelapack_1_1dsyev.html
+++ b/docs/html/interfacelapack_1_1dsyev.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dtzrzf-members.html b/docs/html/interfacelapack_1_1dtzrzf-members.html
index 90c13e3e..be721af5 100644
--- a/docs/html/interfacelapack_1_1dtzrzf-members.html
+++ b/docs/html/interfacelapack_1_1dtzrzf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1dtzrzf.html b/docs/html/interfacelapack_1_1dtzrzf.html
index 829fd1aa..1d207813 100644
--- a/docs/html/interfacelapack_1_1dtzrzf.html
+++ b/docs/html/interfacelapack_1_1dtzrzf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeev-members.html b/docs/html/interfacelapack_1_1zgeev-members.html
index 234feb44..c75458ea 100644
--- a/docs/html/interfacelapack_1_1zgeev-members.html
+++ b/docs/html/interfacelapack_1_1zgeev-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeev.html b/docs/html/interfacelapack_1_1zgeev.html
index 4cb4f47b..f4cfd263 100644
--- a/docs/html/interfacelapack_1_1zgeev.html
+++ b/docs/html/interfacelapack_1_1zgeev.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelqf-members.html b/docs/html/interfacelapack_1_1zgelqf-members.html
index 58a866ba..f4c16796 100644
--- a/docs/html/interfacelapack_1_1zgelqf-members.html
+++ b/docs/html/interfacelapack_1_1zgelqf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelqf.html b/docs/html/interfacelapack_1_1zgelqf.html
index 56353bb3..bef0172b 100644
--- a/docs/html/interfacelapack_1_1zgelqf.html
+++ b/docs/html/interfacelapack_1_1zgelqf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgels-members.html b/docs/html/interfacelapack_1_1zgels-members.html
index 3515e255..0e697a3e 100644
--- a/docs/html/interfacelapack_1_1zgels-members.html
+++ b/docs/html/interfacelapack_1_1zgels-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgels.html b/docs/html/interfacelapack_1_1zgels.html
index c6a4a482..d05661cb 100644
--- a/docs/html/interfacelapack_1_1zgels.html
+++ b/docs/html/interfacelapack_1_1zgels.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelss-members.html b/docs/html/interfacelapack_1_1zgelss-members.html
index b1960ffa..1c8d4f3a 100644
--- a/docs/html/interfacelapack_1_1zgelss-members.html
+++ b/docs/html/interfacelapack_1_1zgelss-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelss.html b/docs/html/interfacelapack_1_1zgelss.html
index 0e13683d..a82a2411 100644
--- a/docs/html/interfacelapack_1_1zgelss.html
+++ b/docs/html/interfacelapack_1_1zgelss.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelsy-members.html b/docs/html/interfacelapack_1_1zgelsy-members.html
index d33d72f9..56174a23 100644
--- a/docs/html/interfacelapack_1_1zgelsy-members.html
+++ b/docs/html/interfacelapack_1_1zgelsy-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgelsy.html b/docs/html/interfacelapack_1_1zgelsy.html
index 7d769a18..8d9b9ac3 100644
--- a/docs/html/interfacelapack_1_1zgelsy.html
+++ b/docs/html/interfacelapack_1_1zgelsy.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeqp3-members.html b/docs/html/interfacelapack_1_1zgeqp3-members.html
index 7e455715..4f96e4fa 100644
--- a/docs/html/interfacelapack_1_1zgeqp3-members.html
+++ b/docs/html/interfacelapack_1_1zgeqp3-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeqp3.html b/docs/html/interfacelapack_1_1zgeqp3.html
index 9acdec3c..90e229df 100644
--- a/docs/html/interfacelapack_1_1zgeqp3.html
+++ b/docs/html/interfacelapack_1_1zgeqp3.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeqrf-members.html b/docs/html/interfacelapack_1_1zgeqrf-members.html
index 8bcfaa8f..f07a4785 100644
--- a/docs/html/interfacelapack_1_1zgeqrf-members.html
+++ b/docs/html/interfacelapack_1_1zgeqrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgeqrf.html b/docs/html/interfacelapack_1_1zgeqrf.html
index cedc36d5..07bb979a 100644
--- a/docs/html/interfacelapack_1_1zgeqrf.html
+++ b/docs/html/interfacelapack_1_1zgeqrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgesvd-members.html b/docs/html/interfacelapack_1_1zgesvd-members.html
index 8477ae88..57fde38e 100644
--- a/docs/html/interfacelapack_1_1zgesvd-members.html
+++ b/docs/html/interfacelapack_1_1zgesvd-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgesvd.html b/docs/html/interfacelapack_1_1zgesvd.html
index 4aba3b21..36d9a45c 100644
--- a/docs/html/interfacelapack_1_1zgesvd.html
+++ b/docs/html/interfacelapack_1_1zgesvd.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetrf-members.html b/docs/html/interfacelapack_1_1zgetrf-members.html
index a6304ae7..2766affc 100644
--- a/docs/html/interfacelapack_1_1zgetrf-members.html
+++ b/docs/html/interfacelapack_1_1zgetrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetrf.html b/docs/html/interfacelapack_1_1zgetrf.html
index 984b6544..349075e2 100644
--- a/docs/html/interfacelapack_1_1zgetrf.html
+++ b/docs/html/interfacelapack_1_1zgetrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetri-members.html b/docs/html/interfacelapack_1_1zgetri-members.html
index ac2ea4d5..8483defa 100644
--- a/docs/html/interfacelapack_1_1zgetri-members.html
+++ b/docs/html/interfacelapack_1_1zgetri-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetri.html b/docs/html/interfacelapack_1_1zgetri.html
index d224cada..16499510 100644
--- a/docs/html/interfacelapack_1_1zgetri.html
+++ b/docs/html/interfacelapack_1_1zgetri.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetrs-members.html b/docs/html/interfacelapack_1_1zgetrs-members.html
index e6458043..45d1f253 100644
--- a/docs/html/interfacelapack_1_1zgetrs-members.html
+++ b/docs/html/interfacelapack_1_1zgetrs-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zgetrs.html b/docs/html/interfacelapack_1_1zgetrs.html
index f797771a..a14331f0 100644
--- a/docs/html/interfacelapack_1_1zgetrs.html
+++ b/docs/html/interfacelapack_1_1zgetrs.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zlaic1-members.html b/docs/html/interfacelapack_1_1zlaic1-members.html
index b8659b38..bc5a8459 100644
--- a/docs/html/interfacelapack_1_1zlaic1-members.html
+++ b/docs/html/interfacelapack_1_1zlaic1-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zlaic1.html b/docs/html/interfacelapack_1_1zlaic1.html
index fe06e516..4417bb45 100644
--- a/docs/html/interfacelapack_1_1zlaic1.html
+++ b/docs/html/interfacelapack_1_1zlaic1.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zpotrf-members.html b/docs/html/interfacelapack_1_1zpotrf-members.html
index c97df7e7..ab682126 100644
--- a/docs/html/interfacelapack_1_1zpotrf-members.html
+++ b/docs/html/interfacelapack_1_1zpotrf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zpotrf.html b/docs/html/interfacelapack_1_1zpotrf.html
index 7b645b5a..d412c410 100644
--- a/docs/html/interfacelapack_1_1zpotrf.html
+++ b/docs/html/interfacelapack_1_1zpotrf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zpotrs-members.html b/docs/html/interfacelapack_1_1zpotrs-members.html
index c7c75f43..48bc2360 100644
--- a/docs/html/interfacelapack_1_1zpotrs-members.html
+++ b/docs/html/interfacelapack_1_1zpotrs-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zpotrs.html b/docs/html/interfacelapack_1_1zpotrs.html
index 4ebc7095..deea1d1c 100644
--- a/docs/html/interfacelapack_1_1zpotrs.html
+++ b/docs/html/interfacelapack_1_1zpotrs.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1ztzrzf-members.html b/docs/html/interfacelapack_1_1ztzrzf-members.html
index 03567401..87a62efc 100644
--- a/docs/html/interfacelapack_1_1ztzrzf-members.html
+++ b/docs/html/interfacelapack_1_1ztzrzf-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1ztzrzf.html b/docs/html/interfacelapack_1_1ztzrzf.html
index 365ad32a..22ca50ee 100644
--- a/docs/html/interfacelapack_1_1ztzrzf.html
+++ b/docs/html/interfacelapack_1_1ztzrzf.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunglq-members.html b/docs/html/interfacelapack_1_1zunglq-members.html
index 8414c168..9ddc12a9 100644
--- a/docs/html/interfacelapack_1_1zunglq-members.html
+++ b/docs/html/interfacelapack_1_1zunglq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunglq.html b/docs/html/interfacelapack_1_1zunglq.html
index 389b6b24..870e2697 100644
--- a/docs/html/interfacelapack_1_1zunglq.html
+++ b/docs/html/interfacelapack_1_1zunglq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zungqr-members.html b/docs/html/interfacelapack_1_1zungqr-members.html
index a07d6bfb..0167ed95 100644
--- a/docs/html/interfacelapack_1_1zungqr-members.html
+++ b/docs/html/interfacelapack_1_1zungqr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zungqr.html b/docs/html/interfacelapack_1_1zungqr.html
index de04e494..621965eb 100644
--- a/docs/html/interfacelapack_1_1zungqr.html
+++ b/docs/html/interfacelapack_1_1zungqr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmlq-members.html b/docs/html/interfacelapack_1_1zunmlq-members.html
index f3f780a2..937159a5 100644
--- a/docs/html/interfacelapack_1_1zunmlq-members.html
+++ b/docs/html/interfacelapack_1_1zunmlq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmlq.html b/docs/html/interfacelapack_1_1zunmlq.html
index 66241b70..7aa57e0c 100644
--- a/docs/html/interfacelapack_1_1zunmlq.html
+++ b/docs/html/interfacelapack_1_1zunmlq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmqr-members.html b/docs/html/interfacelapack_1_1zunmqr-members.html
index 1d45c0f8..3efdd877 100644
--- a/docs/html/interfacelapack_1_1zunmqr-members.html
+++ b/docs/html/interfacelapack_1_1zunmqr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmqr.html b/docs/html/interfacelapack_1_1zunmqr.html
index 51309c3d..a48497b6 100644
--- a/docs/html/interfacelapack_1_1zunmqr.html
+++ b/docs/html/interfacelapack_1_1zunmqr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmrz-members.html b/docs/html/interfacelapack_1_1zunmrz-members.html
index b6d2b4f0..e0c5d43d 100644
--- a/docs/html/interfacelapack_1_1zunmrz-members.html
+++ b/docs/html/interfacelapack_1_1zunmrz-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelapack_1_1zunmrz.html b/docs/html/interfacelapack_1_1zunmrz.html
index cb1f7532..74bdb2a1 100644
--- a/docs/html/interfacelapack_1_1zunmrz.html
+++ b/docs/html/interfacelapack_1_1zunmrz.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1band__diag__mtx__mult-members.html b/docs/html/interfacelinalg_1_1band__diag__mtx__mult-members.html
index ae8eed3c..eea6932d 100644
--- a/docs/html/interfacelinalg_1_1band__diag__mtx__mult-members.html
+++ b/docs/html/interfacelinalg_1_1band__diag__mtx__mult-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1band__diag__mtx__mult.html b/docs/html/interfacelinalg_1_1band__diag__mtx__mult.html
index ff071627..b61acb40 100644
--- a/docs/html/interfacelinalg_1_1band__diag__mtx__mult.html
+++ b/docs/html/interfacelinalg_1_1band__diag__mtx__mult.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -166,7 +166,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04002">4002</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04132">4132</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1band__mtx__mult-members.html b/docs/html/interfacelinalg_1_1band__mtx__mult-members.html
index 3c2857d4..1638e9ff 100644
--- a/docs/html/interfacelinalg_1_1band__mtx__mult-members.html
+++ b/docs/html/interfacelinalg_1_1band__mtx__mult-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1band__mtx__mult.html b/docs/html/interfacelinalg_1_1band__mtx__mult.html
index e9ae9936..b8e7df52 100644
--- a/docs/html/interfacelinalg_1_1band__mtx__mult.html
+++ b/docs/html/interfacelinalg_1_1band__mtx__mult.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -191,7 +191,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03897">3897</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04027">4027</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx-members.html b/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx-members.html
index 3e1cc17b..a1dd2b0a 100644
--- a/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx-members.html
+++ b/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx.html b/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx.html
index e59dfb12..48e78941 100644
--- a/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx.html
+++ b/docs/html/interfacelinalg_1_1band__mtx__to__full__mtx.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -151,7 +151,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03939">3939</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04069">4069</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1banded__to__dense-members.html b/docs/html/interfacelinalg_1_1banded__to__dense-members.html
new file mode 100644
index 00000000..30dd1f90
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1banded__to__dense-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1banded__to__dense.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::banded_to_dense Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>banded_to_dense_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>banded_to_dense_dbl</b> (defined in <a class="el" href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1banded__to__dense.html b/docs/html/interfacelinalg_1_1banded__to__dense.html
new file mode 100644
index 00000000..10e5814d
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1banded__to__dense.html
@@ -0,0 +1,157 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::banded_to_dense Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1banded__to__dense.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1banded__to__dense-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::banded_to_dense Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts a banded matrix to a dense matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ad8c9aa8b0d87a9c1e9bfc4cb868560c2" id="r_ad8c9aa8b0d87a9c1e9bfc4cb868560c2"><td class="memItemLeft" align="right" valign="top"><a id="ad8c9aa8b0d87a9c1e9bfc4cb868560c2" name="ad8c9aa8b0d87a9c1e9bfc4cb868560c2"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>banded_to_dense_dbl</b></td></tr>
+<tr class="separator:ad8c9aa8b0d87a9c1e9bfc4cb868560c2"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a7b89a429e888a8332863ac337e51157b" id="r_a7b89a429e888a8332863ac337e51157b"><td class="memItemLeft" align="right" valign="top"><a id="a7b89a429e888a8332863ac337e51157b" name="a7b89a429e888a8332863ac337e51157b"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>banded_to_dense_cmplx</b></td></tr>
+<tr class="separator:a7b89a429e888a8332863ac337e51157b"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts a banded matrix to a dense matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>banded_to_dense(integer(int32) m, integer(int32) kl, integer(int32) ku, real(real64) a(:,:), real(real64) x(:,:), optional class(errors) err)</div>
+<div class="line"><span class="keyword">subroutine </span>banded_to_dense(integer(int32) m, integer(int32) kl, integer(int32) ku, complex(real64) a(:,:), complex(real64) x(:,:), optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">m</td><td>The number of rows in the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">kl</td><td>The number of subdiagonals. Must be at least 0. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ku</td><td>The number of superdiagonals. Must be at least 0. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The (KL+KU+1)-by-N banded matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The M-by-N dense matrix. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_INVALID_INPUT_ERROR: Occurs if either <code>ku</code> or <code>kl</code> are not zero or greater.</li>
+<li>LA_MATRIX_FORMAT_ERROR: Occurs if <code>ku</code> + <code>kl</code> + 1 is not equal to size(a, 2).</li>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if <code>x</code> is not sized correctly. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04160">4160</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1banded__to__dense.html">banded_to_dense</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1cholesky__factor-members.html b/docs/html/interfacelinalg_1_1cholesky__factor-members.html
index 6bce02a1..5d7fcacb 100644
--- a/docs/html/interfacelinalg_1_1cholesky__factor-members.html
+++ b/docs/html/interfacelinalg_1_1cholesky__factor-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1cholesky__factor.html b/docs/html/interfacelinalg_1_1cholesky__factor.html
index 5aa2a8f7..868ea48a 100644
--- a/docs/html/interfacelinalg_1_1cholesky__factor.html
+++ b/docs/html/interfacelinalg_1_1cholesky__factor.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -186,9 +186,9 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Cholesky Solution (Manual Approach): X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (bu(i), i = 1, <span class="keyword">size</span>(bu))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01574">linalg.f90:1574</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02532">linalg.f90:2532</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01686">linalg.f90:1686</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02662">linalg.f90:2662</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Cholesky Solution: X =</div>
 <div class="line"> 239.5833</div>
@@ -200,7 +200,7 @@
 <div class="line"> 10.3333</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01574">1574</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01686">1686</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1cholesky__rank1__downdate-members.html b/docs/html/interfacelinalg_1_1cholesky__rank1__downdate-members.html
index 3d632085..ef623fe9 100644
--- a/docs/html/interfacelinalg_1_1cholesky__rank1__downdate-members.html
+++ b/docs/html/interfacelinalg_1_1cholesky__rank1__downdate-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1cholesky__rank1__downdate.html b/docs/html/interfacelinalg_1_1cholesky__rank1__downdate.html
index a456874d..7db0f4cc 100644
--- a/docs/html/interfacelinalg_1_1cholesky__rank1__downdate.html
+++ b/docs/html/interfacelinalg_1_1cholesky__rank1__downdate.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -187,9 +187,9 @@
 <div class="line">        print *, ad(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01574">linalg.f90:1574</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__downdate_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__downdate.html">linalg::cholesky_rank1_downdate</a></div><div class="ttdoc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01780">linalg.f90:1780</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00331">linalg.f90:331</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01686">linalg.f90:1686</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__downdate_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__downdate.html">linalg::cholesky_rank1_downdate</a></div><div class="ttdoc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01892">linalg.f90:1892</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00395">linalg.f90:395</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Downdating the Factored Form:</div>
 <div class="line"> 2.0000000000000000        6.0000000000000000       -8.0000000000000000</div>
@@ -201,7 +201,7 @@
 <div class="line"> 0.0000000000000000        0.0000000000000000        3.0000000000000000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01780">1780</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01892">1892</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1cholesky__rank1__update-members.html b/docs/html/interfacelinalg_1_1cholesky__rank1__update-members.html
index cfd2cb35..62b41999 100644
--- a/docs/html/interfacelinalg_1_1cholesky__rank1__update-members.html
+++ b/docs/html/interfacelinalg_1_1cholesky__rank1__update-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1cholesky__rank1__update.html b/docs/html/interfacelinalg_1_1cholesky__rank1__update.html
index 14456323..fddc2b99 100644
--- a/docs/html/interfacelinalg_1_1cholesky__rank1__update.html
+++ b/docs/html/interfacelinalg_1_1cholesky__rank1__update.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -181,9 +181,9 @@
 <div class="line">        print *, au(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01574">linalg.f90:1574</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__update.html">linalg::cholesky_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01673">linalg.f90:1673</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00331">linalg.f90:331</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01686">linalg.f90:1686</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__update.html">linalg::cholesky_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01785">linalg.f90:1785</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00395">linalg.f90:395</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Updating the Factored Form:</div>
 <div class="line"> 2.0615528128088303        5.4570515633174921       -7.2760687510899889</div>
@@ -195,7 +195,7 @@
 <div class="line"> 0.0000000000000000        0.0000000000000000        6.6989384530323557</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01673">1673</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01785">1785</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1dense__to__banded-members.html b/docs/html/interfacelinalg_1_1dense__to__banded-members.html
new file mode 100644
index 00000000..bbc6da91
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1dense__to__banded-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1dense__to__banded.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::dense_to_banded Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>dense_to_banded_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>dense_to_banded_dbl</b> (defined in <a class="el" href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1dense__to__banded.html b/docs/html/interfacelinalg_1_1dense__to__banded.html
new file mode 100644
index 00000000..b44faa8f
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1dense__to__banded.html
@@ -0,0 +1,155 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::dense_to_banded Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1dense__to__banded.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1dense__to__banded-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::dense_to_banded Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts a dense matrix to a banded matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ad2b0b3b8dc02c5a6f9384e3e67fb4db7" id="r_ad2b0b3b8dc02c5a6f9384e3e67fb4db7"><td class="memItemLeft" align="right" valign="top"><a id="ad2b0b3b8dc02c5a6f9384e3e67fb4db7" name="ad2b0b3b8dc02c5a6f9384e3e67fb4db7"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>dense_to_banded_dbl</b></td></tr>
+<tr class="separator:ad2b0b3b8dc02c5a6f9384e3e67fb4db7"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a944b3bf0984d26a1d3ab626eeb150749" id="r_a944b3bf0984d26a1d3ab626eeb150749"><td class="memItemLeft" align="right" valign="top"><a id="a944b3bf0984d26a1d3ab626eeb150749" name="a944b3bf0984d26a1d3ab626eeb150749"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>dense_to_banded_cmplx</b></td></tr>
+<tr class="separator:a944b3bf0984d26a1d3ab626eeb150749"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts a dense matrix to a banded matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>dense_to_banded(real(real64) a(:,:), integer(int32) kl, integer(int32) ku, real(real64) x(:,:), optional class(errors) err)</div>
+<div class="line"><span class="keyword">subroutine </span>dense_to_banded(complex(real64) a(:,:), integer(int32) kl, integer(int32) ku, complex(real64) x(:,:), optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">m</td><td>The M-by-N dense matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">kl</td><td>The number of subdiagonals. Must be at least 0. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ku</td><td>The number of superdiagonals. Must be at least 0. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The (KL+KU+1)-by-N banded matrix. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_INVALID_INPUT_ERROR: Occurs if either <code>ku</code> or <code>kl</code> are not zero or greater.</li>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if <code>x</code> is not sized correctly. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04185">4185</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1dense__to__banded.html">dense_to_banded</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1det-members.html b/docs/html/interfacelinalg_1_1det-members.html
index 63008366..d62e5bb7 100644
--- a/docs/html/interfacelinalg_1_1det-members.html
+++ b/docs/html/interfacelinalg_1_1det-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1det.html b/docs/html/interfacelinalg_1_1det.html
index 60e6b9d4..fcd2e280 100644
--- a/docs/html/interfacelinalg_1_1det.html
+++ b/docs/html/interfacelinalg_1_1det.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -137,7 +137,7 @@
 </dl>
 <dl class="section return"><dt>Returns</dt><dd>The determinant of <code>a</code>. </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00571">571</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00658">658</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1diag__mtx__mult-members.html b/docs/html/interfacelinalg_1_1diag__mtx__mult-members.html
index e48e8a92..1a52d405 100644
--- a/docs/html/interfacelinalg_1_1diag__mtx__mult-members.html
+++ b/docs/html/interfacelinalg_1_1diag__mtx__mult-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -113,6 +113,7 @@
   <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>diag_mtx_mult_mtx4</b> (defined in <a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></td><td class="entry"></td></tr>
   <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>diag_mtx_mult_mtx_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></td><td class="entry"></td></tr>
   <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>diag_mtx_mult_mtx_mix</b> (defined in <a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>diag_mtx_sparse_mult</b> (defined in <a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></td><td class="entry"></td></tr>
 </table></div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
diff --git a/docs/html/interfacelinalg_1_1diag__mtx__mult.html b/docs/html/interfacelinalg_1_1diag__mtx__mult.html
index 1f1f40ff..132cce99 100644
--- a/docs/html/interfacelinalg_1_1diag__mtx__mult.html
+++ b/docs/html/interfacelinalg_1_1diag__mtx__mult.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -135,10 +135,13 @@
 <tr class="memitem:a2c38623124bd032c2f6b68c9f94f7be1" id="r_a2c38623124bd032c2f6b68c9f94f7be1"><td class="memItemLeft" align="right" valign="top"><a id="a2c38623124bd032c2f6b68c9f94f7be1" name="a2c38623124bd032c2f6b68c9f94f7be1"></a>
 &#160;</td><td class="memItemRight" valign="bottom"><b>diag_mtx_mult_mtx2_mix</b></td></tr>
 <tr class="separator:a2c38623124bd032c2f6b68c9f94f7be1"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:abd77a8d03e32ee546964664535b4915d" id="r_abd77a8d03e32ee546964664535b4915d"><td class="memItemLeft" align="right" valign="top"><a id="abd77a8d03e32ee546964664535b4915d" name="abd77a8d03e32ee546964664535b4915d"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>diag_mtx_sparse_mult</b></td></tr>
+<tr class="separator:abd77a8d03e32ee546964664535b4915d"><td class="memSeparator" colspan="2">&#160;</td></tr>
 </table>
 <a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
 <div class="textblock"><p>Multiplies a diagonal matrix with another matrix or array. </p>
-<dl class="section user"><dt>Syntax 1</dt><dd>Computes the matrix operation: \( C = \alpha A op(B) + \beta C \), or \( C = \alpha op(B) A + \beta C \). <div class="fragment"><div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, logical trans, real(real64) alpha, real(real64) a(:), real(real64) b(:,:), real(real64) beta, real(real64) c(:,:), optional class(errors) err)</div>
+<dl class="section user"><dt>Syntax 1</dt><dd>Computes the matrix operation: C = alpha * A * op(B) + beta * C, or C = alpha * op(B) * A + beta * C. <div class="fragment"><div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, logical trans, real(real64) alpha, real(real64) a(:), real(real64) b(:,:), real(real64) beta, real(real64) c(:,:), optional class(errors) err)</div>
 <div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, logical trans, real(real64) alpha, complex(real64) a(:), complex(real64) b(:,:), real(real64) beta, complex(real64) c(:,:), optional class(errors) err)</div>
 <div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, logical trans, real(real64) alpha, complex(real64) a(:), real(real64) b(:,:), real(real64) beta, complex(real64) c(:,:), optional class(errors) err)</div>
 <div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, logical trans, complex(real64) alpha, complex(real64) a(:), complex(real64) b(:,:), complex(real64) beta, complex(real64) c(:,:), optional class(errors) err)</div>
@@ -147,7 +150,7 @@
 <dl class="params"><dt>Parameters</dt><dd>
   <table class="params">
     <tr><td class="paramdir">[in]</td><td class="paramname">lside</td><td>Set to true to apply matrix A from the left; else, set to false to apply matrix A from the left. </td></tr>
-    <tr><td class="paramdir">[in]</td><td class="paramname">trans</td><td>Set to true if \( op(B) = B^T \); else, set to false for \( op(B) = B\). In the complex case set to LA_TRANSPOSE if \( op(B) = B^T \), set to LA_HERMITIAN_TRANSPOSE if \( op(B) = B^H \), otherwise set to LA_NO_OPERATION if \( op(B) = B \). </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">trans</td><td>Set to true if op(B) = B^T; else, set to false for op(B) = B. In the complex case set to LA_TRANSPOSE if op(B) = B^T, set to LA_HERMITIAN_TRANSPOSE if op(B) = B^H, otherwise set to LA_NO_OPERATION if op(B) = B. </td></tr>
     <tr><td class="paramdir">[in]</td><td class="paramname">alpha</td><td>A scalar multiplier. </td></tr>
     <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>A K-element array containing the diagonal elements of A where K = MIN(M,P) if <code>lside</code> is true; else, if <code>lside</code> is false, K = MIN(N,P). </td></tr>
     <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The LDB-by-TDB matrix B where (LDB = leading dimension of B, and TDB = trailing dimension of B):<ul>
@@ -166,7 +169,7 @@
   </table>
   </dd>
 </dl>
-<dl class="section user"><dt>Syntax 2</dt><dd>Computes the matrix operation: \( B = \alpha A op(B) \), or \( B = \alpha op(B) * A \). <div class="fragment"><div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, real(real64) alpha, real(real64) a(:), real(real64) b(:,:), optional class(errors) err)</div>
+<dl class="section user"><dt>Syntax 2</dt><dd>Computes the matrix operation: B = alpha * A * B, or B = alpha B * A. <div class="fragment"><div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, real(real64) alpha, real(real64) a(:), real(real64) b(:,:), optional class(errors) err)</div>
 <div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, complex(real64) alpha, complex(real64) a(:), complex(real64) b(:,:), optional class(errors) err)</div>
 <div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, complex(real64) alpha, real(real64) a(:), complex(real64) b(:,:), optional class(errors) err)</div>
 </div><!-- fragment --></dd></dl>
@@ -183,6 +186,21 @@
   </table>
   </dd>
 </dl>
+<dl class="section user"><dt>Syntax 3</dt><dd>Computes the sparse-matrix operation: B = alpha * A * B or B = alpha * B * A where A is a diagonal matrix and B is a sparse matrix. <div class="fragment"><div class="line"><span class="keyword">subroutine </span>diag_mtx_mult(logical lside, real(real64) alpha, real(real64) a(:), class(csr_matrix) b, optional class(errors) err)</div>
+</div><!-- fragment --> </dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">lside</td><td>Set to true to apply matrix A from the left; else, set to false to apply matrix A from the left. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">alpha</td><td>A scalar multiplier. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>A K-element array containing the diagonal elements of A where K = MIN(M,P) if <code>lside</code> is true; else, if <code>lside</code> is false, K = MIN(N,P). </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>On input, the M-by-N matrix B. On output, the resulting M-by-N matrix. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if any of the input array sizes are incorrect.</li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
 <dl class="section user"><dt>Usage</dt><dd>The following example illustrates the use of the diagonal matrix multiplication routine to compute the \( S V^T \) component of a singular value decomposition. <div class="fragment"><div class="line"><span class="keyword">program</span> example</div>
 <div class="line">    <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
 <div class="line">    <span class="keywordtype">use </span><a class="code hl_namespace" href="namespacelinalg.html">linalg</a></div>
@@ -218,14 +236,15 @@
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Compute U * S * V**T</span></div>
 <div class="line">    <span class="keyword">call </span><a class="code hl_interface" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a>(.true., 1.0d0, s, vt) <span class="comment">! Compute: VT = S * V**T</span></div>
-<div class="line">    ac = matmul(u(:,1:2), vt)</div>
+<div class="line">    ac = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(u(:,1:2), vt)</div>
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;U * S * V**T =&quot;</span></div>
 <div class="line">    <span class="keywordflow">do</span> i = 1, <span class="keyword">size</span>(ac, 1)</div>
 <div class="line">        print *, ac(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00466">linalg.f90:466</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02069">linalg.f90:2069</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00552">linalg.f90:552</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02181">linalg.f90:2181</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">U =</div>
 <div class="line"> -0.47411577501825380      -0.81850539032073777      -0.32444284226152509</div>
@@ -243,7 +262,7 @@
 <div class="line">  -1.0000000000000000       0.99999999999999967</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00466">466</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00552">552</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1eigen-members.html b/docs/html/interfacelinalg_1_1eigen-members.html
index 0009c72c..cd50b538 100644
--- a/docs/html/interfacelinalg_1_1eigen-members.html
+++ b/docs/html/interfacelinalg_1_1eigen-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1eigen.html b/docs/html/interfacelinalg_1_1eigen.html
index 40ae3010..6edab4d8 100644
--- a/docs/html/interfacelinalg_1_1eigen.html
+++ b/docs/html/interfacelinalg_1_1eigen.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -244,7 +244,7 @@
 <div class="line">        print <span class="stringliteral">&#39;(F10.3)&#39;</span>, (real(modeshapes(j,i)), j = 1, <span class="keyword">size</span>(natfreq))</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03240">linalg.f90:3240</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03370">linalg.f90:3370</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Modal Information:</div>
 <div class="line">Mode 1: (232.9225 Hz)</div>
@@ -267,7 +267,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03240">3240</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03370">3370</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1extract__diagonal-members.html b/docs/html/interfacelinalg_1_1extract__diagonal-members.html
new file mode 100644
index 00000000..17c2e5e6
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1extract__diagonal-members.html
@@ -0,0 +1,120 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1extract__diagonal.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::extract_diagonal Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>extract_diagonal_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>extract_diagonal_csr</b> (defined in <a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>extract_diagonal_dbl</b> (defined in <a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1extract__diagonal.html b/docs/html/interfacelinalg_1_1extract__diagonal.html
new file mode 100644
index 00000000..f16f4b34
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1extract__diagonal.html
@@ -0,0 +1,156 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::extract_diagonal Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1extract__diagonal.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1extract__diagonal-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::extract_diagonal Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Extracts the diagonal of a matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:adb61fce1b5032ea3c2bd766a170167dd" id="r_adb61fce1b5032ea3c2bd766a170167dd"><td class="memItemLeft" align="right" valign="top"><a id="adb61fce1b5032ea3c2bd766a170167dd" name="adb61fce1b5032ea3c2bd766a170167dd"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>extract_diagonal_dbl</b></td></tr>
+<tr class="separator:adb61fce1b5032ea3c2bd766a170167dd"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:ae871758eec3bfc53f5291432a3d97798" id="r_ae871758eec3bfc53f5291432a3d97798"><td class="memItemLeft" align="right" valign="top"><a id="ae871758eec3bfc53f5291432a3d97798" name="ae871758eec3bfc53f5291432a3d97798"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>extract_diagonal_cmplx</b></td></tr>
+<tr class="separator:ae871758eec3bfc53f5291432a3d97798"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a746fddd80562cf9bcf7020ae65a36632" id="r_a746fddd80562cf9bcf7020ae65a36632"><td class="memItemLeft" align="right" valign="top"><a id="a746fddd80562cf9bcf7020ae65a36632" name="a746fddd80562cf9bcf7020ae65a36632"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>extract_diagonal_csr</b></td></tr>
+<tr class="separator:a746fddd80562cf9bcf7020ae65a36632"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Extracts the diagonal of a matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>extract_diagonal(real(real64) a(:,:), real(real64) diag(:), optional class(errors) err)</div>
+<div class="line"><span class="keyword">subroutine </span>extract_diagonal(complex(real64) a(:,:), complex(real64) diag(:), optional class(errors) err)</div>
+<div class="line"><span class="keyword">subroutine </span>extract_diagonal(class(csr_matrix) a, real(real64) diag(:), optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The M-by-N matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">diag</td><td>The MIN(M, N) element array for the diagonal elements. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if @diag is not sized correctly. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l04207">4207</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1extract__diagonal.html">extract_diagonal</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1form__lq-members.html b/docs/html/interfacelinalg_1_1form__lq-members.html
index c876f75f..a4bdbdd2 100644
--- a/docs/html/interfacelinalg_1_1form__lq-members.html
+++ b/docs/html/interfacelinalg_1_1form__lq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1form__lq.html b/docs/html/interfacelinalg_1_1form__lq.html
index 700ae539..c07ba129 100644
--- a/docs/html/interfacelinalg_1_1form__lq.html
+++ b/docs/html/interfacelinalg_1_1form__lq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -193,10 +193,10 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LQ Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (x(i), i = 1, <span class="keyword">size</span>(x))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03551">linalg.f90:3551</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03437">linalg.f90:3437</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00296">linalg.f90:296</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03681">linalg.f90:3681</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03567">linalg.f90:3567</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00360">linalg.f90:360</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">LQ Solution: X = </div>
 <div class="line">   0.3333</div>
@@ -208,7 +208,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03551">3551</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03681">3681</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1form__lu-members.html b/docs/html/interfacelinalg_1_1form__lu-members.html
index f31740fb..f17550dd 100644
--- a/docs/html/interfacelinalg_1_1form__lu-members.html
+++ b/docs/html/interfacelinalg_1_1form__lu-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1form__lu.html b/docs/html/interfacelinalg_1_1form__lu.html
index 995a3b05..6ab48d4a 100644
--- a/docs/html/interfacelinalg_1_1form__lu.html
+++ b/docs/html/interfacelinalg_1_1form__lu.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -203,7 +203,7 @@
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Solve the lower triangular system L * Y = P * B for Y, but first compute</span></div>
 <div class="line">    <span class="comment">! P * B, and store the results in B</span></div>
-<div class="line">    b = matmul(p, b)</div>
+<div class="line">    b = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(p, b)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Now, compute the solution to the lower triangular system.  Store the</span></div>
 <div class="line">    <span class="comment">! result in B.  Remember, L is unit diagonal (ones on its diagonal)</span></div>
@@ -216,9 +216,10 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LU Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00854">linalg.f90:854</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00966">linalg.f90:966</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">LU Solution: X =</div>
 <div class="line">0.3333</div>
@@ -226,7 +227,7 @@
 <div class="line">0.0000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00854">854</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00966">966</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1form__qr-members.html b/docs/html/interfacelinalg_1_1form__qr-members.html
index 49d1527b..a655ba48 100644
--- a/docs/html/interfacelinalg_1_1form__qr-members.html
+++ b/docs/html/interfacelinalg_1_1form__qr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1form__qr.html b/docs/html/interfacelinalg_1_1form__qr.html
index 0f134c0d..75d43b53 100644
--- a/docs/html/interfacelinalg_1_1form__qr.html
+++ b/docs/html/interfacelinalg_1_1form__qr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -207,7 +207,7 @@
 <div class="line">    <span class="comment">! R * X = Q**T * B.</span></div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Compute Q**T * B, and store the results in B</span></div>
-<div class="line">    b = matmul(transpose(q), b)</div>
+<div class="line">    b = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(<a class="code hl_interface" href="interfacelinalg_1_1transpose.html">transpose</a>(q), b)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Solve the upper triangular system R * X = Q**T * B for X</span></div>
 <div class="line">    <span class="keyword">call </span><a class="code hl_interface" href="interfacelinalg_1_1solve__triangular__system.html">solve_triangular_system</a>(.true., .false., .true., a, b)</div>
@@ -221,9 +221,11 @@
 <div class="line">    <span class="comment">! for by noting that Q * R = A * P, where P is an N-by-N matrix describing</span></div>
 <div class="line">    <span class="comment">! the column pivoting operations.</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01168">linalg.f90:1168</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01280">linalg.f90:1280</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1transpose_html"><div class="ttname"><a href="interfacelinalg_1_1transpose.html">linalg::transpose</a></div><div class="ttdoc">Provides the transpose of a sparse matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05454">linalg.f90:5454</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">QR Solution: X =</div>
 <div class="line">0.3333</div>
@@ -236,7 +238,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01168">1168</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01280">1280</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1lq__factor-members.html b/docs/html/interfacelinalg_1_1lq__factor-members.html
index 4bee93b2..a5616b90 100644
--- a/docs/html/interfacelinalg_1_1lq__factor-members.html
+++ b/docs/html/interfacelinalg_1_1lq__factor-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1lq__factor.html b/docs/html/interfacelinalg_1_1lq__factor.html
index 932f816c..891a7dc2 100644
--- a/docs/html/interfacelinalg_1_1lq__factor.html
+++ b/docs/html/interfacelinalg_1_1lq__factor.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -192,10 +192,10 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LQ Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (x(i), i = 1, <span class="keyword">size</span>(x))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03551">linalg.f90:3551</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03437">linalg.f90:3437</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00296">linalg.f90:296</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03681">linalg.f90:3681</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03567">linalg.f90:3567</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00360">linalg.f90:360</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">LQ Solution: X = </div>
 <div class="line">   0.3333</div>
@@ -207,7 +207,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03437">3437</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03567">3567</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1lu__factor-members.html b/docs/html/interfacelinalg_1_1lu__factor-members.html
index 18e465d8..a7ee634b 100644
--- a/docs/html/interfacelinalg_1_1lu__factor-members.html
+++ b/docs/html/interfacelinalg_1_1lu__factor-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -105,8 +105,9 @@
 
 <p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>, including all inherited members.</p>
 <table class="directory">
-  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>lu_factor_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></td><td class="entry"></td></tr>
-  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>lu_factor_dbl</b> (defined in <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_lu_factor</b> (defined in <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>lu_factor_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>lu_factor_dbl</b> (defined in <a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></td><td class="entry"></td></tr>
 </table></div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
diff --git a/docs/html/interfacelinalg_1_1lu__factor.html b/docs/html/interfacelinalg_1_1lu__factor.html
index c129369a..cc94e311 100644
--- a/docs/html/interfacelinalg_1_1lu__factor.html
+++ b/docs/html/interfacelinalg_1_1lu__factor.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -117,6 +117,9 @@
 <tr class="memitem:a5cbf7bb2dabecf16354f80c6c504f647" id="r_a5cbf7bb2dabecf16354f80c6c504f647"><td class="memItemLeft" align="right" valign="top"><a id="a5cbf7bb2dabecf16354f80c6c504f647" name="a5cbf7bb2dabecf16354f80c6c504f647"></a>
 &#160;</td><td class="memItemRight" valign="bottom"><b>lu_factor_cmplx</b></td></tr>
 <tr class="separator:a5cbf7bb2dabecf16354f80c6c504f647"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:ab73284a90f558b8e8fef69dc12560496" id="r_ab73284a90f558b8e8fef69dc12560496"><td class="memItemLeft" align="right" valign="top"><a id="ab73284a90f558b8e8fef69dc12560496" name="ab73284a90f558b8e8fef69dc12560496"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_lu_factor</b></td></tr>
+<tr class="separator:ab73284a90f558b8e8fef69dc12560496"><td class="memSeparator" colspan="2">&#160;</td></tr>
 </table>
 <a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
 <div class="textblock"><p>Computes the LU factorization of an M-by-N matrix. </p>
@@ -135,7 +138,25 @@
   </table>
   </dd>
 </dl>
-<dl class="section user"><dt>Notes</dt><dd>This routine utilizes the LAPACK routine DGETRF.</dd></dl>
+<dl class="section user"><dt>Syntax (Sparse Matrices)</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>lu_factor(class(csr_matrix) a, type(msr_matrix) lu, integer(int32) ju(:), optional real(real64) droptol, optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The M-by-N sparse matrix to factor. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">lu</td><td>The factored matrix, stored in MSR format. The diagonal is stored inverted. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ju</td><td>An M-element array used to track the starting row index of the U matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">droptol</td><td>An optional threshold value used to determine when to drop small terms as part of the factorization of matrix A. The default value is set to the square root of machine precision (~1e-8). </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if <code>ju</code> is not sized correctly.</li>
+<li>LA_OUT_OF_MEMORY_ERROR: Occurs if there is an issue with internal memory allocations.</li>
+<li>LA_MATRIX_FORMAT_ERROR: Occurs if <code>a</code> is improperly formatted.</li>
+<li>LA_SINGULAR_MATRIX_ERROR: Occurs if <code>a</code> is singular.</li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section user"><dt>Notes</dt><dd>The dense routine utilizes the LAPACK routine DGETRF.</dd></dl>
 <dl class="section user"><dt>See Also</dt><dd><ul>
 <li><a href="https://en.wikipedia.org/wiki/LU_decomposition">Wikipedia</a></li>
 <li><a href="http://mathworld.wolfram.com/LUDecomposition.html">Wolfram MathWorld</a></li>
@@ -179,8 +200,8 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LU Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02291">linalg.f90:2291</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02420">linalg.f90:2420</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The program generates the following output. <div class="fragment"><div class="line">LU Solution: X =</div>
 <div class="line"> 0.3333</div>
@@ -188,7 +209,7 @@
 <div class="line"> 0.0000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00732">732</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00843">843</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1matmul-members.html b/docs/html/interfacelinalg_1_1matmul-members.html
new file mode 100644
index 00000000..37644ca7
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1matmul-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1matmul.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::matmul Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1matmul.html">linalg::matmul</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_mtx_mtx_mult</b> (defined in <a class="el" href="interfacelinalg_1_1matmul.html">linalg::matmul</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1matmul.html">linalg::matmul</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>csr_mtx_vec_mult</b> (defined in <a class="el" href="interfacelinalg_1_1matmul.html">linalg::matmul</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1matmul.html">linalg::matmul</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1matmul.html b/docs/html/interfacelinalg_1_1matmul.html
new file mode 100644
index 00000000..27c78ea1
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1matmul.html
@@ -0,0 +1,158 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::matmul Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1matmul.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1matmul-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::matmul Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Performs sparse matrix multiplication C = A * B.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ace8b9f446a721fa75173727e2737f84c" id="r_ace8b9f446a721fa75173727e2737f84c"><td class="memItemLeft" align="right" valign="top"><a id="ace8b9f446a721fa75173727e2737f84c" name="ace8b9f446a721fa75173727e2737f84c"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_mtx_mult</b></td></tr>
+<tr class="separator:ace8b9f446a721fa75173727e2737f84c"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a3fa3b3d8802f916a28cd57c21ee2c9c0" id="r_a3fa3b3d8802f916a28cd57c21ee2c9c0"><td class="memItemLeft" align="right" valign="top"><a id="a3fa3b3d8802f916a28cd57c21ee2c9c0" name="a3fa3b3d8802f916a28cd57c21ee2c9c0"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_vec_mult</b></td></tr>
+<tr class="separator:a3fa3b3d8802f916a28cd57c21ee2c9c0"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Performs sparse matrix multiplication C = A * B. </p>
+<dl class="section user"><dt>Syntax 1</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) function matmul(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">class</span>(csr_matrix) b)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The M-by-K matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The K-by-N matrix B.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The M-by-N matrix C.</dd></dl>
+<dl class="section user"><dt>Syntax 2</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">real</span>(real64)(:) function matmul(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">real(real64)</span> b(:))</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The M-by-N matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The N-element array B.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The M-element array C. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05368">5368</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1matmul.html">matmul</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1mtx__inverse-members.html b/docs/html/interfacelinalg_1_1mtx__inverse-members.html
index e628f14d..1a9617fd 100644
--- a/docs/html/interfacelinalg_1_1mtx__inverse-members.html
+++ b/docs/html/interfacelinalg_1_1mtx__inverse-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mtx__inverse.html b/docs/html/interfacelinalg_1_1mtx__inverse.html
index 8c20830b..0b4365b5 100644
--- a/docs/html/interfacelinalg_1_1mtx__inverse.html
+++ b/docs/html/interfacelinalg_1_1mtx__inverse.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -166,7 +166,7 @@
 <div class="line">    <span class="keyword">call </span><a class="code hl_interface" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a>(ai)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Show that A * inv(A) = I</span></div>
-<div class="line">    c = matmul(a, ai)</div>
+<div class="line">    c = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(a, ai)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Display the inverse</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Inverse:&quot;</span></div>
@@ -180,7 +180,8 @@
 <div class="line">        print *, c(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__inverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__inverse.html">linalg::mtx_inverse</a></div><div class="ttdoc">Computes the inverse of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02920">linalg.f90:2920</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__inverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__inverse.html">linalg::mtx_inverse</a></div><div class="ttdoc">Computes the inverse of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03050">linalg.f90:3050</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Inverse:</div>
 <div class="line"> -1.7777777777777777       0.88888888888888884      -0.11111111111111110</div>
@@ -192,7 +193,7 @@
 <div class="line">  1.7763568394002505E-015  -8.8817841970012523E-016   1.0000000000000000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02920">2920</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03050">3050</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mtx__mult-members.html b/docs/html/interfacelinalg_1_1mtx__mult-members.html
index 1a095e86..99b580f9 100644
--- a/docs/html/interfacelinalg_1_1mtx__mult-members.html
+++ b/docs/html/interfacelinalg_1_1mtx__mult-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mtx__mult.html b/docs/html/interfacelinalg_1_1mtx__mult.html
index 2ce7ad5b..544b84f4 100644
--- a/docs/html/interfacelinalg_1_1mtx__mult.html
+++ b/docs/html/interfacelinalg_1_1mtx__mult.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -165,7 +165,7 @@
 </dl>
 <dl class="section user"><dt>Notes</dt><dd>This routine utilizes the BLAS routines DGEMM, ZGEMM, DGEMV, or ZGEMV. </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00296">296</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00360">360</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mtx__pinverse-members.html b/docs/html/interfacelinalg_1_1mtx__pinverse-members.html
index b167c90f..2c3b5748 100644
--- a/docs/html/interfacelinalg_1_1mtx__pinverse-members.html
+++ b/docs/html/interfacelinalg_1_1mtx__pinverse-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mtx__pinverse.html b/docs/html/interfacelinalg_1_1mtx__pinverse.html
index 982c2377..2db8ef2b 100644
--- a/docs/html/interfacelinalg_1_1mtx__pinverse.html
+++ b/docs/html/interfacelinalg_1_1mtx__pinverse.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -170,7 +170,7 @@
 <div class="line">    <span class="keyword">call </span><a class="code hl_interface" href="interfacelinalg_1_1mtx__pinverse.html">mtx_pinverse</a>(a, ai)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Notice, A**-1 * A is an identity matrix.</span></div>
-<div class="line">    c = matmul(ai, ao)</div>
+<div class="line">    c = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(ai, ao)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Display the inverse</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Inverse:&quot;</span></div>
@@ -184,7 +184,8 @@
 <div class="line">        print *, c(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__pinverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__pinverse.html">linalg::mtx_pinverse</a></div><div class="ttdoc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition o...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03026">linalg.f90:3026</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__pinverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__pinverse.html">linalg::mtx_pinverse</a></div><div class="ttdoc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition o...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03156">linalg.f90:3156</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Inverse:</div>
 <div class="line"> 1.0000000000000000        0.0000000000000000        0.0000000000000000</div>
@@ -194,7 +195,7 @@
 <div class="line"> 0.0000000000000000       0.99999999999999967</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03026">3026</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03156">3156</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mtx__rank-members.html b/docs/html/interfacelinalg_1_1mtx__rank-members.html
index 635fef02..79ba1e33 100644
--- a/docs/html/interfacelinalg_1_1mtx__rank-members.html
+++ b/docs/html/interfacelinalg_1_1mtx__rank-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mtx__rank.html b/docs/html/interfacelinalg_1_1mtx__rank.html
index 9c191590..77f35da9 100644
--- a/docs/html/interfacelinalg_1_1mtx__rank.html
+++ b/docs/html/interfacelinalg_1_1mtx__rank.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -144,7 +144,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00538">538</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00625">625</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mult__lq-members.html b/docs/html/interfacelinalg_1_1mult__lq-members.html
index 6b6aa22d..96af92ae 100644
--- a/docs/html/interfacelinalg_1_1mult__lq-members.html
+++ b/docs/html/interfacelinalg_1_1mult__lq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mult__lq.html b/docs/html/interfacelinalg_1_1mult__lq.html
index b59b1b59..aa82bd06 100644
--- a/docs/html/interfacelinalg_1_1mult__lq.html
+++ b/docs/html/interfacelinalg_1_1mult__lq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -217,9 +217,9 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LQ Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03437">linalg.f90:3437</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mult__lq_html"><div class="ttname"><a href="interfacelinalg_1_1mult__lq.html">linalg::mult_lq</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03700">linalg.f90:3700</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03567">linalg.f90:3567</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mult__lq_html"><div class="ttname"><a href="interfacelinalg_1_1mult__lq.html">linalg::mult_lq</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03830">linalg.f90:3830</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">LQ Solution: X = </div>
 <div class="line">   0.3333</div>
@@ -231,7 +231,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03700">3700</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03830">3830</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mult__qr-members.html b/docs/html/interfacelinalg_1_1mult__qr-members.html
index 18af692c..0c1b7307 100644
--- a/docs/html/interfacelinalg_1_1mult__qr-members.html
+++ b/docs/html/interfacelinalg_1_1mult__qr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mult__qr.html b/docs/html/interfacelinalg_1_1mult__qr.html
index 155f4983..c64eefaa 100644
--- a/docs/html/interfacelinalg_1_1mult__qr.html
+++ b/docs/html/interfacelinalg_1_1mult__qr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -220,9 +220,9 @@
 <div class="line">    <span class="comment">! for by noting that Q * R = A * P, where P is an N-by-N matrix describing</span></div>
 <div class="line">    <span class="comment">! the column pivoting operations.</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1mult__qr_html"><div class="ttname"><a href="interfacelinalg_1_1mult__qr.html">linalg::mult_qr</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01325">linalg.f90:1325</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mult__qr_html"><div class="ttname"><a href="interfacelinalg_1_1mult__qr.html">linalg::mult_qr</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01437">linalg.f90:1437</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">QR Solution: X =</div>
 <div class="line">0.3333</div>
@@ -230,7 +230,7 @@
 <div class="line">0.0000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01325">1325</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01437">1437</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1mult__rz-members.html b/docs/html/interfacelinalg_1_1mult__rz-members.html
index 65771ff2..cfa5dd22 100644
--- a/docs/html/interfacelinalg_1_1mult__rz-members.html
+++ b/docs/html/interfacelinalg_1_1mult__rz-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1mult__rz.html b/docs/html/interfacelinalg_1_1mult__rz.html
index 15b063e5..61831e25 100644
--- a/docs/html/interfacelinalg_1_1mult__rz.html
+++ b/docs/html/interfacelinalg_1_1mult__rz.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -169,7 +169,7 @@
 </dl>
 <dl class="section user"><dt>Notes</dt><dd>This routine utilizes the LAPACK routine DORMRZ (ZUNMRZ in the complex case). </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01944">1944</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02056">2056</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1nonzero__count-members.html b/docs/html/interfacelinalg_1_1nonzero__count-members.html
new file mode 100644
index 00000000..bbf8819d
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1nonzero__count-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1nonzero__count.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::nonzero_count Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>nonzero_count_csr</b> (defined in <a class="el" href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>nonzero_count_msr</b> (defined in <a class="el" href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1nonzero__count.html b/docs/html/interfacelinalg_1_1nonzero__count.html
new file mode 100644
index 00000000..4bbaab03
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1nonzero__count.html
@@ -0,0 +1,148 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::nonzero_count Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1nonzero__count.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1nonzero__count-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::nonzero_count Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Determines the number of nonzero entries in a sparse matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ad672ac03469866d168cd51a454322205" id="r_ad672ac03469866d168cd51a454322205"><td class="memItemLeft" align="right" valign="top"><a id="ad672ac03469866d168cd51a454322205" name="ad672ac03469866d168cd51a454322205"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>nonzero_count_csr</b></td></tr>
+<tr class="separator:ad672ac03469866d168cd51a454322205"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a8b04c9e1aa427508338d92e3da2c1fbb" id="r_a8b04c9e1aa427508338d92e3da2c1fbb"><td class="memItemLeft" align="right" valign="top"><a id="a8b04c9e1aa427508338d92e3da2c1fbb" name="a8b04c9e1aa427508338d92e3da2c1fbb"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>nonzero_count_msr</b></td></tr>
+<tr class="separator:a8b04c9e1aa427508338d92e3da2c1fbb"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Determines the number of nonzero entries in a sparse matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">integer(int32)</span> <span class="keywordtype">pure</span> function nonzero_count(<span class="keywordtype">class</span>(csr_matrix) x)</div>
+<div class="line"><span class="keywordtype">integer(int32)</span> <span class="keywordtype">pure</span> function nonzero_count(<span class="keywordtype">class</span>(msr_matrix) x)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">x</td><td>The sparse matrix. </td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The number of non-zero elements in the sparse matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05324">5324</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1nonzero__count.html">nonzero_count</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07-_08-members.html b/docs/html/interfacelinalg_1_1operator_07-_08-members.html
new file mode 100644
index 00000000..50140d58
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07-_08-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07-_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::operator(-) Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1operator_07-_08.html">linalg::operator(-)</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_mtx_sub</b> (defined in <a class="el" href="interfacelinalg_1_1operator_07-_08.html">linalg::operator(-)</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1operator_07-_08.html">linalg::operator(-)</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07-_08.html b/docs/html/interfacelinalg_1_1operator_07-_08.html
new file mode 100644
index 00000000..8f38a00d
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07-_08.html
@@ -0,0 +1,145 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::operator(-) Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07-_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1operator_07-_08-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::operator(-) Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Subtracts two sparse matrices.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:aef1821dfd7ab85078d305bf0e9fec299" id="r_aef1821dfd7ab85078d305bf0e9fec299"><td class="memItemLeft" align="right" valign="top"><a id="aef1821dfd7ab85078d305bf0e9fec299" name="aef1821dfd7ab85078d305bf0e9fec299"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_sub</b></td></tr>
+<tr class="separator:aef1821dfd7ab85078d305bf0e9fec299"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Subtracts two sparse matrices. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) <span class="keyword">operator</span>(-)(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">class</span>(csr_matrix) b)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The left-hand-side argument. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The right-hand-side argument.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The resulting matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05399">5399</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1operator_07-_08.html">operator(-)</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_09_08-members.html b/docs/html/interfacelinalg_1_1operator_07_09_08-members.html
new file mode 100644
index 00000000..5de46656
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_09_08-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_09_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::operator(+) Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1operator_07_09_08.html">linalg::operator(+)</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_mtx_add</b> (defined in <a class="el" href="interfacelinalg_1_1operator_07_09_08.html">linalg::operator(+)</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1operator_07_09_08.html">linalg::operator(+)</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_09_08.html b/docs/html/interfacelinalg_1_1operator_07_09_08.html
new file mode 100644
index 00000000..6837760f
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_09_08.html
@@ -0,0 +1,145 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::operator(+) Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_09_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1operator_07_09_08-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::operator(+) Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Adds two sparse matrices.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ae88de7527cacc31a959a02923cdb9c8d" id="r_ae88de7527cacc31a959a02923cdb9c8d"><td class="memItemLeft" align="right" valign="top"><a id="ae88de7527cacc31a959a02923cdb9c8d" name="ae88de7527cacc31a959a02923cdb9c8d"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_add</b></td></tr>
+<tr class="separator:ae88de7527cacc31a959a02923cdb9c8d"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Adds two sparse matrices. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) <span class="keyword">operator</span>(+)(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">class</span>(csr_matrix) b)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The left-hand-side argument. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The right-hand-side argument.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The resulting matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05384">5384</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1operator_07_09_08.html">operator(+)</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_2_08-members.html b/docs/html/interfacelinalg_1_1operator_07_2_08-members.html
new file mode 100644
index 00000000..329ed82a
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_2_08-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_2_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::operator(/) Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1operator_07_2_08.html">linalg::operator(/)</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_mtx_divide_scalar_1</b> (defined in <a class="el" href="interfacelinalg_1_1operator_07_2_08.html">linalg::operator(/)</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1operator_07_2_08.html">linalg::operator(/)</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_2_08.html b/docs/html/interfacelinalg_1_1operator_07_2_08.html
new file mode 100644
index 00000000..58bc9578
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_2_08.html
@@ -0,0 +1,145 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::operator(/) Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_2_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1operator_07_2_08-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::operator(/) Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Multiplies a sparse matrix by a scalar.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a9e80f281f0236ff4a39f046062878063" id="r_a9e80f281f0236ff4a39f046062878063"><td class="memItemLeft" align="right" valign="top"><a id="a9e80f281f0236ff4a39f046062878063" name="a9e80f281f0236ff4a39f046062878063"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_divide_scalar_1</b></td></tr>
+<tr class="separator:a9e80f281f0236ff4a39f046062878063"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Multiplies a sparse matrix by a scalar. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) <span class="keyword">operator</span>(/)(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">real(real64)</span> b)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The left-hand-side argument. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The right-hand-side argument.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The resulting matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05431">5431</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1operator_07_2_08.html">operator(/)</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_5_08-members.html b/docs/html/interfacelinalg_1_1operator_07_5_08-members.html
new file mode 100644
index 00000000..afde47dc
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_5_08-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_5_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::operator(*) Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1operator_07_5_08.html">linalg::operator(*)</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_mtx_mult_scalar_1</b> (defined in <a class="el" href="interfacelinalg_1_1operator_07_5_08.html">linalg::operator(*)</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1operator_07_5_08.html">linalg::operator(*)</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>csr_mtx_mult_scalar_2</b> (defined in <a class="el" href="interfacelinalg_1_1operator_07_5_08.html">linalg::operator(*)</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1operator_07_5_08.html">linalg::operator(*)</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1operator_07_5_08.html b/docs/html/interfacelinalg_1_1operator_07_5_08.html
new file mode 100644
index 00000000..224734ad
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1operator_07_5_08.html
@@ -0,0 +1,149 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::operator(*) Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1operator_07_5_08.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1operator_07_5_08-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::operator(*) Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Multiplies a sparse matrix and a scalar.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a1c98d8a315de404abee3c4af53b1755a" id="r_a1c98d8a315de404abee3c4af53b1755a"><td class="memItemLeft" align="right" valign="top"><a id="a1c98d8a315de404abee3c4af53b1755a" name="a1c98d8a315de404abee3c4af53b1755a"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_mult_scalar_1</b></td></tr>
+<tr class="separator:a1c98d8a315de404abee3c4af53b1755a"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:ab9ea636cb4ec5a4059dcbd18bfa5addf" id="r_ab9ea636cb4ec5a4059dcbd18bfa5addf"><td class="memItemLeft" align="right" valign="top"><a id="ab9ea636cb4ec5a4059dcbd18bfa5addf" name="ab9ea636cb4ec5a4059dcbd18bfa5addf"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_mtx_mult_scalar_2</b></td></tr>
+<tr class="separator:ab9ea636cb4ec5a4059dcbd18bfa5addf"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Multiplies a sparse matrix and a scalar. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) <span class="keyword">operator</span>(*)(<span class="keywordtype">class</span>(csr_matrix) a, <span class="keywordtype">real(real64)</span> b)</div>
+<div class="line"><span class="keywordtype">type</span>(csr_matrix) <span class="keyword">operator</span>(*)(<span class="keywordtype">real(real64)</span> a, <span class="keywordtype">class</span>(csr_matrix) b)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The left-hand-side argument. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The right-hand-side argument.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The resulting matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05415">5415</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1operator_07_5_08.html">operator(*)</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1pgmres__solver-members.html b/docs/html/interfacelinalg_1_1pgmres__solver-members.html
new file mode 100644
index 00000000..2631183c
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1pgmres__solver-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1pgmres__solver.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::pgmres_solver Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1pgmres__solver.html">linalg::pgmres_solver</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_pgmres_solver</b> (defined in <a class="el" href="interfacelinalg_1_1pgmres__solver.html">linalg::pgmres_solver</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1pgmres__solver.html">linalg::pgmres_solver</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1pgmres__solver.html b/docs/html/interfacelinalg_1_1pgmres__solver.html
new file mode 100644
index 00000000..0e69334b
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1pgmres__solver.html
@@ -0,0 +1,166 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::pgmres_solver Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1pgmres__solver.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1pgmres__solver-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::pgmres_solver Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>A preconditioned GMRES solver.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:aa8bec44360f325d67338252e04637d02" id="r_aa8bec44360f325d67338252e04637d02"><td class="memItemLeft" align="right" valign="top"><a id="aa8bec44360f325d67338252e04637d02" name="aa8bec44360f325d67338252e04637d02"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_pgmres_solver</b></td></tr>
+<tr class="separator:aa8bec44360f325d67338252e04637d02"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>A preconditioned GMRES solver. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>pgmres_solver( &amp;</div>
+<div class="line"> class(csr_matrix) a, &amp;</div>
+<div class="line"> <span class="keywordtype">class</span>(msr_matrix) lu, &amp;</div>
+<div class="line"> <span class="keywordtype">integer(int32)</span> ju(:), &amp;</div>
+<div class="line"> <span class="keywordtype">real(real64)</span> b(:), &amp;</div>
+<div class="line"> <span class="keywordtype">real(real64)</span> x(:), &amp;</div>
+<div class="line"> <span class="keywordtype">optional</span> <span class="keywordtype">integer(int32)</span> im, &amp;</div>
+<div class="line"> <span class="keywordtype">optional</span> <span class="keywordtype">real(real64)</span> tol, &amp;</div>
+<div class="line"> <span class="keywordtype">optional</span> <span class="keywordtype">integer(int32)</span> maxits, &amp;</div>
+<div class="line"> <span class="keywordtype">optional</span> <span class="keywordtype">integer(int32)</span> iout, &amp;</div>
+<div class="line"> <span class="keywordtype">optional</span> <span class="keywordtype">class</span>(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The original N-by-N matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">lu</td><td>The N-by-N LU-factored matrix of the approximation to the system as output by <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a>. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ju</td><td>The N-element U row tracking array output by <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a>. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">b</td><td>On input, the N-element right-hand-side array. On output, this array is overwritten as it is used as in-place storage by the PGMRES algorithm. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The N-element solution array. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">im</td><td>An optional parameter specifying the size of the Krylov subspace. This value should not exceed 50. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">tol</td><td>An optional parameter specifying the convergence tolerance against which the Euclidean norm of the residual is checked. The default value is the square root of machine precision. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">maxits</td><td>An optional parameter specifying the maximum number of iterations allowed. The default is 100. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iout</td><td>An optional parameter used to specify the device to which status updates will be written. If no updates are requested, a value less than or equal to zero should be supplied. The default is zero such that no updates will be provided. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if any of the arrays and/or matrices are not sized correctly.</li>
+<li>LA_OUT_OF_MEMORY_ERROR: Occurs if there is an issue with internal memory allocations. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05532">5532</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1pgmres__solver.html">pgmres_solver</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1qr__factor-members.html b/docs/html/interfacelinalg_1_1qr__factor-members.html
index f0e6d3c4..cf0ceb8d 100644
--- a/docs/html/interfacelinalg_1_1qr__factor-members.html
+++ b/docs/html/interfacelinalg_1_1qr__factor-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1qr__factor.html b/docs/html/interfacelinalg_1_1qr__factor.html
index 2c5e5387..d105cdde 100644
--- a/docs/html/interfacelinalg_1_1qr__factor.html
+++ b/docs/html/interfacelinalg_1_1qr__factor.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -208,8 +208,8 @@
 <div class="line">    <span class="comment">! same manner.  The only difference is to omit the PVT array (column pivot</span></div>
 <div class="line">    <span class="comment">! tracking array).</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02426">linalg.f90:2426</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02556">linalg.f90:2556</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">QR Solution: X =</div>
 <div class="line">0.3333</div>
@@ -223,7 +223,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01008">1008</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01120">1120</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1qr__rank1__update-members.html b/docs/html/interfacelinalg_1_1qr__rank1__update-members.html
index 66ebf280..f73f795a 100644
--- a/docs/html/interfacelinalg_1_1qr__rank1__update-members.html
+++ b/docs/html/interfacelinalg_1_1qr__rank1__update-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1qr__rank1__update.html b/docs/html/interfacelinalg_1_1qr__rank1__update.html
index a5493496..55fdb98d 100644
--- a/docs/html/interfacelinalg_1_1qr__rank1__update.html
+++ b/docs/html/interfacelinalg_1_1qr__rank1__update.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -207,10 +207,10 @@
 <div class="line">        print *, a(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01168">linalg.f90:1168</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1qr__rank1__update.html">linalg::qr_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where , and  such that ....</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01475">linalg.f90:1475</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00331">linalg.f90:331</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01280">linalg.f90:1280</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1qr__rank1__update.html">linalg::qr_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where , and  such that ....</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01587">linalg.f90:1587</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00395">linalg.f90:395</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Updating the Factored Form:</div>
 <div class="line">Q =</div>
@@ -232,7 +232,7 @@
 <div class="line"> 0.0000000000000000        0.0000000000000000       -5.2929341121113058</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01475">1475</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01587">1587</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1rank1__update-members.html b/docs/html/interfacelinalg_1_1rank1__update-members.html
index 698bc242..fd62067b 100644
--- a/docs/html/interfacelinalg_1_1rank1__update-members.html
+++ b/docs/html/interfacelinalg_1_1rank1__update-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1rank1__update.html b/docs/html/interfacelinalg_1_1rank1__update.html
index 2a3be3d0..c6037b5a 100644
--- a/docs/html/interfacelinalg_1_1rank1__update.html
+++ b/docs/html/interfacelinalg_1_1rank1__update.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -138,7 +138,7 @@
 </dl>
 <dl class="section user"><dt>Notes</dt><dd>This routine is based upon the BLAS routine DGER or ZGER. </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00331">331</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00395">395</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1recip__mult__array-members.html b/docs/html/interfacelinalg_1_1recip__mult__array-members.html
index 01ac06d0..44c79a1a 100644
--- a/docs/html/interfacelinalg_1_1recip__mult__array-members.html
+++ b/docs/html/interfacelinalg_1_1recip__mult__array-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1recip__mult__array.html b/docs/html/interfacelinalg_1_1recip__mult__array.html
index 27e92675..fddec502 100644
--- a/docs/html/interfacelinalg_1_1recip__mult__array.html
+++ b/docs/html/interfacelinalg_1_1recip__mult__array.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -128,7 +128,7 @@
 </dl>
 <dl class="section user"><dt>Notes</dt><dd>This routine is based upon the LAPACK routine DRSCL. </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00612">612</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00699">699</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1rz__factor-members.html b/docs/html/interfacelinalg_1_1rz__factor-members.html
index 2c872539..f3b7743b 100644
--- a/docs/html/interfacelinalg_1_1rz__factor-members.html
+++ b/docs/html/interfacelinalg_1_1rz__factor-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1rz__factor.html b/docs/html/interfacelinalg_1_1rz__factor.html
index 6ebf01de..89a7c4c3 100644
--- a/docs/html/interfacelinalg_1_1rz__factor.html
+++ b/docs/html/interfacelinalg_1_1rz__factor.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -148,7 +148,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01853">1853</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l01965">1965</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1size-members.html b/docs/html/interfacelinalg_1_1size-members.html
new file mode 100644
index 00000000..0c6da70b
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1size-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1size.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::size Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1size.html">linalg::size</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_size</b> (defined in <a class="el" href="interfacelinalg_1_1size.html">linalg::size</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1size.html">linalg::size</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>msr_size</b> (defined in <a class="el" href="interfacelinalg_1_1size.html">linalg::size</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1size.html">linalg::size</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1size.html b/docs/html/interfacelinalg_1_1size.html
new file mode 100644
index 00000000..4c51dc31
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1size.html
@@ -0,0 +1,149 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::size Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1size.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1size-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::size Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Determines the size of the requested dimension of the supplied sparse matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a9fe867c3be54fbc1dfc7680e841c4699" id="r_a9fe867c3be54fbc1dfc7680e841c4699"><td class="memItemLeft" align="right" valign="top"><a id="a9fe867c3be54fbc1dfc7680e841c4699" name="a9fe867c3be54fbc1dfc7680e841c4699"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_size</b></td></tr>
+<tr class="separator:a9fe867c3be54fbc1dfc7680e841c4699"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a5935025497a9248e316e9391acef19b5" id="r_a5935025497a9248e316e9391acef19b5"><td class="memItemLeft" align="right" valign="top"><a id="a5935025497a9248e316e9391acef19b5" name="a5935025497a9248e316e9391acef19b5"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>msr_size</b></td></tr>
+<tr class="separator:a5935025497a9248e316e9391acef19b5"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Determines the size of the requested dimension of the supplied sparse matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">integer(int32)</span> <span class="keywordtype">pure</span> function size(<span class="keywordtype">class</span>(csr_matrix) x, <span class="keywordtype">integer(int32)</span> dim)</div>
+<div class="line"><span class="keywordtype">integer(int32)</span> <span class="keywordtype">pure</span> function size(<span class="keywordtype">class</span>(msr_matrix) x, <span class="keywordtype">integer(int32)</span> dim)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">x</td><td>The sparse matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">dim</td><td>Either 1 (row) or 2(column).</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The size of the requested dimension. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05342">5342</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1size.html">size</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1solve__cholesky-members.html b/docs/html/interfacelinalg_1_1solve__cholesky-members.html
index 4cc13ed3..00b687ba 100644
--- a/docs/html/interfacelinalg_1_1solve__cholesky-members.html
+++ b/docs/html/interfacelinalg_1_1solve__cholesky-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__cholesky.html b/docs/html/interfacelinalg_1_1solve__cholesky.html
index 7d362683..1a0c6a8a 100644
--- a/docs/html/interfacelinalg_1_1solve__cholesky.html
+++ b/docs/html/interfacelinalg_1_1solve__cholesky.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -194,9 +194,9 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Cholesky Solution (Manual Approach): X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (bu(i), i = 1, <span class="keyword">size</span>(bu))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01574">linalg.f90:1574</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02532">linalg.f90:2532</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01686">linalg.f90:1686</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02662">linalg.f90:2662</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Cholesky Solution: X =</div>
 <div class="line"> 239.5833</div>
@@ -208,7 +208,7 @@
 <div class="line"> 10.3333</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02532">2532</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02662">2662</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares-members.html b/docs/html/interfacelinalg_1_1solve__least__squares-members.html
index d37ad0f8..46c497c3 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares-members.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares.html b/docs/html/interfacelinalg_1_1solve__least__squares.html
index 4bc1fade..1ecab81f 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -179,14 +179,14 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Least Squares Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F9.5)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(a, 2))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares.html">linalg::solve_least_squares</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns....</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02622">linalg.f90:2622</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares.html">linalg::solve_least_squares</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns....</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02752">linalg.f90:2752</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Least Squares Solution: X =</div>
 <div class="line"> 0.13158</div>
 <div class="line">-0.57895</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02622">2622</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02752">2752</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares__full-members.html b/docs/html/interfacelinalg_1_1solve__least__squares__full-members.html
index 6f77bcdb..12c9eef7 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares__full-members.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares__full-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares__full.html b/docs/html/interfacelinalg_1_1solve__least__squares__full.html
index 72b04e07..02b71355 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares__full.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares__full.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -181,14 +181,14 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Least Squares Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F9.5)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(a, 2))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__full_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__full.html">linalg::solve_least_squares_full</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02723">linalg.f90:2723</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__full_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__full.html">linalg::solve_least_squares_full</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns,...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02853">linalg.f90:2853</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Least Squares Solution: X =</div>
 <div class="line"> 0.13158</div>
 <div class="line">-0.57895</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02723">2723</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02853">2853</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares__svd-members.html b/docs/html/interfacelinalg_1_1solve__least__squares__svd-members.html
index 2b1de974..564a94b7 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares__svd-members.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares__svd-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__least__squares__svd.html b/docs/html/interfacelinalg_1_1solve__least__squares__svd.html
index 3f2d7812..9e3770f1 100644
--- a/docs/html/interfacelinalg_1_1solve__least__squares__svd.html
+++ b/docs/html/interfacelinalg_1_1solve__least__squares__svd.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -177,14 +177,14 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;Least Squares Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F9.5)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(a, 2))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__svd_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__svd.html">linalg::solve_least_squares_svd</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns using a singular va...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02825">linalg.f90:2825</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__svd_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__svd.html">linalg::solve_least_squares_svd</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns using a singular va...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02955">linalg.f90:2955</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">Least Squares Solution: X =</div>
 <div class="line"> 0.13158</div>
 <div class="line">-0.57895</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02825">2825</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02955">2955</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__lq-members.html b/docs/html/interfacelinalg_1_1solve__lq-members.html
index c166aa31..c6e99467 100644
--- a/docs/html/interfacelinalg_1_1solve__lq-members.html
+++ b/docs/html/interfacelinalg_1_1solve__lq-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__lq.html b/docs/html/interfacelinalg_1_1solve__lq.html
index 8a64426f..601b5790 100644
--- a/docs/html/interfacelinalg_1_1solve__lq.html
+++ b/docs/html/interfacelinalg_1_1solve__lq.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -184,8 +184,8 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LQ Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03437">linalg.f90:3437</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lq_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lq.html">linalg::solve_lq</a></div><div class="ttdoc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03795">linalg.f90:3795</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03567">linalg.f90:3567</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lq_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lq.html">linalg::solve_lq</a></div><div class="ttdoc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l03925">linalg.f90:3925</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">QR Solution: X =</div>
 <div class="line">0.3333</div>
@@ -197,7 +197,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03795">3795</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03925">3925</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__lu-members.html b/docs/html/interfacelinalg_1_1solve__lu-members.html
index 4581d319..73439b27 100644
--- a/docs/html/interfacelinalg_1_1solve__lu-members.html
+++ b/docs/html/interfacelinalg_1_1solve__lu-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -105,10 +105,11 @@
 
 <p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>, including all inherited members.</p>
 <table class="directory">
-  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>solve_lu_mtx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
-  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>solve_lu_mtx_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
-  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>solve_lu_vec</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
-  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>solve_lu_vec_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_lu_solve</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>solve_lu_mtx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>solve_lu_mtx_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="odd"><td class="entry"><b>solve_lu_vec</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>solve_lu_vec_cmplx</b> (defined in <a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></td><td class="entry"></td></tr>
 </table></div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
diff --git a/docs/html/interfacelinalg_1_1solve__lu.html b/docs/html/interfacelinalg_1_1solve__lu.html
index 63628a40..dc43f546 100644
--- a/docs/html/interfacelinalg_1_1solve__lu.html
+++ b/docs/html/interfacelinalg_1_1solve__lu.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -123,6 +123,9 @@
 <tr class="memitem:afad4301d7bdc6341c9d14569c14214f8" id="r_afad4301d7bdc6341c9d14569c14214f8"><td class="memItemLeft" align="right" valign="top"><a id="afad4301d7bdc6341c9d14569c14214f8" name="afad4301d7bdc6341c9d14569c14214f8"></a>
 &#160;</td><td class="memItemRight" valign="bottom"><b>solve_lu_vec_cmplx</b></td></tr>
 <tr class="separator:afad4301d7bdc6341c9d14569c14214f8"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a76ec5160a8bca4a734262bb308f9a72d" id="r_a76ec5160a8bca4a734262bb308f9a72d"><td class="memItemLeft" align="right" valign="top"><a id="a76ec5160a8bca4a734262bb308f9a72d" name="a76ec5160a8bca4a734262bb308f9a72d"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_lu_solve</b></td></tr>
+<tr class="separator:a76ec5160a8bca4a734262bb308f9a72d"><td class="memSeparator" colspan="2">&#160;</td></tr>
 </table>
 <a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
 <div class="textblock"><p>Solves a system of LU-factored equations. </p>
@@ -143,7 +146,22 @@
   </table>
   </dd>
 </dl>
-<dl class="section user"><dt>Notes</dt><dd>The routine is based upon the LAPACK routine DGETRS (ZGETRS in the complex case).</dd></dl>
+<dl class="section user"><dt>Sparse Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>solve_lu(class(msr_matrix) lu, integer(int32) ju(:), real(real64) b(:), real(real64) x(:), optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">lu</td><td>The N-by-N LU-factored matrix from <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a>. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ju</td><td>The N-element U row tracking array from <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a>. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The N-element right-hand-side array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The N-element solution array. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if any of the input array sizes are incorrect.</li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section user"><dt>Notes</dt><dd>The dense routine is based upon the LAPACK routine DGETRS (ZGETRS in the complex case).</dd></dl>
 <dl class="section user"><dt>Usage</dt><dd>To solve a system of 3 equations of 3 unknowns using LU factorization, the following code will suffice. <div class="fragment"><div class="line"><span class="keyword">program</span> example</div>
 <div class="line">    <span class="keywordtype">use </span>iso_fortran_env</div>
 <div class="line">    <span class="keywordtype">use </span><a class="code hl_namespace" href="namespacelinalg.html">linalg</a></div>
@@ -182,8 +200,8 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LU Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02291">linalg.f90:2291</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02420">linalg.f90:2420</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The program generates the following output. <div class="fragment"><div class="line">LU Solution: X =</div>
 <div class="line"> 0.3333</div>
@@ -196,7 +214,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02291">2291</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02420">2420</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__qr-members.html b/docs/html/interfacelinalg_1_1solve__qr-members.html
index 047f54e0..1dbbca4a 100644
--- a/docs/html/interfacelinalg_1_1solve__qr-members.html
+++ b/docs/html/interfacelinalg_1_1solve__qr-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__qr.html b/docs/html/interfacelinalg_1_1solve__qr.html
index 3f276446..02b1125c 100644
--- a/docs/html/interfacelinalg_1_1solve__qr.html
+++ b/docs/html/interfacelinalg_1_1solve__qr.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -222,8 +222,8 @@
 <div class="line">    <span class="comment">! same manner.  The only difference is to omit the PVT array (column pivot</span></div>
 <div class="line">    <span class="comment">! tracking array).</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02426">linalg.f90:2426</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02556">linalg.f90:2556</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">QR Solution: X =</div>
 <div class="line">0.3333</div>
@@ -236,7 +236,7 @@
 </ul>
 </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02426">2426</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02556">2556</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1solve__triangular__system-members.html b/docs/html/interfacelinalg_1_1solve__triangular__system-members.html
index ab716526..dd9a85dd 100644
--- a/docs/html/interfacelinalg_1_1solve__triangular__system-members.html
+++ b/docs/html/interfacelinalg_1_1solve__triangular__system-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1solve__triangular__system.html b/docs/html/interfacelinalg_1_1solve__triangular__system.html
index 6cf7072f..0027a124 100644
--- a/docs/html/interfacelinalg_1_1solve__triangular__system.html
+++ b/docs/html/interfacelinalg_1_1solve__triangular__system.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -200,7 +200,7 @@
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Solve the lower triangular system L * Y = P * B for Y, but first compute</span></div>
 <div class="line">    <span class="comment">! P * B, and store the results in B</span></div>
-<div class="line">    b = matmul(p, b)</div>
+<div class="line">    b = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(p, b)</div>
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Now, compute the solution to the lower triangular system.  Store the</span></div>
 <div class="line">    <span class="comment">! result in B.  Remember, L is unit diagonal (ones on its diagonal)</span></div>
@@ -213,9 +213,10 @@
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;LU Solution: X = &quot;</span></div>
 <div class="line">    print <span class="stringliteral">&#39;(F8.4)&#39;</span>, (b(i), i = 1, <span class="keyword">size</span>(b))</div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00854">linalg.f90:854</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02203">linalg.f90:2203</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00966">linalg.f90:966</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02315">linalg.f90:2315</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">LU Solution: X =</div>
 <div class="line">0.3333</div>
@@ -223,7 +224,7 @@
 <div class="line">0.0000</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02203">2203</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02315">2315</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1sort-members.html b/docs/html/interfacelinalg_1_1sort-members.html
index 55125c64..7653a07e 100644
--- a/docs/html/interfacelinalg_1_1sort-members.html
+++ b/docs/html/interfacelinalg_1_1sort-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1sort.html b/docs/html/interfacelinalg_1_1sort.html
index 0f4c633f..ba794d6c 100644
--- a/docs/html/interfacelinalg_1_1sort.html
+++ b/docs/html/interfacelinalg_1_1sort.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -177,7 +177,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03323">3323</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l03453">3453</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1sparse__direct__solve-members.html b/docs/html/interfacelinalg_1_1sparse__direct__solve-members.html
new file mode 100644
index 00000000..4a48685e
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1sparse__direct__solve-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1sparse__direct__solve.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::sparse_direct_solve Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">linalg::sparse_direct_solve</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_solve_sparse_direct</b> (defined in <a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">linalg::sparse_direct_solve</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">linalg::sparse_direct_solve</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1sparse__direct__solve.html b/docs/html/interfacelinalg_1_1sparse__direct__solve.html
new file mode 100644
index 00000000..ccb1298f
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1sparse__direct__solve.html
@@ -0,0 +1,153 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::sparse_direct_solve Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1sparse__direct__solve.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1sparse__direct__solve-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::sparse_direct_solve Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Provides a direct solution to a square, sparse system.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ac0b100224f89ac8b8afc9494dd6f59c5" id="r_ac0b100224f89ac8b8afc9494dd6f59c5"><td class="memItemLeft" align="right" valign="top"><a id="ac0b100224f89ac8b8afc9494dd6f59c5" name="ac0b100224f89ac8b8afc9494dd6f59c5"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_solve_sparse_direct</b></td></tr>
+<tr class="separator:ac0b100224f89ac8b8afc9494dd6f59c5"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Provides a direct solution to a square, sparse system. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keyword">subroutine </span>solve_direct_sparse(class(csr_matrix) a, real(real64) b(:), real(real64) x(:), optional real(real64) droptol, optional class(errors) err)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The N-by-N sparse matrix to factor. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The N-element right-hand-side array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The N-element solution array. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">droptol</td><td>An optional threshold value used to determine when to drop small terms as part of the factorization of matrix A. The default value is set to the square root of machine precision (~1e-8). </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">err</td><td>An optional errors-based object that if provided can be used to retrieve information relating to any errors encountered during execution. If not provided, a default implementation of the errors class is used internally to provide error handling. Possible errors and warning messages that may be encountered are as follows.<ul>
+<li>LA_ARRAY_SIZE_ERROR: Occurs if <code>is</code> not square, or if there is a mismatch in dimensions between <code>a</code>, <code>x</code>, and <code>b</code>.</li>
+<li>LA_OUT_OF_MEMORY_ERROR: Occurs if there is an issue with internal memory allocations.</li>
+<li>LA_MATRIX_FORMAT_ERROR: Occurs if <code>a</code> is improperly formatted.</li>
+<li>LA_SINGULAR_MATRIX_ERROR: Occurs if <code>a</code> is singular. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05482">5482</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">sparse_direct_solve</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1svd-members.html b/docs/html/interfacelinalg_1_1svd-members.html
index 1593d9ef..ed008e16 100644
--- a/docs/html/interfacelinalg_1_1svd-members.html
+++ b/docs/html/interfacelinalg_1_1svd-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1svd.html b/docs/html/interfacelinalg_1_1svd.html
index de982b1f..04e43593 100644
--- a/docs/html/interfacelinalg_1_1svd.html
+++ b/docs/html/interfacelinalg_1_1svd.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -182,14 +182,15 @@
 <div class="line"> </div>
 <div class="line">    <span class="comment">! Compute U * S * V**T</span></div>
 <div class="line">    <span class="keyword">call </span><a class="code hl_interface" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a>(.true., 1.0d0, s, vt) <span class="comment">! Compute: VT = S * V**T</span></div>
-<div class="line">    ac = matmul(u(:,1:2), vt)</div>
+<div class="line">    ac = <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a>(u(:,1:2), vt)</div>
 <div class="line">    print <span class="stringliteral">&#39;(A)&#39;</span>, <span class="stringliteral">&quot;U * S * V**T =&quot;</span></div>
 <div class="line">    <span class="keywordflow">do</span> i = 1, <span class="keyword">size</span>(ac, 1)</div>
 <div class="line">        print *, ac(i,:)</div>
 <div class="line"><span class="keywordflow">    end do</span></div>
 <div class="line"><span class="keyword">end program</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00466">linalg.f90:466</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02069">linalg.f90:2069</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00552">linalg.f90:552</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l02181">linalg.f90:2181</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
 </div><!-- fragment --> The above program produces the following output. <div class="fragment"><div class="line">U =</div>
 <div class="line"> -0.47411577501825380      -0.81850539032073777      -0.32444284226152509</div>
@@ -207,7 +208,7 @@
 <div class="line">  -1.0000000000000000       0.99999999999999967</div>
 </div><!-- fragment --> </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02069">2069</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l02181">2181</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1swap-members.html b/docs/html/interfacelinalg_1_1swap-members.html
index 255fdfa1..d09377be 100644
--- a/docs/html/interfacelinalg_1_1swap-members.html
+++ b/docs/html/interfacelinalg_1_1swap-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1swap.html b/docs/html/interfacelinalg_1_1swap.html
index 46d54f25..b171ba49 100644
--- a/docs/html/interfacelinalg_1_1swap.html
+++ b/docs/html/interfacelinalg_1_1swap.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -135,7 +135,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00593">593</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00680">680</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1trace-members.html b/docs/html/interfacelinalg_1_1trace-members.html
index ecbc43f2..6648d491 100644
--- a/docs/html/interfacelinalg_1_1trace-members.html
+++ b/docs/html/interfacelinalg_1_1trace-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1trace.html b/docs/html/interfacelinalg_1_1trace.html
index f39c7b05..792b540a 100644
--- a/docs/html/interfacelinalg_1_1trace.html
+++ b/docs/html/interfacelinalg_1_1trace.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -131,7 +131,7 @@
 </dl>
 <dl class="section return"><dt>Returns</dt><dd>The trace of <code>x</code>. </dd></dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00490">490</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00577">577</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfacelinalg_1_1transpose-members.html b/docs/html/interfacelinalg_1_1transpose-members.html
new file mode 100644
index 00000000..135ce6ae
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1transpose-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1transpose.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::transpose Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacelinalg_1_1transpose.html">linalg::transpose</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csr_transpose</b> (defined in <a class="el" href="interfacelinalg_1_1transpose.html">linalg::transpose</a>)</td><td class="entry"><a class="el" href="interfacelinalg_1_1transpose.html">linalg::transpose</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1transpose.html b/docs/html/interfacelinalg_1_1transpose.html
new file mode 100644
index 00000000..d1bc1df0
--- /dev/null
+++ b/docs/html/interfacelinalg_1_1transpose.html
@@ -0,0 +1,144 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::transpose Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacelinalg_1_1transpose.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacelinalg_1_1transpose-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::transpose Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Provides the transpose of a sparse matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a57afb6040bae50bd3fb9876195b344db" id="r_a57afb6040bae50bd3fb9876195b344db"><td class="memItemLeft" align="right" valign="top"><a id="a57afb6040bae50bd3fb9876195b344db" name="a57afb6040bae50bd3fb9876195b344db"></a>
+&#160;</td><td class="memItemRight" valign="bottom"><b>csr_transpose</b></td></tr>
+<tr class="separator:a57afb6040bae50bd3fb9876195b344db"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Provides the transpose of a sparse matrix. </p>
+<dl class="section user"><dt>Syntax</dt><dd><div class="fragment"><div class="line"><span class="keywordtype">type</span>(csr_matrix) function transpose(<span class="keywordtype">class</span>(csr_matrix) a)</div>
+</div><!-- fragment --></dd></dl>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The input matrix. </td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The resulting matrix. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l05454">5454</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="interfacelinalg_1_1transpose.html">transpose</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacelinalg_1_1tri__mtx__mult-members.html b/docs/html/interfacelinalg_1_1tri__mtx__mult-members.html
index 4bdbaf2b..a2298c87 100644
--- a/docs/html/interfacelinalg_1_1tri__mtx__mult-members.html
+++ b/docs/html/interfacelinalg_1_1tri__mtx__mult-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacelinalg_1_1tri__mtx__mult.html b/docs/html/interfacelinalg_1_1tri__mtx__mult.html
index e6c5fe7c..01b7a63f 100644
--- a/docs/html/interfacelinalg_1_1tri__mtx__mult.html
+++ b/docs/html/interfacelinalg_1_1tri__mtx__mult.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -138,7 +138,7 @@
   </dd>
 </dl>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00646">646</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00733">733</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 </div><hr/>The documentation for this interface was generated from the following file:<ul>
 <li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
 </ul>
diff --git a/docs/html/interfaceqrupdate_1_1dch1dn-members.html b/docs/html/interfaceqrupdate_1_1dch1dn-members.html
index 28927150..738ac9ad 100644
--- a/docs/html/interfaceqrupdate_1_1dch1dn-members.html
+++ b/docs/html/interfaceqrupdate_1_1dch1dn-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1dch1dn.html b/docs/html/interfaceqrupdate_1_1dch1dn.html
index 5bdb3046..5a8db53e 100644
--- a/docs/html/interfaceqrupdate_1_1dch1dn.html
+++ b/docs/html/interfaceqrupdate_1_1dch1dn.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1dch1up-members.html b/docs/html/interfaceqrupdate_1_1dch1up-members.html
index 15a1f453..e59e9ccf 100644
--- a/docs/html/interfaceqrupdate_1_1dch1up-members.html
+++ b/docs/html/interfaceqrupdate_1_1dch1up-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1dch1up.html b/docs/html/interfaceqrupdate_1_1dch1up.html
index 58c12a18..90b1d3a1 100644
--- a/docs/html/interfaceqrupdate_1_1dch1up.html
+++ b/docs/html/interfaceqrupdate_1_1dch1up.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1dqr1up-members.html b/docs/html/interfaceqrupdate_1_1dqr1up-members.html
index 2b4cf11e..07a49d56 100644
--- a/docs/html/interfaceqrupdate_1_1dqr1up-members.html
+++ b/docs/html/interfaceqrupdate_1_1dqr1up-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1dqr1up.html b/docs/html/interfaceqrupdate_1_1dqr1up.html
index 4bf513aa..42f92497 100644
--- a/docs/html/interfaceqrupdate_1_1dqr1up.html
+++ b/docs/html/interfaceqrupdate_1_1dqr1up.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zch1dn-members.html b/docs/html/interfaceqrupdate_1_1zch1dn-members.html
index 162d0a8d..797c8e71 100644
--- a/docs/html/interfaceqrupdate_1_1zch1dn-members.html
+++ b/docs/html/interfaceqrupdate_1_1zch1dn-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zch1dn.html b/docs/html/interfaceqrupdate_1_1zch1dn.html
index 68012abb..159c37db 100644
--- a/docs/html/interfaceqrupdate_1_1zch1dn.html
+++ b/docs/html/interfaceqrupdate_1_1zch1dn.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zch1up-members.html b/docs/html/interfaceqrupdate_1_1zch1up-members.html
index ed734177..ceead967 100644
--- a/docs/html/interfaceqrupdate_1_1zch1up-members.html
+++ b/docs/html/interfaceqrupdate_1_1zch1up-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zch1up.html b/docs/html/interfaceqrupdate_1_1zch1up.html
index 0633f64f..c68f8034 100644
--- a/docs/html/interfaceqrupdate_1_1zch1up.html
+++ b/docs/html/interfaceqrupdate_1_1zch1up.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zqr1up-members.html b/docs/html/interfaceqrupdate_1_1zqr1up-members.html
index 028876e4..02218f9a 100644
--- a/docs/html/interfaceqrupdate_1_1zqr1up-members.html
+++ b/docs/html/interfaceqrupdate_1_1zqr1up-members.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfaceqrupdate_1_1zqr1up.html b/docs/html/interfaceqrupdate_1_1zqr1up.html
index ba576c09..358d20dd 100644
--- a/docs/html/interfaceqrupdate_1_1zqr1up.html
+++ b/docs/html/interfaceqrupdate_1_1zqr1up.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/interfacesparskit_1_1amub-members.html b/docs/html/interfacesparskit_1_1amub-members.html
new file mode 100644
index 00000000..cb9f3756
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1amub-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1amub.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::amub Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1amub.html">sparskit::amub</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>amub</b>(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, iw, ierr) (defined in <a class="el" href="interfacesparskit_1_1amub.html">sparskit::amub</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1amub.html">sparskit::amub</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1amub.html b/docs/html/interfacesparskit_1_1amub.html
new file mode 100644
index 00000000..202ddb75
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1amub.html
@@ -0,0 +1,247 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::amub Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1amub.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1amub-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::amub Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the matrix product: C = A * B.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a4fd3d0c17da36bf3b22479b43b242f43" id="r_a4fd3d0c17da36bf3b22479b43b242f43"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a4fd3d0c17da36bf3b22479b43b242f43">amub</a> (nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, iw, ierr)</td></tr>
+<tr class="separator:a4fd3d0c17da36bf3b22479b43b242f43"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the matrix product: C = A * B. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">nrow</td><td>The row dimension of matrices A &amp; C. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ncol</td><td>The column dimension of matrices B &amp; C. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">job</td><td>Set to 0 to compute only the structure (JC &amp; IC); else, set to any non-zero value. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The non-zero elements of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">jb</td><td>The column indices of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ib</td><td>The index in B where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">c</td><td>The non-zero elements of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jc</td><td>The column indices of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ic</td><td>The index in C where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">nzmax</td><td>The length of arrays C &amp; JC. The routine will stop if the results matrix C has a number of elements that exceeds NZMAX. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iw</td><td>A workspace array with a length equal to the number of of columns in matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>An error message indicator.<ul>
+<li>0: Normal return</li>
+<li>.gt. 0: Routine failed in row I with IERR = I because the number of elements in C exceeds NZMAX. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00031">31</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a4fd3d0c17da36bf3b22479b43b242f43" name="a4fd3d0c17da36bf3b22479b43b242f43"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a4fd3d0c17da36bf3b22479b43b242f43">&#9670;&#160;</a></span>amub()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::amub::amub </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nrow</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ncol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>job</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>b</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>jb</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ib</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>c</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jc</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ic</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nzmax</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(ncol), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00031">31</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1amub.html">amub</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1aplb-members.html b/docs/html/interfacesparskit_1_1aplb-members.html
new file mode 100644
index 00000000..2ebdd7b5
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1aplb-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1aplb.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::aplb Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1aplb.html">sparskit::aplb</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>aplb</b>(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, iw, ierr) (defined in <a class="el" href="interfacesparskit_1_1aplb.html">sparskit::aplb</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1aplb.html">sparskit::aplb</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1aplb.html b/docs/html/interfacesparskit_1_1aplb.html
new file mode 100644
index 00000000..4309dcbb
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1aplb.html
@@ -0,0 +1,246 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::aplb Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1aplb.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1aplb-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::aplb Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the matrix sum: C = A + B, where the matrices are given in CSR format.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:aef3c3e7621be60a323a5ecc632d48796" id="r_aef3c3e7621be60a323a5ecc632d48796"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#aef3c3e7621be60a323a5ecc632d48796">aplb</a> (nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, iw, ierr)</td></tr>
+<tr class="separator:aef3c3e7621be60a323a5ecc632d48796"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the matrix sum: C = A + B, where the matrices are given in CSR format. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">nrow</td><td>The number of rows in the matrices. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ncol</td><td>The number of columns in the matrices. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The non-zero elements of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">jb</td><td>The column indices of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ib</td><td>The index in B where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">c</td><td>The non-zero elements of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jc</td><td>The column indices of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ic</td><td>The index in C where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">nzmax</td><td>The length of arrays C &amp; JC. The routine will stop if the results matrix C has a number of elements that exceeds NZMAX. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iw</td><td>A workspace array with a length equal to the number of of columns in matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>An error message indicator.<ul>
+<li>0: Normal return</li>
+<li>.gt. 0: Routine failed in row I with IERR = I because the number of elements in C exceeds NZMAX. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00063">63</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="aef3c3e7621be60a323a5ecc632d48796" name="aef3c3e7621be60a323a5ecc632d48796"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#aef3c3e7621be60a323a5ecc632d48796">&#9670;&#160;</a></span>aplb()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::aplb::aplb </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nrow</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ncol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>job</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>b</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>jb</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ib</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>c</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jc</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ic</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nzmax</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(ncol), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00063">63</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1aplb.html">aplb</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1aplsb-members.html b/docs/html/interfacesparskit_1_1aplsb-members.html
new file mode 100644
index 00000000..e6241809
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1aplsb-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1aplsb.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::aplsb Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1aplsb.html">sparskit::aplsb</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>aplsb</b>(nrow, ncol, a, ja, ia, s, b, jb, ib, c, jc, ic, nzmax, iw, ierr) (defined in <a class="el" href="interfacesparskit_1_1aplsb.html">sparskit::aplsb</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1aplsb.html">sparskit::aplsb</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1aplsb.html b/docs/html/interfacesparskit_1_1aplsb.html
new file mode 100644
index 00000000..1d57b009
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1aplsb.html
@@ -0,0 +1,247 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::aplsb Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1aplsb.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1aplsb-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::aplsb Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a084a4f533ac9492e08ee23bc3448aedd" id="r_a084a4f533ac9492e08ee23bc3448aedd"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a084a4f533ac9492e08ee23bc3448aedd">aplsb</a> (nrow, ncol, a, ja, ia, s, b, jb, ib, c, jc, ic, nzmax, iw, ierr)</td></tr>
+<tr class="separator:a084a4f533ac9492e08ee23bc3448aedd"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">nrow</td><td>The number of rows in the matrices. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ncol</td><td>The number of columns in the matrices. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">s</td><td>The scalar multiplier. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">b</td><td>The non-zero elements of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">jb</td><td>The column indices of matrix B. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ib</td><td>The index in B where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">c</td><td>The non-zero elements of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jc</td><td>The column indices of matrix C. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ic</td><td>The index in C where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">nzmax</td><td>The length of arrays C &amp; JC. The routine will stop if the results matrix C has a number of elements that exceeds NZMAX. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iw</td><td>A workspace array with a length equal to the number of of columns in matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>An error message indicator.<ul>
+<li>0: Normal return</li>
+<li>.gt. 0: Routine failed in row I with IERR = I because the number of elements in C exceeds NZMAX. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00096">96</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a084a4f533ac9492e08ee23bc3448aedd" name="a084a4f533ac9492e08ee23bc3448aedd"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a084a4f533ac9492e08ee23bc3448aedd">&#9670;&#160;</a></span>aplsb()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::aplsb::aplsb </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nrow</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ncol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>s</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>b</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>jb</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ib</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>c</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jc</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(nrow+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ic</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nzmax</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(ncol), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00096">96</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1aplsb.html">aplsb</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1bndcsr-members.html b/docs/html/interfacesparskit_1_1bndcsr-members.html
new file mode 100644
index 00000000..c7a56f63
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1bndcsr-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1bndcsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::bndcsr Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1bndcsr.html">sparskit::bndcsr</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>bndcsr</b>(n, abd, nabd, lowd, ml, mu, a, ja, ia, len, ierr) (defined in <a class="el" href="interfacesparskit_1_1bndcsr.html">sparskit::bndcsr</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1bndcsr.html">sparskit::bndcsr</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1bndcsr.html b/docs/html/interfacesparskit_1_1bndcsr.html
new file mode 100644
index 00000000..874e7d63
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1bndcsr.html
@@ -0,0 +1,224 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::bndcsr Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1bndcsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1bndcsr-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::bndcsr Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a1109155a376e9f4237ab8abcc42b0d47" id="r_a1109155a376e9f4237ab8abcc42b0d47"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a1109155a376e9f4237ab8abcc42b0d47">bndcsr</a> (n, abd, nabd, lowd, ml, mu, a, ja, ia, len, ierr)</td></tr>
+<tr class="separator:a1109155a376e9f4237ab8abcc42b0d47"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">abd</td><td>The banded matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">nabd</td><td>The leading dimension of <code>abd</code>. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">lowd</td><td>The row index where the lowest diagonal (leftmost) of A is located. LINPACK uses LOWD = 2 * ML + MU + 1. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ml</td><td>The bandwidth of the strict lower part of A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">mu</td><td>The bandwidth of the strict upper part of A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">len</td><td>The length of <code>a</code> and <code>ja</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error message output.<ul>
+<li>0: Normal return.</li>
+<li>-1: Invalid <code>lowd</code> value.</li>
+<li>Positive Valued: Not enough storage in <code>a</code> and <code>ja</code>. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00150">150</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a1109155a376e9f4237ab8abcc42b0d47" name="a1109155a376e9f4237ab8abcc42b0d47"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a1109155a376e9f4237ab8abcc42b0d47">&#9670;&#160;</a></span>bndcsr()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::bndcsr::bndcsr </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(nabd,*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>abd</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nabd</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>lowd</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ml</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>mu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>len</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00150">150</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1bndcsr.html">bndcsr</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1csrcsc2-members.html b/docs/html/interfacesparskit_1_1csrcsc2-members.html
new file mode 100644
index 00000000..938ac01a
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1csrcsc2-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1csrcsc2.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::csrcsc2 Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1csrcsc2.html">sparskit::csrcsc2</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csrcsc2</b>(n, n2, job, ipos, a, ja, ia, a0, ja0, ia0) (defined in <a class="el" href="interfacesparskit_1_1csrcsc2.html">sparskit::csrcsc2</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1csrcsc2.html">sparskit::csrcsc2</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1csrcsc2.html b/docs/html/interfacesparskit_1_1csrcsc2.html
new file mode 100644
index 00000000..9768517f
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1csrcsc2.html
@@ -0,0 +1,213 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::csrcsc2 Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1csrcsc2.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1csrcsc2-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::csrcsc2 Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts a CSR matrix into a CSC matrix (transposition).  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ac7376389c06621c1695bca4d00df826a" id="r_ac7376389c06621c1695bca4d00df826a"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#ac7376389c06621c1695bca4d00df826a">csrcsc2</a> (n, n2, job, ipos, a, ja, ia, a0, ja0, ia0)</td></tr>
+<tr class="separator:ac7376389c06621c1695bca4d00df826a"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts a CSR matrix into a CSC matrix (transposition). </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The number of rows in the CSR matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">n2</td><td>The number of columns in the CSC matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">job</td><td>Fill the values (job == 1) or only the pattern (job /= 1). </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ipos</td><td>Starting position of A0 in JA0. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">a0</td><td>The non-zero elements of the transposed array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ja0</td><td>The size NNZ array containing the column indices. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ia0</td><td>The N+1 size array containing the column starts. </td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00124">124</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="ac7376389c06621c1695bca4d00df826a" name="ac7376389c06621c1695bca4d00df826a"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#ac7376389c06621c1695bca4d00df826a">&#9670;&#160;</a></span>csrcsc2()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::csrcsc2::csrcsc2 </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n2</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>job</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ipos</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>a0</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ja0</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n2+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ia0</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00124">124</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1csrcsc2.html">csrcsc2</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1csrmsr-members.html b/docs/html/interfacesparskit_1_1csrmsr-members.html
new file mode 100644
index 00000000..aa8fd8e2
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1csrmsr-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1csrmsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::csrmsr Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1csrmsr.html">sparskit::csrmsr</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>csrmsr</b>(n, a, ja, ia, ao, jao, wk, iwk) (defined in <a class="el" href="interfacesparskit_1_1csrmsr.html">sparskit::csrmsr</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1csrmsr.html">sparskit::csrmsr</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1csrmsr.html b/docs/html/interfacesparskit_1_1csrmsr.html
new file mode 100644
index 00000000..2f530115
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1csrmsr.html
@@ -0,0 +1,201 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::csrmsr Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1csrmsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1csrmsr-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::csrmsr Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts a CSR matrix to an MSR matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a9e6d82a94029ab259a79d49c4b270f39" id="r_a9e6d82a94029ab259a79d49c4b270f39"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a9e6d82a94029ab259a79d49c4b270f39">csrmsr</a> (n, a, ja, ia, ao, jao, wk, iwk)</td></tr>
+<tr class="separator:a9e6d82a94029ab259a79d49c4b270f39"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts a CSR matrix to an MSR matrix. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ao</td><td>An NNZ-element array containing the non-zero elements for the MSR matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jao</td><td>An NNZ-element index tracking array for the MSR matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">wk</td><td>An N-element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iwk</td><td>An N+1 element workspace array. </td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00170">170</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a9e6d82a94029ab259a79d49c4b270f39" name="a9e6d82a94029ab259a79d49c4b270f39"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a9e6d82a94029ab259a79d49c4b270f39">&#9670;&#160;</a></span>csrmsr()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::csrmsr::csrmsr </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ao</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jao</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>wk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iwk</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00170">170</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1csrmsr.html">csrmsr</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1getdia-members.html b/docs/html/interfacesparskit_1_1getdia-members.html
new file mode 100644
index 00000000..800b1666
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1getdia-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1getdia.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::getdia Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1getdia.html">sparskit::getdia</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>getdia</b>(nrow, ncol, job, a, ja, ia, len, diag, idiag, ioff) (defined in <a class="el" href="interfacesparskit_1_1getdia.html">sparskit::getdia</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1getdia.html">sparskit::getdia</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1getdia.html b/docs/html/interfacesparskit_1_1getdia.html
new file mode 100644
index 00000000..ed95bba0
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1getdia.html
@@ -0,0 +1,209 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::getdia Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1getdia.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1getdia-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::getdia Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Extracts the diagonal from a matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a6a867c20bcdec92edebd99f65b065e6c" id="r_a6a867c20bcdec92edebd99f65b065e6c"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a6a867c20bcdec92edebd99f65b065e6c">getdia</a> (nrow, ncol, job, a, ja, ia, len, diag, idiag, ioff)</td></tr>
+<tr class="separator:a6a867c20bcdec92edebd99f65b065e6c"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Extracts the diagonal from a matrix. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">nrow</td><td>The number of rows. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ncol</td><td>The number of columns. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">job</td><td>Set to 0 to not alter <code>a</code>, <code>ja</code>, and <code>ia</code>; else, set to a non-zero value to perform this as an in-place operation. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">len</td><td>The number of non-zero elements found in <code>diag</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">idiag</td><td>An array of length <code>len</code> containing the original positions in the original arrays <code>a</code> and <code>ja</code> of the diagonal elements collected in diagl. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ioff</td><td>The offset of the wanted diagonal. </td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00234">234</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a6a867c20bcdec92edebd99f65b065e6c" name="a6a867c20bcdec92edebd99f65b065e6c"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a6a867c20bcdec92edebd99f65b065e6c">&#9670;&#160;</a></span>getdia()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::getdia::getdia </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>nrow</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ncol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>job</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>len</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>diag</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>idiag</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ioff</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00234">234</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1getdia.html">getdia</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1getelm-members.html b/docs/html/interfacesparskit_1_1getelm-members.html
new file mode 100644
index 00000000..1272b1ad
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1getelm-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1getelm.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::getelm Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1getelm.html">sparskit::getelm</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>getelm</b>(i, j, a, ja, ia, iadd, sorted) (defined in <a class="el" href="interfacesparskit_1_1getelm.html">sparskit::getelm</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1getelm.html">sparskit::getelm</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1getelm.html b/docs/html/interfacesparskit_1_1getelm.html
new file mode 100644
index 00000000..ed7c7abc
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1getelm.html
@@ -0,0 +1,196 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::getelm Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1getelm.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1getelm-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::getelm Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Gets element A(i,j) of matrix A for any pair (i,j).  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ad4e9fbe69f6d6dbed22c44bccb5d4d1c" id="r_ad4e9fbe69f6d6dbed22c44bccb5d4d1c"><td class="memItemLeft" align="right" valign="top">real(real64) function&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#ad4e9fbe69f6d6dbed22c44bccb5d4d1c">getelm</a> (i, j, a, ja, ia, iadd, sorted)</td></tr>
+<tr class="separator:ad4e9fbe69f6d6dbed22c44bccb5d4d1c"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Gets element A(i,j) of matrix A for any pair (i,j). </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">i</td><td>The row index. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">j</td><td>The column index. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iadd</td><td>The address of element A(i,j) in arrays A &amp; JA, if found; else, zero if not found. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">sorted</td><td>Indicates whether the matrix is known to be sorted.</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section return"><dt>Returns</dt><dd>The requested value. </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00214">214</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="ad4e9fbe69f6d6dbed22c44bccb5d4d1c" name="ad4e9fbe69f6d6dbed22c44bccb5d4d1c"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#ad4e9fbe69f6d6dbed22c44bccb5d4d1c">&#9670;&#160;</a></span>getelm()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">real(real64) function sparskit::getelm::getelm </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>i</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>j</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iadd</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">logical, intent(in)</td>          <td class="paramname"><span class="paramname"><em>sorted</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00214">214</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1getelm.html">getelm</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilud-members.html b/docs/html/interfacesparskit_1_1ilud-members.html
new file mode 100644
index 00000000..7b1d66db
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilud-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilud.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::ilud Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1ilud.html">sparskit::ilud</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>ilud</b>(n, a, ja, ia, alph, tol, alu, jlu, ju, iwk, w, jw, ierr) (defined in <a class="el" href="interfacesparskit_1_1ilud.html">sparskit::ilud</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1ilud.html">sparskit::ilud</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilud.html b/docs/html/interfacesparskit_1_1ilud.html
new file mode 100644
index 00000000..dd34602d
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilud.html
@@ -0,0 +1,238 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::ilud Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilud.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1ilud-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::ilud Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a5c60bd2e2e6db559c1fadab0f81e6e19" id="r_a5c60bd2e2e6db559c1fadab0f81e6e19"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a5c60bd2e2e6db559c1fadab0f81e6e19">ilud</a> (n, a, ja, ia, alph, tol, alu, jlu, ju, iwk, w, jw, ierr)</td></tr>
+<tr class="separator:a5c60bd2e2e6db559c1fadab0f81e6e19"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">alph</td><td>The diagonal compensation parameter. If ALPH = 0, the process is approximately equivalent to ILU with threshold; else, if ALPH = 1, the process is approximately equivalent to MILU with threshold. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">tol</td><td>The threshold parameter for dropping small terms in the factorization. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">alu</td><td>The factored matrix stored in Modified Sparse Row (MSR) format containing the L and U factors together. The diagonal, stored in ALU(1:N), is inverted. Each i-th row of the ALU, JLU matrix contains the i-th row of L, excluding the diagonal entry, followed by the i-th row of U. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jlu</td><td>The column indices for the factored matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ju</td><td>An N-element array containing the pointers to the beginning of each row of U in the factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iwk</td><td>The lengths of <code>alu</code> and <code>jlu</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">w</td><td>An N+1 element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jw</td><td>A 2*N element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error flag:<ul>
+<li>0: Successful return</li>
+<li>.gt. 0: Zero pivot encountered at step number IERR.</li>
+<li>-1: Input matrix is incorrect. The elimination process generated a row in L or U whose length is greater than N.</li>
+<li>-2: Insufficient storage for the LU factors.</li>
+<li>-3: Zero-valued row encountered. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00386">386</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a5c60bd2e2e6db559c1fadab0f81e6e19" name="a5c60bd2e2e6db559c1fadab0f81e6e19"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a5c60bd2e2e6db559c1fadab0f81e6e19">&#9670;&#160;</a></span>ilud()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::ilud::ilud </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>alph</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>tol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ju</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>iwk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>w</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00386">386</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1ilud.html">ilud</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1iludp-members.html b/docs/html/interfacesparskit_1_1iludp-members.html
new file mode 100644
index 00000000..82d1eda3
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1iludp-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1iludp.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::iludp Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1iludp.html">sparskit::iludp</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>iludp</b>(n, a, ja, ia, alph, droptol, permtol, mbloc, alu, jlu, ju, iwk, w, jw, iperm, ierr) (defined in <a class="el" href="interfacesparskit_1_1iludp.html">sparskit::iludp</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1iludp.html">sparskit::iludp</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1iludp.html b/docs/html/interfacesparskit_1_1iludp.html
new file mode 100644
index 00000000..27ad77ae
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1iludp.html
@@ -0,0 +1,255 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::iludp Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1iludp.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1iludp-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::iludp Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a526ced33c40411d5c1432b321bc01238" id="r_a526ced33c40411d5c1432b321bc01238"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a526ced33c40411d5c1432b321bc01238">iludp</a> (n, a, ja, ia, alph, droptol, permtol, mbloc, alu, jlu, ju, iwk, w, jw, iperm, ierr)</td></tr>
+<tr class="separator:a526ced33c40411d5c1432b321bc01238"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">alph</td><td>The diagonal compensation parameter. If ALPH = 0, the process is approximately equivalent to ILU with threshold; else, if ALPH = 1, the process is approximately equivalent to MILU with threshold. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">droptol</td><td>The threshold for dropping small terms in the factorization. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">permtol</td><td>A tolerance ratio used to determine whether or not to permute two columns. At step I, columns I and J are permuted when ABS(A(I,J)) * PERMTOL .GT. ABS(A(I,I)). Good values are typically between 0.1 to 0.01. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">mbloc</td><td>If desired, permuting can be done only within the diagonal blocks of size MBLOC. Useful for PDE problems with many degrees of freedom. If this feature is not required, simply set MBLOC equal to N. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">alu</td><td>The factored matrix stored in Modified Sparse Row (MSR) format containing the L and U factors together. The diagonal, stored in ALU(1:N), is inverted. Each i-th row of the ALU, JLU matrix contains the i-th row of L, excluding the diagonal entry, followed by the i-th row of U. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jlu</td><td>The column indices for the factored matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ju</td><td>An N-element array containing the pointers to the beginning of each row of U in the factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iwk</td><td>The lengths of <code>alu</code> and <code>jlu</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">w</td><td>An N+1 element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jw</td><td>A 2*N element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error flag:<ul>
+<li>0: Successful return</li>
+<li>.gt. 0: Zero pivot encountered at step number IERR.</li>
+<li>-1: Input matrix is incorrect. The elimination process generated a row in L or U whose length is greater than N.</li>
+<li>-2: Insufficient storage for the LU factors.</li>
+<li>-3: Zero-valued row encountered. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00433">433</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a526ced33c40411d5c1432b321bc01238" name="a526ced33c40411d5c1432b321bc01238"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a526ced33c40411d5c1432b321bc01238">&#9670;&#160;</a></span>iludp()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::iludp::iludp </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>alph</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>droptol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>permtol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>mbloc</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ju</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>iwk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>w</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iperm</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00433">433</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1iludp.html">iludp</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilut-members.html b/docs/html/interfacesparskit_1_1ilut-members.html
new file mode 100644
index 00000000..35c3a90d
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilut-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilut.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::ilut Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1ilut.html">sparskit::ilut</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>ilut</b>(n, a, ja, ia, lfil, droptol, alu, jlu, ju, iwk, w, jw, ierr) (defined in <a class="el" href="interfacesparskit_1_1ilut.html">sparskit::ilut</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1ilut.html">sparskit::ilut</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilut.html b/docs/html/interfacesparskit_1_1ilut.html
new file mode 100644
index 00000000..d0618ec3
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilut.html
@@ -0,0 +1,240 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::ilut Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilut.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1ilut-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::ilut Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a146247834a5d0376dbf69580733cd7a8" id="r_a146247834a5d0376dbf69580733cd7a8"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a146247834a5d0376dbf69580733cd7a8">ilut</a> (n, a, ja, ia, lfil, droptol, alu, jlu, ju, iwk, w, jw, ierr)</td></tr>
+<tr class="separator:a146247834a5d0376dbf69580733cd7a8"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">lfil</td><td>The fill-in parameter. Each row of L and each row of U will have a maximum of <code>lfil</code> elements, excluding the diagonal element. <code>lfil</code> must be greater than or equal to zero. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">droptol</td><td>The threshold for dropping small terms in the factorization. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">alu</td><td>The factored matrix stored in Modified Sparse Row (MSR) format containing the L and U factors together. The diagonal, stored in ALU(1:N), is inverted. Each i-th row of the ALU, JLU matrix contains the i-th row of L, excluding the diagonal entry, followed by the i-th row of U. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jlu</td><td>The column indices for the factored matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ju</td><td>An N-element array containing the pointers to the beginning of each row of U in the factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iwk</td><td>The lengths of <code>alu</code> and <code>jlu</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">w</td><td>An N+1 element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jw</td><td>A 2*N element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error flag:<ul>
+<li>0: Successful return</li>
+<li>.gt. 0: Zero pivot encountered at step number IERR.</li>
+<li>-1: Input matrix is incorrect. The elimination process generated a row in L or U whose length is greater than N.</li>
+<li>-2: The matrix L overflows the output array.</li>
+<li>-3: The matrix U overflows the output array.</li>
+<li>-4: Illegal value for @P lfil.</li>
+<li>-5: Zero-valued row encountered. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00277">277</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a146247834a5d0376dbf69580733cd7a8" name="a146247834a5d0376dbf69580733cd7a8"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a146247834a5d0376dbf69580733cd7a8">&#9670;&#160;</a></span>ilut()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::ilut::ilut </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>lfil</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>droptol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ju</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>iwk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>w</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00277">277</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1ilut.html">ilut</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilutp-members.html b/docs/html/interfacesparskit_1_1ilutp-members.html
new file mode 100644
index 00000000..9e6b2343
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilutp-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilutp.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::ilutp Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1ilutp.html">sparskit::ilutp</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>ilutp</b>(n, a, ja, ia, lfil, droptol, permtol, mbloc, alu, jlu, ju, iwk, w, jw, iperm, ierr) (defined in <a class="el" href="interfacesparskit_1_1ilutp.html">sparskit::ilutp</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1ilutp.html">sparskit::ilutp</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1ilutp.html b/docs/html/interfacesparskit_1_1ilutp.html
new file mode 100644
index 00000000..188155be
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1ilutp.html
@@ -0,0 +1,262 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::ilutp Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1ilutp.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1ilutp-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::ilutp Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism and pivoting.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a512e6ba567f26f353dc619bdd89052eb" id="r_a512e6ba567f26f353dc619bdd89052eb"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a512e6ba567f26f353dc619bdd89052eb">ilutp</a> (n, a, ja, ia, lfil, droptol, permtol, mbloc, alu, jlu, ju, iwk, w, jw, iperm, ierr)</td></tr>
+<tr class="separator:a512e6ba567f26f353dc619bdd89052eb"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism and pivoting. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">a</td><td>The non-zero elements of matrix A. On output, the columns are permuted. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">ja</td><td>The column indices of matrix A. On output, the columns are permuted. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. On output, the columns are permuted. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">lfil</td><td>The fill-in parameter. Each row of L and each row of U will have a maximum of <code>lfil</code> elements, excluding the diagonal element. <code>lfil</code> must be greater than or equal to zero. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">droptol</td><td>The threshold for dropping small terms in the factorization. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">permtol</td><td>A tolerance ratio used to determine whether or not to permute two columns. At step I, columns I and J are permuted when ABS(A(I,J)) * PERMTOL .GT. ABS(A(I,I)). Good values are typically between 0.1 to 0.01. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">mbloc</td><td>If desired, permuting can be done only within the diagonal blocks of size MBLOC. Useful for PDE problems with many degrees of freedom. If this feature is not required, simply set MBLOC equal to N. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">alu</td><td>The factored matrix stored in Modified Sparse Row (MSR) format containing the L and U factors together. The diagonal, stored in ALU(1:N), is inverted. Each i-th row of the ALU, JLU matrix contains the i-th row of L, excluding the diagonal entry, followed by the i-th row of U. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jlu</td><td>The column indices for the factored matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ju</td><td>An N-element array containing the pointers to the beginning of each row of U in the factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iwk</td><td>The lengths of <code>alu</code> and <code>jlu</code>. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">w</td><td>An N+1 element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jw</td><td>A 2*N element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iperm</td><td>A 2*N element array containing the permutation arrays. IPERM(1:N) contains the old numbers of unknowns, and IPERM(N+1:) contains the new unknowns. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error flag:<ul>
+<li>0: Successful return</li>
+<li>.gt. 0: Zero pivot encountered at step number IERR.</li>
+<li>-1: Input matrix is incorrect. The elimination process generated a row in L or U whose length is greater than N.</li>
+<li>-2: The matrix L overflows the output array.</li>
+<li>-3: The matrix U overflows the output array.</li>
+<li>-4: Illegal value for @P lfil.</li>
+<li>-5: Zero-valued row encountered.</li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+<dl class="section user"><dt>Remarks</dt><dd>To avoid permuting the solution vector arrays for each LU-solve, the matrix A is permuted on return. Similarly for the U matrix. To permute the matrix back to its original state, use the following code. <div class="fragment"><div class="line"><span class="keywordflow">do</span> k = ia(1), ia(n+1) - 1</div>
+<div class="line"> ja(k) = iperm(ja(k))</div>
+<div class="line"><span class="keyword">end </span>do</div>
+</div><!-- fragment --> </dd></dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00343">343</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a512e6ba567f26f353dc619bdd89052eb" name="a512e6ba567f26f353dc619bdd89052eb"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a512e6ba567f26f353dc619bdd89052eb">&#9670;&#160;</a></span>ilutp()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::ilutp::ilutp </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>lfil</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>droptol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>permtol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>mbloc</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ju</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>iwk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>w</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jw</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(2*n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iperm</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00343">343</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1ilutp.html">ilutp</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1lusol-members.html b/docs/html/interfacesparskit_1_1lusol-members.html
new file mode 100644
index 00000000..a24c34da
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1lusol-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1lusol.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::lusol Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1lusol.html">sparskit::lusol</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>lusol</b>(n, y, x, alu, jlu, ju) (defined in <a class="el" href="interfacesparskit_1_1lusol.html">sparskit::lusol</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1lusol.html">sparskit::lusol</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1lusol.html b/docs/html/interfacesparskit_1_1lusol.html
new file mode 100644
index 00000000..b6e18447
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1lusol.html
@@ -0,0 +1,189 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::lusol Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1lusol.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1lusol-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::lusol Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Solves the LU-factored system (LU) x = y.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ae1041b25d038cf98bd37c5b688905660" id="r_ae1041b25d038cf98bd37c5b688905660"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#ae1041b25d038cf98bd37c5b688905660">lusol</a> (n, y, x, alu, jlu, ju)</td></tr>
+<tr class="separator:ae1041b25d038cf98bd37c5b688905660"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Solves the LU-factored system (LU) x = y. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The dimension of the system. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">y</td><td>The N-element right-hand-side vector. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">x</td><td>The N-element solution vector. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">alu</td><td>The LU-factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">jlu</td><td>The LU-factored matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ju</td><td>The LU-factored matrix. </td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00493">493</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="ae1041b25d038cf98bd37c5b688905660" name="ae1041b25d038cf98bd37c5b688905660"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#ae1041b25d038cf98bd37c5b688905660">&#9670;&#160;</a></span>lusol()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::lusol::lusol </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(in)</td>          <td class="paramname"><span class="paramname"><em>y</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>x</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ju</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00493">493</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1lusol.html">lusol</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1msrcsr-members.html b/docs/html/interfacesparskit_1_1msrcsr-members.html
new file mode 100644
index 00000000..3cb8f4b6
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1msrcsr-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1msrcsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::msrcsr Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1msrcsr.html">sparskit::msrcsr</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>msrcsr</b>(n, a, ja, ao, jao, iao, wk, iwk) (defined in <a class="el" href="interfacesparskit_1_1msrcsr.html">sparskit::msrcsr</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1msrcsr.html">sparskit::msrcsr</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1msrcsr.html b/docs/html/interfacesparskit_1_1msrcsr.html
new file mode 100644
index 00000000..51c6f36e
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1msrcsr.html
@@ -0,0 +1,201 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::msrcsr Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1msrcsr.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1msrcsr-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::msrcsr Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>Converts and MSR matrix to a CSR matrix.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a365b0fabd843c53fbef87ea807865085" id="r_a365b0fabd843c53fbef87ea807865085"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a365b0fabd843c53fbef87ea807865085">msrcsr</a> (n, a, ja, ao, jao, iao, wk, iwk)</td></tr>
+<tr class="separator:a365b0fabd843c53fbef87ea807865085"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>Converts and MSR matrix to a CSR matrix. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">a</td><td>An NNZ-element array containing the non-zero elements for the MSR matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>An NNZ-element index tracking array for the MSR matrix. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ao</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">jao</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iao</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">wk</td><td>An N-element workspace array. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">iwk</td><td>An N+1 element workspace array. </td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00191">191</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a365b0fabd843c53fbef87ea807865085" name="a365b0fabd843c53fbef87ea807865085"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a365b0fabd843c53fbef87ea807865085">&#9670;&#160;</a></span>msrcsr()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::msrcsr::msrcsr </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>a</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ao</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>jao</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iao</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(out)</td>          <td class="paramname"><span class="paramname"><em>wk</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(out)</td>          <td class="paramname"><span class="paramname"><em>iwk</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00191">191</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1msrcsr.html">msrcsr</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1pgmres-members.html b/docs/html/interfacesparskit_1_1pgmres-members.html
new file mode 100644
index 00000000..29be7cb2
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1pgmres-members.html
@@ -0,0 +1,118 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1pgmres.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit::pgmres Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="interfacesparskit_1_1pgmres.html">sparskit::pgmres</a>, including all inherited members.</p>
+<table class="directory">
+  <tr bgcolor="#f0f0f0" class="even"><td class="entry"><b>pgmres</b>(n, im, rhs, sol, vv, eps, maxits, iout, aa, ja, ia, alu, jlu, ju, ierr) (defined in <a class="el" href="interfacesparskit_1_1pgmres.html">sparskit::pgmres</a>)</td><td class="entry"><a class="el" href="interfacesparskit_1_1pgmres.html">sparskit::pgmres</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/interfacesparskit_1_1pgmres.html b/docs/html/interfacesparskit_1_1pgmres.html
new file mode 100644
index 00000000..6fdbb8f6
--- /dev/null
+++ b/docs/html/interfacesparskit_1_1pgmres.html
@@ -0,0 +1,248 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit::pgmres Interface Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('interfacesparskit_1_1pgmres.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="interfacesparskit_1_1pgmres-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">sparskit::pgmres Interface Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the ILUT routine to precondition the GMRES algorithm. The stopping criteria utilized is based simply on reducing the residual norm to the requested tolerance.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:a89b07341576a990fb0e7655023a8e935" id="r_a89b07341576a990fb0e7655023a8e935"><td class="memItemLeft" align="right" valign="top">subroutine&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a89b07341576a990fb0e7655023a8e935">pgmres</a> (n, im, rhs, sol, vv, eps, maxits, iout, aa, ja, ia, alu, jlu, ju, ierr)</td></tr>
+<tr class="separator:a89b07341576a990fb0e7655023a8e935"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the ILUT routine to precondition the GMRES algorithm. The stopping criteria utilized is based simply on reducing the residual norm to the requested tolerance. </p>
+<dl class="params"><dt>Parameters</dt><dd>
+  <table class="params">
+    <tr><td class="paramdir">[in]</td><td class="paramname">n</td><td>The row dimension of the matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">im</td><td>The size of the Krylov subspace. This value should not exceed 50. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">rhs</td><td>The N-element right-hand-side vector. On output, the contents of this array are overwritten. </td></tr>
+    <tr><td class="paramdir">[in,out]</td><td class="paramname">sol</td><td>On input, the N-element solution estimate. On output, the computed solution. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">vv</td><td>An N-by-IM+1 workspace matrix. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">eps</td><td>The convergence tolerance against which the norm of the residual is checked. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">maxits</td><td>The maximum number of iterations to allow. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">iout</td><td>The device output number for printing intermediate results. Set to a value less than or equal to zero to suppress printing. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">aa</td><td>The non-zero elements of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ja</td><td>The column indices of matrix A. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ia</td><td>The index in A where the requested row starts. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">alu</td><td>The LU-factored matrix from ILUT. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">jlu</td><td>The LU-factored matrix from ILUT. </td></tr>
+    <tr><td class="paramdir">[in]</td><td class="paramname">ju</td><td>The LU-factored matrix from ILUT. </td></tr>
+    <tr><td class="paramdir">[out]</td><td class="paramname">ierr</td><td>Error flag:<ul>
+<li>0: Successful return</li>
+<li>1: Convergence not achieved.</li>
+<li>-1: The initial guess seems to be the exact solution. </li>
+</ul>
+</td></tr>
+  </table>
+  </dd>
+</dl>
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00474">474</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+</div><h2 class="groupheader">Constructor &amp; Destructor Documentation</h2>
+<a id="a89b07341576a990fb0e7655023a8e935" name="a89b07341576a990fb0e7655023a8e935"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a89b07341576a990fb0e7655023a8e935">&#9670;&#160;</a></span>pgmres()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">subroutine sparskit::pgmres::pgmres </td>
+          <td>(</td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>n</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>im</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>rhs</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n), intent(inout)</td>          <td class="paramname"><span class="paramname"><em>sol</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(n,*), intent(out)</td>          <td class="paramname"><span class="paramname"><em>vv</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), intent(in)</td>          <td class="paramname"><span class="paramname"><em>eps</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>maxits</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(in)</td>          <td class="paramname"><span class="paramname"><em>iout</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>aa</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ja</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n+1), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ia</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">real(real64), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>alu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(*), intent(in)</td>          <td class="paramname"><span class="paramname"><em>jlu</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), dimension(n), intent(in)</td>          <td class="paramname"><span class="paramname"><em>ju</em>, </span></td>
+        </tr>
+        <tr>
+          <td class="paramkey"></td>
+          <td></td>
+          <td class="paramtype">integer(int32), intent(out)</td>          <td class="paramname"><span class="paramname"><em>ierr</em></span>&#160;)</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p class="definition">Definition at line <a class="el" href="sparskit_8f90_source.html#l00474">474</a> of file <a class="el" href="sparskit_8f90_source.html">sparskit.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this interface was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="sparskit_8f90_source.html">sparskit.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li><li class="navelem"><a class="el" href="interfacesparskit_1_1pgmres.html">pgmres</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/lapack_8f90_source.html b/docs/html/lapack_8f90_source.html
index 11807b0f..7bd9bb70 100644
--- a/docs/html/lapack_8f90_source.html
+++ b/docs/html/lapack_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg_8f90_source.html b/docs/html/linalg_8f90_source.html
index 888f7da1..980d9faf 100644
--- a/docs/html/linalg_8f90_source.html
+++ b/docs/html/linalg_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -156,1476 +156,1896 @@
 <div class="line"><a id="l00187" name="l00187"></a><span class="lineno">  187</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__mult.html">band_mtx_mult</a></div>
 <div class="line"><a id="l00188" name="l00188"></a><span class="lineno">  188</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a></div>
 <div class="line"><a id="l00189" name="l00189"></a><span class="lineno">  189</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1band__diag__mtx__mult.html">band_diag_mtx_mult</a></div>
-<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span>    <span class="keywordtype">public</span> :: la_no_operation</div>
-<div class="line"><a id="l00191" name="l00191"></a><span class="lineno">  191</span>    <span class="keywordtype">public</span> :: la_transpose</div>
-<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>    <span class="keywordtype">public</span> :: la_hermitian_transpose</div>
-<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span>    <span class="keywordtype">public</span> :: la_no_error</div>
-<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>    <span class="keywordtype">public</span> :: la_invalid_input_error</div>
-<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span>    <span class="keywordtype">public</span> :: la_array_size_error</div>
-<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span>    <span class="keywordtype">public</span> :: la_singular_matrix_error</div>
-<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span>    <span class="keywordtype">public</span> :: la_matrix_format_error</div>
-<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span>    <span class="keywordtype">public</span> :: la_out_of_memory_error</div>
-<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span>    <span class="keywordtype">public</span> :: la_convergence_error</div>
-<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    <span class="keywordtype">public</span> :: la_invalid_operation_error</div>
-<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span> </div>
-<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l00203" name="l00203"></a><span class="lineno">  203</span><span class="comment">! CONSTANTS</span></div>
-<div class="line"><a id="l00204" name="l00204"></a><span class="lineno">  204</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l00206" name="l00206"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a665d131453840e869510e9e8d2f7f151">  206</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_no_operation = 0</div>
-<div class="line"><a id="l00208" name="l00208"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59">  208</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_transpose = 1</div>
-<div class="line"><a id="l00210" name="l00210"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a">  210</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_hermitian_transpose = 2</div>
-<div class="line"><a id="l00211" name="l00211"></a><span class="lineno">  211</span> </div>
-<div class="line"><a id="l00212" name="l00212"></a><span class="lineno">  212</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l00213" name="l00213"></a><span class="lineno">  213</span><span class="comment">! ERROR FLAGS</span></div>
-<div class="line"><a id="l00214" name="l00214"></a><span class="lineno">  214</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l00216" name="l00216"></a><span class="lineno"><a class="line" href="namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4">  216</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_no_error = 0</div>
-<div class="line"><a id="l00218" name="l00218"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ace738355659bce2e9591473f0d543ef7">  218</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_invalid_input_error = 101</div>
-<div class="line"><a id="l00220" name="l00220"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9">  220</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_array_size_error = 102</div>
-<div class="line"><a id="l00222" name="l00222"></a><span class="lineno"><a class="line" href="namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9">  222</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_singular_matrix_error = 103</div>
-<div class="line"><a id="l00224" name="l00224"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776">  224</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_matrix_format_error = 104</div>
-<div class="line"><a id="l00226" name="l00226"></a><span class="lineno"><a class="line" href="namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006">  226</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_out_of_memory_error = 105</div>
-<div class="line"><a id="l00228" name="l00228"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7">  228</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_convergence_error = 106</div>
-<div class="line"><a id="l00230" name="l00230"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc">  230</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_invalid_operation_error = 107</div>
-<div class="line"><a id="l00231" name="l00231"></a><span class="lineno">  231</span> </div>
-<div class="line"><a id="l00232" name="l00232"></a><span class="lineno">  232</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l00233" name="l00233"></a><span class="lineno">  233</span><span class="comment">! INTERFACES</span></div>
-<div class="line"><a id="l00234" name="l00234"></a><span class="lineno">  234</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00296" data-start="" data-end="">
-<div class="line"><a id="l00296" name="l00296"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__mult.html">  296</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__mult.html">mtx_mult</a></div>
-<div class="line"><a id="l00297" name="l00297"></a><span class="lineno">  297</span>    <span class="keyword">module procedure</span> :: mtx_mult_mtx</div>
-<div class="line"><a id="l00298" name="l00298"></a><span class="lineno">  298</span>    <span class="keyword">module procedure</span> :: mtx_mult_vec</div>
-<div class="line"><a id="l00299" name="l00299"></a><span class="lineno">  299</span>    <span class="keyword">module procedure</span> :: cmtx_mult_mtx</div>
-<div class="line"><a id="l00300" name="l00300"></a><span class="lineno">  300</span>    <span class="keyword">module procedure</span> :: cmtx_mult_vec</div>
+<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1banded__to__dense.html">banded_to_dense</a></div>
+<div class="line"><a id="l00191" name="l00191"></a><span class="lineno">  191</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1dense__to__banded.html">dense_to_banded</a></div>
+<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1extract__diagonal.html">extract_diagonal</a></div>
+<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span>    <span class="keywordtype">public</span> :: <a class="code hl_struct" href="structlinalg_1_1csr__matrix.html">csr_matrix</a></div>
+<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>    <span class="keywordtype">public</span> :: <a class="code hl_struct" href="structlinalg_1_1msr__matrix.html">msr_matrix</a></div>
+<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span>    <span class="keywordtype">public</span> :: <span class="keyword">size</span></div>
+<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span>    <span class="keywordtype">public</span> :: create_empty_csr_matrix</div>
+<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span>    <span class="keywordtype">public</span> :: create_empty_msr_matrix</div>
+<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1nonzero__count.html">nonzero_count</a></div>
+<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span>    <span class="keywordtype">public</span> :: dense_to_csr</div>
+<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    <span class="keywordtype">public</span> :: diag_to_csr</div>
+<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span>    <span class="keywordtype">public</span> :: banded_to_csr</div>
+<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span>    <span class="keywordtype">public</span> :: csr_to_dense</div>
+<div class="line"><a id="l00203" name="l00203"></a><span class="lineno">  203</span>    <span class="keywordtype">public</span> :: csr_to_msr</div>
+<div class="line"><a id="l00204" name="l00204"></a><span class="lineno">  204</span>    <span class="keywordtype">public</span> :: msr_to_csr</div>
+<div class="line"><a id="l00205" name="l00205"></a><span class="lineno">  205</span>    <span class="keywordtype">public</span> :: dense_to_msr</div>
+<div class="line"><a id="l00206" name="l00206"></a><span class="lineno">  206</span>    <span class="keywordtype">public</span> :: msr_to_dense</div>
+<div class="line"><a id="l00207" name="l00207"></a><span class="lineno">  207</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1matmul.html">matmul</a></div>
+<div class="line"><a id="l00208" name="l00208"></a><span class="lineno">  208</span>    <span class="keywordtype">public</span> :: <span class="keyword">operator</span>(+)</div>
+<div class="line"><a id="l00209" name="l00209"></a><span class="lineno">  209</span>    <span class="keywordtype">public</span> :: <span class="keyword">operator</span>(-)</div>
+<div class="line"><a id="l00210" name="l00210"></a><span class="lineno">  210</span>    <span class="keywordtype">public</span> :: <span class="keyword">operator</span>(*)</div>
+<div class="line"><a id="l00211" name="l00211"></a><span class="lineno">  211</span>    <span class="keywordtype">public</span> :: <span class="keyword">operator</span>(/)</div>
+<div class="line"><a id="l00212" name="l00212"></a><span class="lineno">  212</span>    <span class="keywordtype">public</span> :: <span class="keyword">assignment</span>(=)</div>
+<div class="line"><a id="l00213" name="l00213"></a><span class="lineno">  213</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1transpose.html">transpose</a></div>
+<div class="line"><a id="l00214" name="l00214"></a><span class="lineno">  214</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1sparse__direct__solve.html">sparse_direct_solve</a></div>
+<div class="line"><a id="l00215" name="l00215"></a><span class="lineno">  215</span>    <span class="keywordtype">public</span> :: <a class="code hl_interface" href="interfacelinalg_1_1pgmres__solver.html">pgmres_solver</a></div>
+<div class="line"><a id="l00216" name="l00216"></a><span class="lineno">  216</span>    <span class="keywordtype">public</span> :: la_no_operation</div>
+<div class="line"><a id="l00217" name="l00217"></a><span class="lineno">  217</span>    <span class="keywordtype">public</span> :: la_transpose</div>
+<div class="line"><a id="l00218" name="l00218"></a><span class="lineno">  218</span>    <span class="keywordtype">public</span> :: la_hermitian_transpose</div>
+<div class="line"><a id="l00219" name="l00219"></a><span class="lineno">  219</span>    <span class="keywordtype">public</span> :: la_no_error</div>
+<div class="line"><a id="l00220" name="l00220"></a><span class="lineno">  220</span>    <span class="keywordtype">public</span> :: la_invalid_input_error</div>
+<div class="line"><a id="l00221" name="l00221"></a><span class="lineno">  221</span>    <span class="keywordtype">public</span> :: la_array_size_error</div>
+<div class="line"><a id="l00222" name="l00222"></a><span class="lineno">  222</span>    <span class="keywordtype">public</span> :: la_singular_matrix_error</div>
+<div class="line"><a id="l00223" name="l00223"></a><span class="lineno">  223</span>    <span class="keywordtype">public</span> :: la_matrix_format_error</div>
+<div class="line"><a id="l00224" name="l00224"></a><span class="lineno">  224</span>    <span class="keywordtype">public</span> :: la_out_of_memory_error</div>
+<div class="line"><a id="l00225" name="l00225"></a><span class="lineno">  225</span>    <span class="keywordtype">public</span> :: la_convergence_error</div>
+<div class="line"><a id="l00226" name="l00226"></a><span class="lineno">  226</span>    <span class="keywordtype">public</span> :: la_invalid_operation_error</div>
+<div class="line"><a id="l00227" name="l00227"></a><span class="lineno">  227</span> </div>
+<div class="line"><a id="l00228" name="l00228"></a><span class="lineno">  228</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00229" name="l00229"></a><span class="lineno">  229</span><span class="comment">! TYPES</span></div>
+<div class="line"><a id="l00230" name="l00230"></a><span class="lineno">  230</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00232" data-start="" data-end="">
+<div class="line"><a id="l00232" name="l00232"></a><span class="lineno"><a class="line" href="structlinalg_1_1csr__matrix.html">  232</a></span>    <span class="keyword">type</span> :: <a class="code hl_struct" href="structlinalg_1_1csr__matrix.html">csr_matrix</a></div>
+<div class="line"><a id="l00235" name="l00235"></a><span class="lineno"><a class="line" href="structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de">  235</a></span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: row_indices</div>
+<div class="line"><a id="l00238" name="l00238"></a><span class="lineno"><a class="line" href="structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307">  238</a></span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: column_indices</div>
+<div class="line"><a id="l00241" name="l00241"></a><span class="lineno"><a class="line" href="structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5">  241</a></span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: values</div>
+<div class="line"><a id="l00243" name="l00243"></a><span class="lineno">  243</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">private</span> :: n = 0</div>
+<div class="line"><a id="l00244" name="l00244"></a><span class="lineno">  244</span>    <span class="keyword">contains</span></div>
+<div class="line"><a id="l00246" name="l00246"></a><span class="lineno"><a class="line" href="structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf">  246</a></span>        <span class="keywordtype">procedure</span>, <span class="keywordtype">public</span> :: get =&gt; csr_get_element</div>
+<div class="line"><a id="l00247" name="l00247"></a><span class="lineno">  247</span>    <span class="keyword">end type</span></div>
 </div>
-<div class="line"><a id="l00301" name="l00301"></a><span class="lineno">  301</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00302" name="l00302"></a><span class="lineno">  302</span> </div>
-<div class="line"><a id="l00303" name="l00303"></a><span class="lineno">  303</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00331" data-start="" data-end="">
-<div class="line"><a id="l00331" name="l00331"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1rank1__update.html">  331</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1rank1__update.html">rank1_update</a></div>
-<div class="line"><a id="l00332" name="l00332"></a><span class="lineno">  332</span>    <span class="keyword">module procedure</span> :: rank1_update_dbl</div>
-<div class="line"><a id="l00333" name="l00333"></a><span class="lineno">  333</span>    <span class="keyword">module procedure</span> :: rank1_update_cmplx</div>
+<div class="line"><a id="l00248" name="l00248"></a><span class="lineno">  248</span> </div>
+<div class="line"><a id="l00249" name="l00249"></a><span class="lineno">  249</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00252" data-start="" data-end="">
+<div class="line"><a id="l00252" name="l00252"></a><span class="lineno"><a class="line" href="structlinalg_1_1msr__matrix.html">  252</a></span>    <span class="keyword">type</span> :: <a class="code hl_struct" href="structlinalg_1_1msr__matrix.html">msr_matrix</a></div>
+<div class="line"><a id="l00254" name="l00254"></a><span class="lineno"><a class="line" href="structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a">  254</a></span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: indices</div>
+<div class="line"><a id="l00257" name="l00257"></a><span class="lineno"><a class="line" href="structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75">  257</a></span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: values</div>
+<div class="line"><a id="l00259" name="l00259"></a><span class="lineno">  259</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">private</span> :: m = 0</div>
+<div class="line"><a id="l00261" name="l00261"></a><span class="lineno">  261</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">private</span> :: n = 0</div>
+<div class="line"><a id="l00263" name="l00263"></a><span class="lineno">  263</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">private</span> :: nnz = 0</div>
+<div class="line"><a id="l00264" name="l00264"></a><span class="lineno">  264</span>    <span class="keyword">end type</span></div>
 </div>
-<div class="line"><a id="l00334" name="l00334"></a><span class="lineno">  334</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00335" name="l00335"></a><span class="lineno">  335</span> </div>
-<div class="line"><a id="l00336" name="l00336"></a><span class="lineno">  336</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00466" data-start="" data-end="">
-<div class="line"><a id="l00466" name="l00466"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1diag__mtx__mult.html">  466</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a></div>
-<div class="line"><a id="l00467" name="l00467"></a><span class="lineno">  467</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx</div>
-<div class="line"><a id="l00468" name="l00468"></a><span class="lineno">  468</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2</div>
-<div class="line"><a id="l00469" name="l00469"></a><span class="lineno">  469</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx3</div>
-<div class="line"><a id="l00470" name="l00470"></a><span class="lineno">  470</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx4</div>
-<div class="line"><a id="l00471" name="l00471"></a><span class="lineno">  471</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx_cmplx</div>
-<div class="line"><a id="l00472" name="l00472"></a><span class="lineno">  472</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2_cmplx</div>
-<div class="line"><a id="l00473" name="l00473"></a><span class="lineno">  473</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx_mix</div>
-<div class="line"><a id="l00474" name="l00474"></a><span class="lineno">  474</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2_mix</div>
+<div class="line"><a id="l00265" name="l00265"></a><span class="lineno">  265</span> </div>
+<div class="line"><a id="l00266" name="l00266"></a><span class="lineno">  266</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00267" name="l00267"></a><span class="lineno">  267</span><span class="comment">! CONSTANTS</span></div>
+<div class="line"><a id="l00268" name="l00268"></a><span class="lineno">  268</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00270" name="l00270"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a665d131453840e869510e9e8d2f7f151">  270</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_no_operation = 0</div>
+<div class="line"><a id="l00272" name="l00272"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59">  272</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_transpose = 1</div>
+<div class="line"><a id="l00274" name="l00274"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a">  274</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_hermitian_transpose = 2</div>
+<div class="line"><a id="l00275" name="l00275"></a><span class="lineno">  275</span> </div>
+<div class="line"><a id="l00276" name="l00276"></a><span class="lineno">  276</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00277" name="l00277"></a><span class="lineno">  277</span><span class="comment">! ERROR FLAGS</span></div>
+<div class="line"><a id="l00278" name="l00278"></a><span class="lineno">  278</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00280" name="l00280"></a><span class="lineno"><a class="line" href="namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4">  280</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_no_error = 0</div>
+<div class="line"><a id="l00282" name="l00282"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ace738355659bce2e9591473f0d543ef7">  282</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_invalid_input_error = 101</div>
+<div class="line"><a id="l00284" name="l00284"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9">  284</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_array_size_error = 102</div>
+<div class="line"><a id="l00286" name="l00286"></a><span class="lineno"><a class="line" href="namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9">  286</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_singular_matrix_error = 103</div>
+<div class="line"><a id="l00288" name="l00288"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776">  288</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_matrix_format_error = 104</div>
+<div class="line"><a id="l00290" name="l00290"></a><span class="lineno"><a class="line" href="namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006">  290</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_out_of_memory_error = 105</div>
+<div class="line"><a id="l00292" name="l00292"></a><span class="lineno"><a class="line" href="namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7">  292</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_convergence_error = 106</div>
+<div class="line"><a id="l00294" name="l00294"></a><span class="lineno"><a class="line" href="namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc">  294</a></span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: la_invalid_operation_error = 107</div>
+<div class="line"><a id="l00295" name="l00295"></a><span class="lineno">  295</span> </div>
+<div class="line"><a id="l00296" name="l00296"></a><span class="lineno">  296</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00297" name="l00297"></a><span class="lineno">  297</span><span class="comment">! INTERFACES</span></div>
+<div class="line"><a id="l00298" name="l00298"></a><span class="lineno">  298</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00360" data-start="" data-end="">
+<div class="line"><a id="l00360" name="l00360"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__mult.html">  360</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__mult.html">mtx_mult</a></div>
+<div class="line"><a id="l00361" name="l00361"></a><span class="lineno">  361</span>    <span class="keyword">module procedure</span> :: mtx_mult_mtx</div>
+<div class="line"><a id="l00362" name="l00362"></a><span class="lineno">  362</span>    <span class="keyword">module procedure</span> :: mtx_mult_vec</div>
+<div class="line"><a id="l00363" name="l00363"></a><span class="lineno">  363</span>    <span class="keyword">module procedure</span> :: cmtx_mult_mtx</div>
+<div class="line"><a id="l00364" name="l00364"></a><span class="lineno">  364</span>    <span class="keyword">module procedure</span> :: cmtx_mult_vec</div>
 </div>
-<div class="line"><a id="l00475" name="l00475"></a><span class="lineno">  475</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00476" name="l00476"></a><span class="lineno">  476</span> </div>
-<div class="line"><a id="l00477" name="l00477"></a><span class="lineno">  477</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00490" data-start="" data-end="">
-<div class="line"><a id="l00490" name="l00490"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1trace.html">  490</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1trace.html">trace</a></div>
-<div class="line"><a id="l00491" name="l00491"></a><span class="lineno">  491</span>    <span class="keyword">module procedure</span> :: trace_dbl</div>
-<div class="line"><a id="l00492" name="l00492"></a><span class="lineno">  492</span>    <span class="keyword">module procedure</span> :: trace_cmplx</div>
+<div class="line"><a id="l00365" name="l00365"></a><span class="lineno">  365</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00366" name="l00366"></a><span class="lineno">  366</span> </div>
+<div class="line"><a id="l00367" name="l00367"></a><span class="lineno">  367</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00395" data-start="" data-end="">
+<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1rank1__update.html">  395</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1rank1__update.html">rank1_update</a></div>
+<div class="line"><a id="l00396" name="l00396"></a><span class="lineno">  396</span>    <span class="keyword">module procedure</span> :: rank1_update_dbl</div>
+<div class="line"><a id="l00397" name="l00397"></a><span class="lineno">  397</span>    <span class="keyword">module procedure</span> :: rank1_update_cmplx</div>
 </div>
-<div class="line"><a id="l00493" name="l00493"></a><span class="lineno">  493</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00494" name="l00494"></a><span class="lineno">  494</span> </div>
-<div class="line"><a id="l00495" name="l00495"></a><span class="lineno">  495</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00538" data-start="" data-end="">
-<div class="line"><a id="l00538" name="l00538"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__rank.html">  538</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__rank.html">mtx_rank</a></div>
-<div class="line"><a id="l00539" name="l00539"></a><span class="lineno">  539</span>    <span class="keyword">module procedure</span> :: mtx_rank_dbl</div>
-<div class="line"><a id="l00540" name="l00540"></a><span class="lineno">  540</span>    <span class="keyword">module procedure</span> :: mtx_rank_cmplx</div>
+<div class="line"><a id="l00398" name="l00398"></a><span class="lineno">  398</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00399" name="l00399"></a><span class="lineno">  399</span> </div>
+<div class="line"><a id="l00400" name="l00400"></a><span class="lineno">  400</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00552" data-start="" data-end="">
+<div class="line"><a id="l00552" name="l00552"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1diag__mtx__mult.html">  552</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1diag__mtx__mult.html">diag_mtx_mult</a></div>
+<div class="line"><a id="l00553" name="l00553"></a><span class="lineno">  553</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx</div>
+<div class="line"><a id="l00554" name="l00554"></a><span class="lineno">  554</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2</div>
+<div class="line"><a id="l00555" name="l00555"></a><span class="lineno">  555</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx3</div>
+<div class="line"><a id="l00556" name="l00556"></a><span class="lineno">  556</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx4</div>
+<div class="line"><a id="l00557" name="l00557"></a><span class="lineno">  557</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx_cmplx</div>
+<div class="line"><a id="l00558" name="l00558"></a><span class="lineno">  558</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2_cmplx</div>
+<div class="line"><a id="l00559" name="l00559"></a><span class="lineno">  559</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx_mix</div>
+<div class="line"><a id="l00560" name="l00560"></a><span class="lineno">  560</span>    <span class="keyword">module procedure</span> :: diag_mtx_mult_mtx2_mix</div>
+<div class="line"><a id="l00561" name="l00561"></a><span class="lineno">  561</span>    <span class="keyword">module procedure</span> :: diag_mtx_sparse_mult</div>
 </div>
-<div class="line"><a id="l00541" name="l00541"></a><span class="lineno">  541</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00542" name="l00542"></a><span class="lineno">  542</span> </div>
-<div class="line"><a id="l00543" name="l00543"></a><span class="lineno">  543</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00571" data-start="" data-end="">
-<div class="line"><a id="l00571" name="l00571"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1det.html">  571</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1det.html">det</a></div>
-<div class="line"><a id="l00572" name="l00572"></a><span class="lineno">  572</span>    <span class="keyword">module procedure</span> :: det_dbl</div>
-<div class="line"><a id="l00573" name="l00573"></a><span class="lineno">  573</span>    <span class="keyword">module procedure</span> :: det_cmplx</div>
+<div class="line"><a id="l00562" name="l00562"></a><span class="lineno">  562</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00563" name="l00563"></a><span class="lineno">  563</span> </div>
+<div class="line"><a id="l00564" name="l00564"></a><span class="lineno">  564</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00577" data-start="" data-end="">
+<div class="line"><a id="l00577" name="l00577"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1trace.html">  577</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1trace.html">trace</a></div>
+<div class="line"><a id="l00578" name="l00578"></a><span class="lineno">  578</span>    <span class="keyword">module procedure</span> :: trace_dbl</div>
+<div class="line"><a id="l00579" name="l00579"></a><span class="lineno">  579</span>    <span class="keyword">module procedure</span> :: trace_cmplx</div>
 </div>
-<div class="line"><a id="l00574" name="l00574"></a><span class="lineno">  574</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00575" name="l00575"></a><span class="lineno">  575</span> </div>
-<div class="line"><a id="l00576" name="l00576"></a><span class="lineno">  576</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00593" data-start="" data-end="">
-<div class="line"><a id="l00593" name="l00593"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1swap.html">  593</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1swap.html">swap</a></div>
-<div class="line"><a id="l00594" name="l00594"></a><span class="lineno">  594</span>    <span class="keyword">module procedure</span> :: swap_dbl</div>
-<div class="line"><a id="l00595" name="l00595"></a><span class="lineno">  595</span>    <span class="keyword">module procedure</span> :: swap_cmplx</div>
+<div class="line"><a id="l00580" name="l00580"></a><span class="lineno">  580</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00581" name="l00581"></a><span class="lineno">  581</span> </div>
+<div class="line"><a id="l00582" name="l00582"></a><span class="lineno">  582</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00625" data-start="" data-end="">
+<div class="line"><a id="l00625" name="l00625"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__rank.html">  625</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__rank.html">mtx_rank</a></div>
+<div class="line"><a id="l00626" name="l00626"></a><span class="lineno">  626</span>    <span class="keyword">module procedure</span> :: mtx_rank_dbl</div>
+<div class="line"><a id="l00627" name="l00627"></a><span class="lineno">  627</span>    <span class="keyword">module procedure</span> :: mtx_rank_cmplx</div>
 </div>
-<div class="line"><a id="l00596" name="l00596"></a><span class="lineno">  596</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00597" name="l00597"></a><span class="lineno">  597</span> </div>
-<div class="line"><a id="l00598" name="l00598"></a><span class="lineno">  598</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00612" data-start="" data-end="">
-<div class="line"><a id="l00612" name="l00612"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1recip__mult__array.html">  612</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1recip__mult__array.html">recip_mult_array</a></div>
-<div class="line"><a id="l00613" name="l00613"></a><span class="lineno">  613</span>    <span class="keyword">module procedure</span> :: recip_mult_array_dbl</div>
+<div class="line"><a id="l00628" name="l00628"></a><span class="lineno">  628</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00629" name="l00629"></a><span class="lineno">  629</span> </div>
+<div class="line"><a id="l00630" name="l00630"></a><span class="lineno">  630</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00658" data-start="" data-end="">
+<div class="line"><a id="l00658" name="l00658"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1det.html">  658</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1det.html">det</a></div>
+<div class="line"><a id="l00659" name="l00659"></a><span class="lineno">  659</span>    <span class="keyword">module procedure</span> :: det_dbl</div>
+<div class="line"><a id="l00660" name="l00660"></a><span class="lineno">  660</span>    <span class="keyword">module procedure</span> :: det_cmplx</div>
 </div>
-<div class="line"><a id="l00614" name="l00614"></a><span class="lineno">  614</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00615" name="l00615"></a><span class="lineno">  615</span> </div>
-<div class="line"><a id="l00616" name="l00616"></a><span class="lineno">  616</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00646" data-start="" data-end="">
-<div class="line"><a id="l00646" name="l00646"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1tri__mtx__mult.html">  646</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1tri__mtx__mult.html">tri_mtx_mult</a></div>
-<div class="line"><a id="l00647" name="l00647"></a><span class="lineno">  647</span>    <span class="keyword">module procedure</span> :: tri_mtx_mult_dbl</div>
-<div class="line"><a id="l00648" name="l00648"></a><span class="lineno">  648</span>    <span class="keyword">module procedure</span> :: tri_mtx_mult_cmplx</div>
+<div class="line"><a id="l00661" name="l00661"></a><span class="lineno">  661</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00662" name="l00662"></a><span class="lineno">  662</span> </div>
+<div class="line"><a id="l00663" name="l00663"></a><span class="lineno">  663</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00680" data-start="" data-end="">
+<div class="line"><a id="l00680" name="l00680"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1swap.html">  680</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1swap.html">swap</a></div>
+<div class="line"><a id="l00681" name="l00681"></a><span class="lineno">  681</span>    <span class="keyword">module procedure</span> :: swap_dbl</div>
+<div class="line"><a id="l00682" name="l00682"></a><span class="lineno">  682</span>    <span class="keyword">module procedure</span> :: swap_cmplx</div>
 </div>
-<div class="line"><a id="l00649" name="l00649"></a><span class="lineno">  649</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00650" name="l00650"></a><span class="lineno">  650</span> </div>
-<div class="line"><a id="l00651" name="l00651"></a><span class="lineno">  651</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen00732" data-start="" data-end="">
-<div class="line"><a id="l00732" name="l00732"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1lu__factor.html">  732</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1lu__factor.html">lu_factor</a></div>
-<div class="line"><a id="l00733" name="l00733"></a><span class="lineno">  733</span>    <span class="keyword">module procedure</span> :: lu_factor_dbl</div>
-<div class="line"><a id="l00734" name="l00734"></a><span class="lineno">  734</span>    <span class="keyword">module procedure</span> :: lu_factor_cmplx</div>
+<div class="line"><a id="l00683" name="l00683"></a><span class="lineno">  683</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00684" name="l00684"></a><span class="lineno">  684</span> </div>
+<div class="line"><a id="l00685" name="l00685"></a><span class="lineno">  685</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00699" data-start="" data-end="">
+<div class="line"><a id="l00699" name="l00699"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1recip__mult__array.html">  699</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1recip__mult__array.html">recip_mult_array</a></div>
+<div class="line"><a id="l00700" name="l00700"></a><span class="lineno">  700</span>    <span class="keyword">module procedure</span> :: recip_mult_array_dbl</div>
 </div>
-<div class="line"><a id="l00735" name="l00735"></a><span class="lineno">  735</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00736" name="l00736"></a><span class="lineno">  736</span> </div>
-<div class="foldopen" id="foldopen00854" data-start="" data-end="">
-<div class="line"><a id="l00854" name="l00854"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__lu.html">  854</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__lu.html">form_lu</a></div>
-<div class="line"><a id="l00855" name="l00855"></a><span class="lineno">  855</span>    <span class="keyword">module procedure</span> :: form_lu_all</div>
-<div class="line"><a id="l00856" name="l00856"></a><span class="lineno">  856</span>    <span class="keyword">module procedure</span> :: form_lu_all_cmplx</div>
-<div class="line"><a id="l00857" name="l00857"></a><span class="lineno">  857</span>    <span class="keyword">module procedure</span> :: form_lu_only</div>
-<div class="line"><a id="l00858" name="l00858"></a><span class="lineno">  858</span>    <span class="keyword">module procedure</span> :: form_lu_only_cmplx</div>
+<div class="line"><a id="l00701" name="l00701"></a><span class="lineno">  701</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00702" name="l00702"></a><span class="lineno">  702</span> </div>
+<div class="line"><a id="l00703" name="l00703"></a><span class="lineno">  703</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00733" data-start="" data-end="">
+<div class="line"><a id="l00733" name="l00733"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1tri__mtx__mult.html">  733</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1tri__mtx__mult.html">tri_mtx_mult</a></div>
+<div class="line"><a id="l00734" name="l00734"></a><span class="lineno">  734</span>    <span class="keyword">module procedure</span> :: tri_mtx_mult_dbl</div>
+<div class="line"><a id="l00735" name="l00735"></a><span class="lineno">  735</span>    <span class="keyword">module procedure</span> :: tri_mtx_mult_cmplx</div>
 </div>
-<div class="line"><a id="l00859" name="l00859"></a><span class="lineno">  859</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l00860" name="l00860"></a><span class="lineno">  860</span> </div>
-<div class="line"><a id="l00861" name="l00861"></a><span class="lineno">  861</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01008" data-start="" data-end="">
-<div class="line"><a id="l01008" name="l01008"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1qr__factor.html"> 1008</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1qr__factor.html">qr_factor</a></div>
-<div class="line"><a id="l01009" name="l01009"></a><span class="lineno"> 1009</span>    <span class="keyword">module procedure</span> :: qr_factor_no_pivot</div>
-<div class="line"><a id="l01010" name="l01010"></a><span class="lineno"> 1010</span>    <span class="keyword">module procedure</span> :: qr_factor_no_pivot_cmplx</div>
-<div class="line"><a id="l01011" name="l01011"></a><span class="lineno"> 1011</span>    <span class="keyword">module procedure</span> :: qr_factor_pivot</div>
-<div class="line"><a id="l01012" name="l01012"></a><span class="lineno"> 1012</span>    <span class="keyword">module procedure</span> :: qr_factor_pivot_cmplx</div>
+<div class="line"><a id="l00736" name="l00736"></a><span class="lineno">  736</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00737" name="l00737"></a><span class="lineno">  737</span> </div>
+<div class="line"><a id="l00738" name="l00738"></a><span class="lineno">  738</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen00843" data-start="" data-end="">
+<div class="line"><a id="l00843" name="l00843"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1lu__factor.html">  843</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1lu__factor.html">lu_factor</a></div>
+<div class="line"><a id="l00844" name="l00844"></a><span class="lineno">  844</span>    <span class="keyword">module procedure</span> :: lu_factor_dbl</div>
+<div class="line"><a id="l00845" name="l00845"></a><span class="lineno">  845</span>    <span class="keyword">module procedure</span> :: lu_factor_cmplx</div>
+<div class="line"><a id="l00846" name="l00846"></a><span class="lineno">  846</span>    <span class="keyword">module procedure</span> :: csr_lu_factor</div>
 </div>
-<div class="line"><a id="l01013" name="l01013"></a><span class="lineno"> 1013</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01014" name="l01014"></a><span class="lineno"> 1014</span> </div>
-<div class="line"><a id="l01015" name="l01015"></a><span class="lineno"> 1015</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01168" data-start="" data-end="">
-<div class="line"><a id="l01168" name="l01168"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__qr.html"> 1168</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__qr.html">form_qr</a></div>
-<div class="line"><a id="l01169" name="l01169"></a><span class="lineno"> 1169</span>    <span class="keyword">module procedure</span> :: form_qr_no_pivot</div>
-<div class="line"><a id="l01170" name="l01170"></a><span class="lineno"> 1170</span>    <span class="keyword">module procedure</span> :: form_qr_no_pivot_cmplx</div>
-<div class="line"><a id="l01171" name="l01171"></a><span class="lineno"> 1171</span>    <span class="keyword">module procedure</span> :: form_qr_pivot</div>
-<div class="line"><a id="l01172" name="l01172"></a><span class="lineno"> 1172</span>    <span class="keyword">module procedure</span> :: form_qr_pivot_cmplx</div>
+<div class="line"><a id="l00847" name="l00847"></a><span class="lineno">  847</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00848" name="l00848"></a><span class="lineno">  848</span> </div>
+<div class="foldopen" id="foldopen00966" data-start="" data-end="">
+<div class="line"><a id="l00966" name="l00966"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__lu.html">  966</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__lu.html">form_lu</a></div>
+<div class="line"><a id="l00967" name="l00967"></a><span class="lineno">  967</span>    <span class="keyword">module procedure</span> :: form_lu_all</div>
+<div class="line"><a id="l00968" name="l00968"></a><span class="lineno">  968</span>    <span class="keyword">module procedure</span> :: form_lu_all_cmplx</div>
+<div class="line"><a id="l00969" name="l00969"></a><span class="lineno">  969</span>    <span class="keyword">module procedure</span> :: form_lu_only</div>
+<div class="line"><a id="l00970" name="l00970"></a><span class="lineno">  970</span>    <span class="keyword">module procedure</span> :: form_lu_only_cmplx</div>
 </div>
-<div class="line"><a id="l01173" name="l01173"></a><span class="lineno"> 1173</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01174" name="l01174"></a><span class="lineno"> 1174</span> </div>
-<div class="line"><a id="l01175" name="l01175"></a><span class="lineno"> 1175</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01325" data-start="" data-end="">
-<div class="line"><a id="l01325" name="l01325"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__qr.html"> 1325</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__qr.html">mult_qr</a></div>
-<div class="line"><a id="l01326" name="l01326"></a><span class="lineno"> 1326</span>    <span class="keyword">module procedure</span> :: mult_qr_mtx</div>
-<div class="line"><a id="l01327" name="l01327"></a><span class="lineno"> 1327</span>    <span class="keyword">module procedure</span> :: mult_qr_mtx_cmplx</div>
-<div class="line"><a id="l01328" name="l01328"></a><span class="lineno"> 1328</span>    <span class="keyword">module procedure</span> :: mult_qr_vec</div>
-<div class="line"><a id="l01329" name="l01329"></a><span class="lineno"> 1329</span>    <span class="keyword">module procedure</span> :: mult_qr_vec_cmplx</div>
+<div class="line"><a id="l00971" name="l00971"></a><span class="lineno">  971</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l00972" name="l00972"></a><span class="lineno">  972</span> </div>
+<div class="line"><a id="l00973" name="l00973"></a><span class="lineno">  973</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01120" data-start="" data-end="">
+<div class="line"><a id="l01120" name="l01120"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1qr__factor.html"> 1120</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1qr__factor.html">qr_factor</a></div>
+<div class="line"><a id="l01121" name="l01121"></a><span class="lineno"> 1121</span>    <span class="keyword">module procedure</span> :: qr_factor_no_pivot</div>
+<div class="line"><a id="l01122" name="l01122"></a><span class="lineno"> 1122</span>    <span class="keyword">module procedure</span> :: qr_factor_no_pivot_cmplx</div>
+<div class="line"><a id="l01123" name="l01123"></a><span class="lineno"> 1123</span>    <span class="keyword">module procedure</span> :: qr_factor_pivot</div>
+<div class="line"><a id="l01124" name="l01124"></a><span class="lineno"> 1124</span>    <span class="keyword">module procedure</span> :: qr_factor_pivot_cmplx</div>
 </div>
-<div class="line"><a id="l01330" name="l01330"></a><span class="lineno"> 1330</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01331" name="l01331"></a><span class="lineno"> 1331</span> </div>
-<div class="line"><a id="l01332" name="l01332"></a><span class="lineno"> 1332</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01475" data-start="" data-end="">
-<div class="line"><a id="l01475" name="l01475"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1qr__rank1__update.html"> 1475</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1qr__rank1__update.html">qr_rank1_update</a></div>
-<div class="line"><a id="l01476" name="l01476"></a><span class="lineno"> 1476</span>    <span class="keyword">module procedure</span> :: qr_rank1_update_dbl</div>
-<div class="line"><a id="l01477" name="l01477"></a><span class="lineno"> 1477</span>    <span class="keyword">module procedure</span> :: qr_rank1_update_cmplx</div>
+<div class="line"><a id="l01125" name="l01125"></a><span class="lineno"> 1125</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01126" name="l01126"></a><span class="lineno"> 1126</span> </div>
+<div class="line"><a id="l01127" name="l01127"></a><span class="lineno"> 1127</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01280" data-start="" data-end="">
+<div class="line"><a id="l01280" name="l01280"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__qr.html"> 1280</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__qr.html">form_qr</a></div>
+<div class="line"><a id="l01281" name="l01281"></a><span class="lineno"> 1281</span>    <span class="keyword">module procedure</span> :: form_qr_no_pivot</div>
+<div class="line"><a id="l01282" name="l01282"></a><span class="lineno"> 1282</span>    <span class="keyword">module procedure</span> :: form_qr_no_pivot_cmplx</div>
+<div class="line"><a id="l01283" name="l01283"></a><span class="lineno"> 1283</span>    <span class="keyword">module procedure</span> :: form_qr_pivot</div>
+<div class="line"><a id="l01284" name="l01284"></a><span class="lineno"> 1284</span>    <span class="keyword">module procedure</span> :: form_qr_pivot_cmplx</div>
 </div>
-<div class="line"><a id="l01478" name="l01478"></a><span class="lineno"> 1478</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01479" name="l01479"></a><span class="lineno"> 1479</span> </div>
-<div class="line"><a id="l01480" name="l01480"></a><span class="lineno"> 1480</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01574" data-start="" data-end="">
-<div class="line"><a id="l01574" name="l01574"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__factor.html"> 1574</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__factor.html">cholesky_factor</a></div>
-<div class="line"><a id="l01575" name="l01575"></a><span class="lineno"> 1575</span>    <span class="keyword">module procedure</span> :: cholesky_factor_dbl</div>
-<div class="line"><a id="l01576" name="l01576"></a><span class="lineno"> 1576</span>    <span class="keyword">module procedure</span> :: cholesky_factor_cmplx</div>
+<div class="line"><a id="l01285" name="l01285"></a><span class="lineno"> 1285</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01286" name="l01286"></a><span class="lineno"> 1286</span> </div>
+<div class="line"><a id="l01287" name="l01287"></a><span class="lineno"> 1287</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01437" data-start="" data-end="">
+<div class="line"><a id="l01437" name="l01437"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__qr.html"> 1437</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__qr.html">mult_qr</a></div>
+<div class="line"><a id="l01438" name="l01438"></a><span class="lineno"> 1438</span>    <span class="keyword">module procedure</span> :: mult_qr_mtx</div>
+<div class="line"><a id="l01439" name="l01439"></a><span class="lineno"> 1439</span>    <span class="keyword">module procedure</span> :: mult_qr_mtx_cmplx</div>
+<div class="line"><a id="l01440" name="l01440"></a><span class="lineno"> 1440</span>    <span class="keyword">module procedure</span> :: mult_qr_vec</div>
+<div class="line"><a id="l01441" name="l01441"></a><span class="lineno"> 1441</span>    <span class="keyword">module procedure</span> :: mult_qr_vec_cmplx</div>
 </div>
-<div class="line"><a id="l01577" name="l01577"></a><span class="lineno"> 1577</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01578" name="l01578"></a><span class="lineno"> 1578</span> </div>
-<div class="line"><a id="l01579" name="l01579"></a><span class="lineno"> 1579</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01673" data-start="" data-end="">
-<div class="line"><a id="l01673" name="l01673"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__rank1__update.html"> 1673</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__rank1__update.html">cholesky_rank1_update</a></div>
-<div class="line"><a id="l01674" name="l01674"></a><span class="lineno"> 1674</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_update_dbl</div>
-<div class="line"><a id="l01675" name="l01675"></a><span class="lineno"> 1675</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_update_cmplx</div>
+<div class="line"><a id="l01442" name="l01442"></a><span class="lineno"> 1442</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01443" name="l01443"></a><span class="lineno"> 1443</span> </div>
+<div class="line"><a id="l01444" name="l01444"></a><span class="lineno"> 1444</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01587" data-start="" data-end="">
+<div class="line"><a id="l01587" name="l01587"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1qr__rank1__update.html"> 1587</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1qr__rank1__update.html">qr_rank1_update</a></div>
+<div class="line"><a id="l01588" name="l01588"></a><span class="lineno"> 1588</span>    <span class="keyword">module procedure</span> :: qr_rank1_update_dbl</div>
+<div class="line"><a id="l01589" name="l01589"></a><span class="lineno"> 1589</span>    <span class="keyword">module procedure</span> :: qr_rank1_update_cmplx</div>
 </div>
-<div class="line"><a id="l01676" name="l01676"></a><span class="lineno"> 1676</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01677" name="l01677"></a><span class="lineno"> 1677</span> </div>
-<div class="line"><a id="l01678" name="l01678"></a><span class="lineno"> 1678</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01780" data-start="" data-end="">
-<div class="line"><a id="l01780" name="l01780"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__rank1__downdate.html"> 1780</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__rank1__downdate.html">cholesky_rank1_downdate</a></div>
-<div class="line"><a id="l01781" name="l01781"></a><span class="lineno"> 1781</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_downdate_dbl</div>
-<div class="line"><a id="l01782" name="l01782"></a><span class="lineno"> 1782</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_downdate_cmplx</div>
+<div class="line"><a id="l01590" name="l01590"></a><span class="lineno"> 1590</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01591" name="l01591"></a><span class="lineno"> 1591</span> </div>
+<div class="line"><a id="l01592" name="l01592"></a><span class="lineno"> 1592</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01686" data-start="" data-end="">
+<div class="line"><a id="l01686" name="l01686"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__factor.html"> 1686</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__factor.html">cholesky_factor</a></div>
+<div class="line"><a id="l01687" name="l01687"></a><span class="lineno"> 1687</span>    <span class="keyword">module procedure</span> :: cholesky_factor_dbl</div>
+<div class="line"><a id="l01688" name="l01688"></a><span class="lineno"> 1688</span>    <span class="keyword">module procedure</span> :: cholesky_factor_cmplx</div>
 </div>
-<div class="line"><a id="l01783" name="l01783"></a><span class="lineno"> 1783</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01784" name="l01784"></a><span class="lineno"> 1784</span> </div>
-<div class="line"><a id="l01785" name="l01785"></a><span class="lineno"> 1785</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01853" data-start="" data-end="">
-<div class="line"><a id="l01853" name="l01853"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1rz__factor.html"> 1853</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1rz__factor.html">rz_factor</a></div>
-<div class="line"><a id="l01854" name="l01854"></a><span class="lineno"> 1854</span>    <span class="keyword">module procedure</span> :: rz_factor_dbl</div>
-<div class="line"><a id="l01855" name="l01855"></a><span class="lineno"> 1855</span>    <span class="keyword">module procedure</span> :: rz_factor_cmplx</div>
+<div class="line"><a id="l01689" name="l01689"></a><span class="lineno"> 1689</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01690" name="l01690"></a><span class="lineno"> 1690</span> </div>
+<div class="line"><a id="l01691" name="l01691"></a><span class="lineno"> 1691</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01785" data-start="" data-end="">
+<div class="line"><a id="l01785" name="l01785"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__rank1__update.html"> 1785</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__rank1__update.html">cholesky_rank1_update</a></div>
+<div class="line"><a id="l01786" name="l01786"></a><span class="lineno"> 1786</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_update_dbl</div>
+<div class="line"><a id="l01787" name="l01787"></a><span class="lineno"> 1787</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_update_cmplx</div>
 </div>
-<div class="line"><a id="l01856" name="l01856"></a><span class="lineno"> 1856</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01857" name="l01857"></a><span class="lineno"> 1857</span> </div>
-<div class="line"><a id="l01858" name="l01858"></a><span class="lineno"> 1858</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen01944" data-start="" data-end="">
-<div class="line"><a id="l01944" name="l01944"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__rz.html"> 1944</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__rz.html">mult_rz</a></div>
-<div class="line"><a id="l01945" name="l01945"></a><span class="lineno"> 1945</span>    <span class="keyword">module procedure</span> :: mult_rz_mtx</div>
-<div class="line"><a id="l01946" name="l01946"></a><span class="lineno"> 1946</span>    <span class="keyword">module procedure</span> :: mult_rz_mtx_cmplx</div>
-<div class="line"><a id="l01947" name="l01947"></a><span class="lineno"> 1947</span>    <span class="keyword">module procedure</span> :: mult_rz_vec</div>
-<div class="line"><a id="l01948" name="l01948"></a><span class="lineno"> 1948</span>    <span class="keyword">module procedure</span> :: mult_rz_vec_cmplx</div>
+<div class="line"><a id="l01788" name="l01788"></a><span class="lineno"> 1788</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01789" name="l01789"></a><span class="lineno"> 1789</span> </div>
+<div class="line"><a id="l01790" name="l01790"></a><span class="lineno"> 1790</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01892" data-start="" data-end="">
+<div class="line"><a id="l01892" name="l01892"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1cholesky__rank1__downdate.html"> 1892</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1cholesky__rank1__downdate.html">cholesky_rank1_downdate</a></div>
+<div class="line"><a id="l01893" name="l01893"></a><span class="lineno"> 1893</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_downdate_dbl</div>
+<div class="line"><a id="l01894" name="l01894"></a><span class="lineno"> 1894</span>    <span class="keyword">module procedure</span> :: cholesky_rank1_downdate_cmplx</div>
 </div>
-<div class="line"><a id="l01949" name="l01949"></a><span class="lineno"> 1949</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l01950" name="l01950"></a><span class="lineno"> 1950</span> </div>
-<div class="line"><a id="l01951" name="l01951"></a><span class="lineno"> 1951</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02069" data-start="" data-end="">
-<div class="line"><a id="l02069" name="l02069"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1svd.html"> 2069</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1svd.html">svd</a></div>
-<div class="line"><a id="l02070" name="l02070"></a><span class="lineno"> 2070</span>    <span class="keyword">module procedure</span> :: svd_dbl</div>
-<div class="line"><a id="l02071" name="l02071"></a><span class="lineno"> 2071</span>    <span class="keyword">module procedure</span> :: svd_cmplx</div>
+<div class="line"><a id="l01895" name="l01895"></a><span class="lineno"> 1895</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01896" name="l01896"></a><span class="lineno"> 1896</span> </div>
+<div class="line"><a id="l01897" name="l01897"></a><span class="lineno"> 1897</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen01965" data-start="" data-end="">
+<div class="line"><a id="l01965" name="l01965"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1rz__factor.html"> 1965</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1rz__factor.html">rz_factor</a></div>
+<div class="line"><a id="l01966" name="l01966"></a><span class="lineno"> 1966</span>    <span class="keyword">module procedure</span> :: rz_factor_dbl</div>
+<div class="line"><a id="l01967" name="l01967"></a><span class="lineno"> 1967</span>    <span class="keyword">module procedure</span> :: rz_factor_cmplx</div>
 </div>
-<div class="line"><a id="l02072" name="l02072"></a><span class="lineno"> 2072</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02073" name="l02073"></a><span class="lineno"> 2073</span> </div>
-<div class="line"><a id="l02074" name="l02074"></a><span class="lineno"> 2074</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02203" data-start="" data-end="">
-<div class="line"><a id="l02203" name="l02203"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__triangular__system.html"> 2203</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__triangular__system.html">solve_triangular_system</a></div>
-<div class="line"><a id="l02204" name="l02204"></a><span class="lineno"> 2204</span>    <span class="keyword">module procedure</span> :: solve_tri_mtx</div>
-<div class="line"><a id="l02205" name="l02205"></a><span class="lineno"> 2205</span>    <span class="keyword">module procedure</span> :: solve_tri_mtx_cmplx</div>
-<div class="line"><a id="l02206" name="l02206"></a><span class="lineno"> 2206</span>    <span class="keyword">module procedure</span> :: solve_tri_vec</div>
-<div class="line"><a id="l02207" name="l02207"></a><span class="lineno"> 2207</span>    <span class="keyword">module procedure</span> :: solve_tri_vec_cmplx</div>
+<div class="line"><a id="l01968" name="l01968"></a><span class="lineno"> 1968</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l01969" name="l01969"></a><span class="lineno"> 1969</span> </div>
+<div class="line"><a id="l01970" name="l01970"></a><span class="lineno"> 1970</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02056" data-start="" data-end="">
+<div class="line"><a id="l02056" name="l02056"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__rz.html"> 2056</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__rz.html">mult_rz</a></div>
+<div class="line"><a id="l02057" name="l02057"></a><span class="lineno"> 2057</span>    <span class="keyword">module procedure</span> :: mult_rz_mtx</div>
+<div class="line"><a id="l02058" name="l02058"></a><span class="lineno"> 2058</span>    <span class="keyword">module procedure</span> :: mult_rz_mtx_cmplx</div>
+<div class="line"><a id="l02059" name="l02059"></a><span class="lineno"> 2059</span>    <span class="keyword">module procedure</span> :: mult_rz_vec</div>
+<div class="line"><a id="l02060" name="l02060"></a><span class="lineno"> 2060</span>    <span class="keyword">module procedure</span> :: mult_rz_vec_cmplx</div>
 </div>
-<div class="line"><a id="l02208" name="l02208"></a><span class="lineno"> 2208</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02209" name="l02209"></a><span class="lineno"> 2209</span> </div>
-<div class="line"><a id="l02210" name="l02210"></a><span class="lineno"> 2210</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02291" data-start="" data-end="">
-<div class="line"><a id="l02291" name="l02291"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__lu.html"> 2291</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__lu.html">solve_lu</a></div>
-<div class="line"><a id="l02292" name="l02292"></a><span class="lineno"> 2292</span>    <span class="keyword">module procedure</span> :: solve_lu_mtx</div>
-<div class="line"><a id="l02293" name="l02293"></a><span class="lineno"> 2293</span>    <span class="keyword">module procedure</span> :: solve_lu_mtx_cmplx</div>
-<div class="line"><a id="l02294" name="l02294"></a><span class="lineno"> 2294</span>    <span class="keyword">module procedure</span> :: solve_lu_vec</div>
-<div class="line"><a id="l02295" name="l02295"></a><span class="lineno"> 2295</span>    <span class="keyword">module procedure</span> :: solve_lu_vec_cmplx</div>
+<div class="line"><a id="l02061" name="l02061"></a><span class="lineno"> 2061</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02062" name="l02062"></a><span class="lineno"> 2062</span> </div>
+<div class="line"><a id="l02063" name="l02063"></a><span class="lineno"> 2063</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02181" data-start="" data-end="">
+<div class="line"><a id="l02181" name="l02181"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1svd.html"> 2181</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1svd.html">svd</a></div>
+<div class="line"><a id="l02182" name="l02182"></a><span class="lineno"> 2182</span>    <span class="keyword">module procedure</span> :: svd_dbl</div>
+<div class="line"><a id="l02183" name="l02183"></a><span class="lineno"> 2183</span>    <span class="keyword">module procedure</span> :: svd_cmplx</div>
 </div>
-<div class="line"><a id="l02296" name="l02296"></a><span class="lineno"> 2296</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02297" name="l02297"></a><span class="lineno"> 2297</span> </div>
-<div class="line"><a id="l02298" name="l02298"></a><span class="lineno"> 2298</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02426" data-start="" data-end="">
-<div class="line"><a id="l02426" name="l02426"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__qr.html"> 2426</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__qr.html">solve_qr</a></div>
-<div class="line"><a id="l02427" name="l02427"></a><span class="lineno"> 2427</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_mtx</div>
-<div class="line"><a id="l02428" name="l02428"></a><span class="lineno"> 2428</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_mtx_cmplx</div>
-<div class="line"><a id="l02429" name="l02429"></a><span class="lineno"> 2429</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_vec</div>
-<div class="line"><a id="l02430" name="l02430"></a><span class="lineno"> 2430</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_vec_cmplx</div>
-<div class="line"><a id="l02431" name="l02431"></a><span class="lineno"> 2431</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_mtx</div>
-<div class="line"><a id="l02432" name="l02432"></a><span class="lineno"> 2432</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_mtx_cmplx</div>
-<div class="line"><a id="l02433" name="l02433"></a><span class="lineno"> 2433</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_vec</div>
-<div class="line"><a id="l02434" name="l02434"></a><span class="lineno"> 2434</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_vec_cmplx</div>
+<div class="line"><a id="l02184" name="l02184"></a><span class="lineno"> 2184</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02185" name="l02185"></a><span class="lineno"> 2185</span> </div>
+<div class="line"><a id="l02186" name="l02186"></a><span class="lineno"> 2186</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02315" data-start="" data-end="">
+<div class="line"><a id="l02315" name="l02315"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__triangular__system.html"> 2315</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__triangular__system.html">solve_triangular_system</a></div>
+<div class="line"><a id="l02316" name="l02316"></a><span class="lineno"> 2316</span>    <span class="keyword">module procedure</span> :: solve_tri_mtx</div>
+<div class="line"><a id="l02317" name="l02317"></a><span class="lineno"> 2317</span>    <span class="keyword">module procedure</span> :: solve_tri_mtx_cmplx</div>
+<div class="line"><a id="l02318" name="l02318"></a><span class="lineno"> 2318</span>    <span class="keyword">module procedure</span> :: solve_tri_vec</div>
+<div class="line"><a id="l02319" name="l02319"></a><span class="lineno"> 2319</span>    <span class="keyword">module procedure</span> :: solve_tri_vec_cmplx</div>
 </div>
-<div class="line"><a id="l02435" name="l02435"></a><span class="lineno"> 2435</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02436" name="l02436"></a><span class="lineno"> 2436</span> </div>
-<div class="line"><a id="l02437" name="l02437"></a><span class="lineno"> 2437</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02532" data-start="" data-end="">
-<div class="line"><a id="l02532" name="l02532"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__cholesky.html"> 2532</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__cholesky.html">solve_cholesky</a></div>
-<div class="line"><a id="l02533" name="l02533"></a><span class="lineno"> 2533</span>    <span class="keyword">module procedure</span> :: solve_cholesky_mtx</div>
-<div class="line"><a id="l02534" name="l02534"></a><span class="lineno"> 2534</span>    <span class="keyword">module procedure</span> :: solve_cholesky_mtx_cmplx</div>
-<div class="line"><a id="l02535" name="l02535"></a><span class="lineno"> 2535</span>    <span class="keyword">module procedure</span> :: solve_cholesky_vec</div>
-<div class="line"><a id="l02536" name="l02536"></a><span class="lineno"> 2536</span>    <span class="keyword">module procedure</span> :: solve_cholesky_vec_cmplx</div>
+<div class="line"><a id="l02320" name="l02320"></a><span class="lineno"> 2320</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02321" name="l02321"></a><span class="lineno"> 2321</span> </div>
+<div class="line"><a id="l02322" name="l02322"></a><span class="lineno"> 2322</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02420" data-start="" data-end="">
+<div class="line"><a id="l02420" name="l02420"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__lu.html"> 2420</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__lu.html">solve_lu</a></div>
+<div class="line"><a id="l02421" name="l02421"></a><span class="lineno"> 2421</span>    <span class="keyword">module procedure</span> :: solve_lu_mtx</div>
+<div class="line"><a id="l02422" name="l02422"></a><span class="lineno"> 2422</span>    <span class="keyword">module procedure</span> :: solve_lu_mtx_cmplx</div>
+<div class="line"><a id="l02423" name="l02423"></a><span class="lineno"> 2423</span>    <span class="keyword">module procedure</span> :: solve_lu_vec</div>
+<div class="line"><a id="l02424" name="l02424"></a><span class="lineno"> 2424</span>    <span class="keyword">module procedure</span> :: solve_lu_vec_cmplx</div>
+<div class="line"><a id="l02425" name="l02425"></a><span class="lineno"> 2425</span>    <span class="keyword">module procedure</span> :: csr_lu_solve</div>
 </div>
-<div class="line"><a id="l02537" name="l02537"></a><span class="lineno"> 2537</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02538" name="l02538"></a><span class="lineno"> 2538</span> </div>
-<div class="line"><a id="l02539" name="l02539"></a><span class="lineno"> 2539</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02622" data-start="" data-end="">
-<div class="line"><a id="l02622" name="l02622"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares.html"> 2622</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares.html">solve_least_squares</a></div>
-<div class="line"><a id="l02623" name="l02623"></a><span class="lineno"> 2623</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx</div>
-<div class="line"><a id="l02624" name="l02624"></a><span class="lineno"> 2624</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_cmplx</div>
-<div class="line"><a id="l02625" name="l02625"></a><span class="lineno"> 2625</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec</div>
-<div class="line"><a id="l02626" name="l02626"></a><span class="lineno"> 2626</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_cmplx</div>
+<div class="line"><a id="l02426" name="l02426"></a><span class="lineno"> 2426</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02427" name="l02427"></a><span class="lineno"> 2427</span> </div>
+<div class="line"><a id="l02428" name="l02428"></a><span class="lineno"> 2428</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02556" data-start="" data-end="">
+<div class="line"><a id="l02556" name="l02556"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__qr.html"> 2556</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__qr.html">solve_qr</a></div>
+<div class="line"><a id="l02557" name="l02557"></a><span class="lineno"> 2557</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_mtx</div>
+<div class="line"><a id="l02558" name="l02558"></a><span class="lineno"> 2558</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_mtx_cmplx</div>
+<div class="line"><a id="l02559" name="l02559"></a><span class="lineno"> 2559</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_vec</div>
+<div class="line"><a id="l02560" name="l02560"></a><span class="lineno"> 2560</span>    <span class="keyword">module procedure</span> :: solve_qr_no_pivot_vec_cmplx</div>
+<div class="line"><a id="l02561" name="l02561"></a><span class="lineno"> 2561</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_mtx</div>
+<div class="line"><a id="l02562" name="l02562"></a><span class="lineno"> 2562</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_mtx_cmplx</div>
+<div class="line"><a id="l02563" name="l02563"></a><span class="lineno"> 2563</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_vec</div>
+<div class="line"><a id="l02564" name="l02564"></a><span class="lineno"> 2564</span>    <span class="keyword">module procedure</span> :: solve_qr_pivot_vec_cmplx</div>
 </div>
-<div class="line"><a id="l02627" name="l02627"></a><span class="lineno"> 2627</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02628" name="l02628"></a><span class="lineno"> 2628</span> </div>
-<div class="line"><a id="l02629" name="l02629"></a><span class="lineno"> 2629</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02723" data-start="" data-end="">
-<div class="line"><a id="l02723" name="l02723"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares__full.html"> 2723</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares__full.html">solve_least_squares_full</a></div>
-<div class="line"><a id="l02724" name="l02724"></a><span class="lineno"> 2724</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_pvt</div>
-<div class="line"><a id="l02725" name="l02725"></a><span class="lineno"> 2725</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_pvt_cmplx</div>
-<div class="line"><a id="l02726" name="l02726"></a><span class="lineno"> 2726</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_pvt</div>
-<div class="line"><a id="l02727" name="l02727"></a><span class="lineno"> 2727</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_pvt_cmplx</div>
+<div class="line"><a id="l02565" name="l02565"></a><span class="lineno"> 2565</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02566" name="l02566"></a><span class="lineno"> 2566</span> </div>
+<div class="line"><a id="l02567" name="l02567"></a><span class="lineno"> 2567</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02662" data-start="" data-end="">
+<div class="line"><a id="l02662" name="l02662"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__cholesky.html"> 2662</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__cholesky.html">solve_cholesky</a></div>
+<div class="line"><a id="l02663" name="l02663"></a><span class="lineno"> 2663</span>    <span class="keyword">module procedure</span> :: solve_cholesky_mtx</div>
+<div class="line"><a id="l02664" name="l02664"></a><span class="lineno"> 2664</span>    <span class="keyword">module procedure</span> :: solve_cholesky_mtx_cmplx</div>
+<div class="line"><a id="l02665" name="l02665"></a><span class="lineno"> 2665</span>    <span class="keyword">module procedure</span> :: solve_cholesky_vec</div>
+<div class="line"><a id="l02666" name="l02666"></a><span class="lineno"> 2666</span>    <span class="keyword">module procedure</span> :: solve_cholesky_vec_cmplx</div>
 </div>
-<div class="line"><a id="l02728" name="l02728"></a><span class="lineno"> 2728</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02729" name="l02729"></a><span class="lineno"> 2729</span> </div>
-<div class="line"><a id="l02730" name="l02730"></a><span class="lineno"> 2730</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02825" data-start="" data-end="">
-<div class="line"><a id="l02825" name="l02825"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares__svd.html"> 2825</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares__svd.html">solve_least_squares_svd</a></div>
-<div class="line"><a id="l02826" name="l02826"></a><span class="lineno"> 2826</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_svd</div>
-<div class="line"><a id="l02827" name="l02827"></a><span class="lineno"> 2827</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_svd</div>
+<div class="line"><a id="l02667" name="l02667"></a><span class="lineno"> 2667</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02668" name="l02668"></a><span class="lineno"> 2668</span> </div>
+<div class="line"><a id="l02669" name="l02669"></a><span class="lineno"> 2669</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02752" data-start="" data-end="">
+<div class="line"><a id="l02752" name="l02752"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares.html"> 2752</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares.html">solve_least_squares</a></div>
+<div class="line"><a id="l02753" name="l02753"></a><span class="lineno"> 2753</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx</div>
+<div class="line"><a id="l02754" name="l02754"></a><span class="lineno"> 2754</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_cmplx</div>
+<div class="line"><a id="l02755" name="l02755"></a><span class="lineno"> 2755</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec</div>
+<div class="line"><a id="l02756" name="l02756"></a><span class="lineno"> 2756</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_cmplx</div>
 </div>
-<div class="line"><a id="l02828" name="l02828"></a><span class="lineno"> 2828</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02829" name="l02829"></a><span class="lineno"> 2829</span> </div>
-<div class="line"><a id="l02830" name="l02830"></a><span class="lineno"> 2830</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen02920" data-start="" data-end="">
-<div class="line"><a id="l02920" name="l02920"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__inverse.html"> 2920</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a></div>
-<div class="line"><a id="l02921" name="l02921"></a><span class="lineno"> 2921</span>    <span class="keyword">module procedure</span> :: mtx_inverse_dbl</div>
-<div class="line"><a id="l02922" name="l02922"></a><span class="lineno"> 2922</span>    <span class="keyword">module procedure</span> :: mtx_inverse_cmplx</div>
+<div class="line"><a id="l02757" name="l02757"></a><span class="lineno"> 2757</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02758" name="l02758"></a><span class="lineno"> 2758</span> </div>
+<div class="line"><a id="l02759" name="l02759"></a><span class="lineno"> 2759</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02853" data-start="" data-end="">
+<div class="line"><a id="l02853" name="l02853"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares__full.html"> 2853</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares__full.html">solve_least_squares_full</a></div>
+<div class="line"><a id="l02854" name="l02854"></a><span class="lineno"> 2854</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_pvt</div>
+<div class="line"><a id="l02855" name="l02855"></a><span class="lineno"> 2855</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_pvt_cmplx</div>
+<div class="line"><a id="l02856" name="l02856"></a><span class="lineno"> 2856</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_pvt</div>
+<div class="line"><a id="l02857" name="l02857"></a><span class="lineno"> 2857</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_pvt_cmplx</div>
 </div>
-<div class="line"><a id="l02923" name="l02923"></a><span class="lineno"> 2923</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l02924" name="l02924"></a><span class="lineno"> 2924</span> </div>
-<div class="line"><a id="l02925" name="l02925"></a><span class="lineno"> 2925</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen03026" data-start="" data-end="">
-<div class="line"><a id="l03026" name="l03026"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__pinverse.html"> 3026</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__pinverse.html">mtx_pinverse</a></div>
-<div class="line"><a id="l03027" name="l03027"></a><span class="lineno"> 3027</span>    <span class="keyword">module procedure</span> :: mtx_pinverse_dbl</div>
-<div class="line"><a id="l03028" name="l03028"></a><span class="lineno"> 3028</span>    <span class="keyword">module procedure</span> :: mtx_pinverse_cmplx</div>
+<div class="line"><a id="l02858" name="l02858"></a><span class="lineno"> 2858</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02859" name="l02859"></a><span class="lineno"> 2859</span> </div>
+<div class="line"><a id="l02860" name="l02860"></a><span class="lineno"> 2860</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen02955" data-start="" data-end="">
+<div class="line"><a id="l02955" name="l02955"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__least__squares__svd.html"> 2955</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__least__squares__svd.html">solve_least_squares_svd</a></div>
+<div class="line"><a id="l02956" name="l02956"></a><span class="lineno"> 2956</span>    <span class="keyword">module procedure</span> :: solve_least_squares_mtx_svd</div>
+<div class="line"><a id="l02957" name="l02957"></a><span class="lineno"> 2957</span>    <span class="keyword">module procedure</span> :: solve_least_squares_vec_svd</div>
 </div>
-<div class="line"><a id="l03029" name="l03029"></a><span class="lineno"> 3029</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03030" name="l03030"></a><span class="lineno"> 3030</span> </div>
-<div class="line"><a id="l03031" name="l03031"></a><span class="lineno"> 3031</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen03240" data-start="" data-end="">
-<div class="line"><a id="l03240" name="l03240"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1eigen.html"> 3240</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1eigen.html">eigen</a></div>
-<div class="line"><a id="l03241" name="l03241"></a><span class="lineno"> 3241</span>    <span class="keyword">module procedure</span> :: eigen_symm</div>
-<div class="line"><a id="l03242" name="l03242"></a><span class="lineno"> 3242</span>    <span class="keyword">module procedure</span> :: eigen_asymm</div>
-<div class="line"><a id="l03243" name="l03243"></a><span class="lineno"> 3243</span>    <span class="keyword">module procedure</span> :: eigen_gen</div>
-<div class="line"><a id="l03244" name="l03244"></a><span class="lineno"> 3244</span>    <span class="keyword">module procedure</span> :: eigen_cmplx</div>
+<div class="line"><a id="l02958" name="l02958"></a><span class="lineno"> 2958</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l02959" name="l02959"></a><span class="lineno"> 2959</span> </div>
+<div class="line"><a id="l02960" name="l02960"></a><span class="lineno"> 2960</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen03050" data-start="" data-end="">
+<div class="line"><a id="l03050" name="l03050"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__inverse.html"> 3050</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a></div>
+<div class="line"><a id="l03051" name="l03051"></a><span class="lineno"> 3051</span>    <span class="keyword">module procedure</span> :: mtx_inverse_dbl</div>
+<div class="line"><a id="l03052" name="l03052"></a><span class="lineno"> 3052</span>    <span class="keyword">module procedure</span> :: mtx_inverse_cmplx</div>
 </div>
-<div class="line"><a id="l03245" name="l03245"></a><span class="lineno"> 3245</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03246" name="l03246"></a><span class="lineno"> 3246</span> </div>
-<div class="line"><a id="l03247" name="l03247"></a><span class="lineno"> 3247</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen03323" data-start="" data-end="">
-<div class="line"><a id="l03323" name="l03323"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1sort.html"> 3323</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1sort.html">sort</a></div>
-<div class="line"><a id="l03324" name="l03324"></a><span class="lineno"> 3324</span>    <span class="keyword">module procedure</span> :: sort_dbl_array</div>
-<div class="line"><a id="l03325" name="l03325"></a><span class="lineno"> 3325</span>    <span class="keyword">module procedure</span> :: sort_dbl_array_ind</div>
-<div class="line"><a id="l03326" name="l03326"></a><span class="lineno"> 3326</span>    <span class="keyword">module procedure</span> :: sort_cmplx_array</div>
-<div class="line"><a id="l03327" name="l03327"></a><span class="lineno"> 3327</span>    <span class="keyword">module procedure</span> :: sort_cmplx_array_ind</div>
-<div class="line"><a id="l03328" name="l03328"></a><span class="lineno"> 3328</span>    <span class="keyword">module procedure</span> :: sort_eigen_cmplx</div>
-<div class="line"><a id="l03329" name="l03329"></a><span class="lineno"> 3329</span>    <span class="keyword">module procedure</span> :: sort_eigen_dbl</div>
+<div class="line"><a id="l03053" name="l03053"></a><span class="lineno"> 3053</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03054" name="l03054"></a><span class="lineno"> 3054</span> </div>
+<div class="line"><a id="l03055" name="l03055"></a><span class="lineno"> 3055</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen03156" data-start="" data-end="">
+<div class="line"><a id="l03156" name="l03156"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mtx__pinverse.html"> 3156</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mtx__pinverse.html">mtx_pinverse</a></div>
+<div class="line"><a id="l03157" name="l03157"></a><span class="lineno"> 3157</span>    <span class="keyword">module procedure</span> :: mtx_pinverse_dbl</div>
+<div class="line"><a id="l03158" name="l03158"></a><span class="lineno"> 3158</span>    <span class="keyword">module procedure</span> :: mtx_pinverse_cmplx</div>
 </div>
-<div class="line"><a id="l03330" name="l03330"></a><span class="lineno"> 3330</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03331" name="l03331"></a><span class="lineno"> 3331</span> </div>
-<div class="foldopen" id="foldopen03437" data-start="" data-end="">
-<div class="line"><a id="l03437" name="l03437"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1lq__factor.html"> 3437</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1lq__factor.html">lq_factor</a></div>
-<div class="line"><a id="l03438" name="l03438"></a><span class="lineno"> 3438</span>    <span class="keyword">module procedure</span> :: lq_factor_no_pivot</div>
-<div class="line"><a id="l03439" name="l03439"></a><span class="lineno"> 3439</span>    <span class="keyword">module procedure</span> :: lq_factor_no_pivot_cmplx</div>
+<div class="line"><a id="l03159" name="l03159"></a><span class="lineno"> 3159</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03160" name="l03160"></a><span class="lineno"> 3160</span> </div>
+<div class="line"><a id="l03161" name="l03161"></a><span class="lineno"> 3161</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen03370" data-start="" data-end="">
+<div class="line"><a id="l03370" name="l03370"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1eigen.html"> 3370</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1eigen.html">eigen</a></div>
+<div class="line"><a id="l03371" name="l03371"></a><span class="lineno"> 3371</span>    <span class="keyword">module procedure</span> :: eigen_symm</div>
+<div class="line"><a id="l03372" name="l03372"></a><span class="lineno"> 3372</span>    <span class="keyword">module procedure</span> :: eigen_asymm</div>
+<div class="line"><a id="l03373" name="l03373"></a><span class="lineno"> 3373</span>    <span class="keyword">module procedure</span> :: eigen_gen</div>
+<div class="line"><a id="l03374" name="l03374"></a><span class="lineno"> 3374</span>    <span class="keyword">module procedure</span> :: eigen_cmplx</div>
 </div>
-<div class="line"><a id="l03440" name="l03440"></a><span class="lineno"> 3440</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03441" name="l03441"></a><span class="lineno"> 3441</span> </div>
-<div class="foldopen" id="foldopen03551" data-start="" data-end="">
-<div class="line"><a id="l03551" name="l03551"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__lq.html"> 3551</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__lq.html">form_lq</a></div>
-<div class="line"><a id="l03552" name="l03552"></a><span class="lineno"> 3552</span>    <span class="keyword">module procedure</span> :: form_lq_no_pivot</div>
-<div class="line"><a id="l03553" name="l03553"></a><span class="lineno"> 3553</span>    <span class="keyword">module procedure</span> :: form_lq_no_pivot_cmplx</div>
+<div class="line"><a id="l03375" name="l03375"></a><span class="lineno"> 3375</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03376" name="l03376"></a><span class="lineno"> 3376</span> </div>
+<div class="line"><a id="l03377" name="l03377"></a><span class="lineno"> 3377</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen03453" data-start="" data-end="">
+<div class="line"><a id="l03453" name="l03453"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1sort.html"> 3453</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1sort.html">sort</a></div>
+<div class="line"><a id="l03454" name="l03454"></a><span class="lineno"> 3454</span>    <span class="keyword">module procedure</span> :: sort_dbl_array</div>
+<div class="line"><a id="l03455" name="l03455"></a><span class="lineno"> 3455</span>    <span class="keyword">module procedure</span> :: sort_dbl_array_ind</div>
+<div class="line"><a id="l03456" name="l03456"></a><span class="lineno"> 3456</span>    <span class="keyword">module procedure</span> :: sort_cmplx_array</div>
+<div class="line"><a id="l03457" name="l03457"></a><span class="lineno"> 3457</span>    <span class="keyword">module procedure</span> :: sort_cmplx_array_ind</div>
+<div class="line"><a id="l03458" name="l03458"></a><span class="lineno"> 3458</span>    <span class="keyword">module procedure</span> :: sort_eigen_cmplx</div>
+<div class="line"><a id="l03459" name="l03459"></a><span class="lineno"> 3459</span>    <span class="keyword">module procedure</span> :: sort_eigen_dbl</div>
 </div>
-<div class="line"><a id="l03554" name="l03554"></a><span class="lineno"> 3554</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03555" name="l03555"></a><span class="lineno"> 3555</span> </div>
-<div class="foldopen" id="foldopen03700" data-start="" data-end="">
-<div class="line"><a id="l03700" name="l03700"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__lq.html"> 3700</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__lq.html">mult_lq</a></div>
-<div class="line"><a id="l03701" name="l03701"></a><span class="lineno"> 3701</span>    <span class="keyword">module procedure</span> :: mult_lq_mtx</div>
-<div class="line"><a id="l03702" name="l03702"></a><span class="lineno"> 3702</span>    <span class="keyword">module procedure</span> :: mult_lq_mtx_cmplx</div>
-<div class="line"><a id="l03703" name="l03703"></a><span class="lineno"> 3703</span>    <span class="keyword">module procedure</span> :: mult_lq_vec</div>
-<div class="line"><a id="l03704" name="l03704"></a><span class="lineno"> 3704</span>    <span class="keyword">module procedure</span> :: mult_lq_vec_cmplx</div>
+<div class="line"><a id="l03460" name="l03460"></a><span class="lineno"> 3460</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03461" name="l03461"></a><span class="lineno"> 3461</span> </div>
+<div class="foldopen" id="foldopen03567" data-start="" data-end="">
+<div class="line"><a id="l03567" name="l03567"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1lq__factor.html"> 3567</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1lq__factor.html">lq_factor</a></div>
+<div class="line"><a id="l03568" name="l03568"></a><span class="lineno"> 3568</span>    <span class="keyword">module procedure</span> :: lq_factor_no_pivot</div>
+<div class="line"><a id="l03569" name="l03569"></a><span class="lineno"> 3569</span>    <span class="keyword">module procedure</span> :: lq_factor_no_pivot_cmplx</div>
 </div>
-<div class="line"><a id="l03705" name="l03705"></a><span class="lineno"> 3705</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03706" name="l03706"></a><span class="lineno"> 3706</span> </div>
-<div class="foldopen" id="foldopen03795" data-start="" data-end="">
-<div class="line"><a id="l03795" name="l03795"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__lq.html"> 3795</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__lq.html">solve_lq</a></div>
-<div class="line"><a id="l03796" name="l03796"></a><span class="lineno"> 3796</span>    <span class="keyword">module procedure</span> :: solve_lq_mtx</div>
-<div class="line"><a id="l03797" name="l03797"></a><span class="lineno"> 3797</span>    <span class="keyword">module procedure</span> :: solve_lq_mtx_cmplx</div>
-<div class="line"><a id="l03798" name="l03798"></a><span class="lineno"> 3798</span>    <span class="keyword">module procedure</span> :: solve_lq_vec</div>
-<div class="line"><a id="l03799" name="l03799"></a><span class="lineno"> 3799</span>    <span class="keyword">module procedure</span> :: solve_lq_vec_cmplx</div>
+<div class="line"><a id="l03570" name="l03570"></a><span class="lineno"> 3570</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03571" name="l03571"></a><span class="lineno"> 3571</span> </div>
+<div class="foldopen" id="foldopen03681" data-start="" data-end="">
+<div class="line"><a id="l03681" name="l03681"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1form__lq.html"> 3681</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1form__lq.html">form_lq</a></div>
+<div class="line"><a id="l03682" name="l03682"></a><span class="lineno"> 3682</span>    <span class="keyword">module procedure</span> :: form_lq_no_pivot</div>
+<div class="line"><a id="l03683" name="l03683"></a><span class="lineno"> 3683</span>    <span class="keyword">module procedure</span> :: form_lq_no_pivot_cmplx</div>
 </div>
-<div class="line"><a id="l03800" name="l03800"></a><span class="lineno"> 3800</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03801" name="l03801"></a><span class="lineno"> 3801</span> </div>
-<div class="line"><a id="l03802" name="l03802"></a><span class="lineno"> 3802</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="foldopen" id="foldopen03897" data-start="" data-end="">
-<div class="line"><a id="l03897" name="l03897"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__mtx__mult.html"> 3897</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__mult.html">band_mtx_mult</a></div>
-<div class="line"><a id="l03898" name="l03898"></a><span class="lineno"> 3898</span>    <span class="keyword">module procedure</span> :: band_mtx_vec_mult_dbl</div>
-<div class="line"><a id="l03899" name="l03899"></a><span class="lineno"> 3899</span>    <span class="keyword">module procedure</span> :: band_mtx_vec_mult_cmplx</div>
+<div class="line"><a id="l03684" name="l03684"></a><span class="lineno"> 3684</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03685" name="l03685"></a><span class="lineno"> 3685</span> </div>
+<div class="foldopen" id="foldopen03830" data-start="" data-end="">
+<div class="line"><a id="l03830" name="l03830"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1mult__lq.html"> 3830</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1mult__lq.html">mult_lq</a></div>
+<div class="line"><a id="l03831" name="l03831"></a><span class="lineno"> 3831</span>    <span class="keyword">module procedure</span> :: mult_lq_mtx</div>
+<div class="line"><a id="l03832" name="l03832"></a><span class="lineno"> 3832</span>    <span class="keyword">module procedure</span> :: mult_lq_mtx_cmplx</div>
+<div class="line"><a id="l03833" name="l03833"></a><span class="lineno"> 3833</span>    <span class="keyword">module procedure</span> :: mult_lq_vec</div>
+<div class="line"><a id="l03834" name="l03834"></a><span class="lineno"> 3834</span>    <span class="keyword">module procedure</span> :: mult_lq_vec_cmplx</div>
 </div>
-<div class="line"><a id="l03900" name="l03900"></a><span class="lineno"> 3900</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03901" name="l03901"></a><span class="lineno"> 3901</span> </div>
-<div class="foldopen" id="foldopen03939" data-start="" data-end="">
-<div class="line"><a id="l03939" name="l03939"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__mtx__to__full__mtx.html"> 3939</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a></div>
-<div class="line"><a id="l03940" name="l03940"></a><span class="lineno"> 3940</span>    <span class="keyword">module procedure</span> :: band_to_full_mtx_dbl</div>
-<div class="line"><a id="l03941" name="l03941"></a><span class="lineno"> 3941</span>    <span class="keyword">module procedure</span> :: band_to_full_mtx_cmplx</div>
+<div class="line"><a id="l03835" name="l03835"></a><span class="lineno"> 3835</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03836" name="l03836"></a><span class="lineno"> 3836</span> </div>
+<div class="foldopen" id="foldopen03925" data-start="" data-end="">
+<div class="line"><a id="l03925" name="l03925"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1solve__lq.html"> 3925</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1solve__lq.html">solve_lq</a></div>
+<div class="line"><a id="l03926" name="l03926"></a><span class="lineno"> 3926</span>    <span class="keyword">module procedure</span> :: solve_lq_mtx</div>
+<div class="line"><a id="l03927" name="l03927"></a><span class="lineno"> 3927</span>    <span class="keyword">module procedure</span> :: solve_lq_mtx_cmplx</div>
+<div class="line"><a id="l03928" name="l03928"></a><span class="lineno"> 3928</span>    <span class="keyword">module procedure</span> :: solve_lq_vec</div>
+<div class="line"><a id="l03929" name="l03929"></a><span class="lineno"> 3929</span>    <span class="keyword">module procedure</span> :: solve_lq_vec_cmplx</div>
 </div>
-<div class="line"><a id="l03942" name="l03942"></a><span class="lineno"> 3942</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l03943" name="l03943"></a><span class="lineno"> 3943</span> </div>
-<div class="foldopen" id="foldopen04002" data-start="" data-end="">
-<div class="line"><a id="l04002" name="l04002"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__diag__mtx__mult.html"> 4002</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__diag__mtx__mult.html">band_diag_mtx_mult</a></div>
-<div class="line"><a id="l04003" name="l04003"></a><span class="lineno"> 4003</span>    <span class="keyword">module procedure</span> :: band_diag_mtx_mult_dbl</div>
-<div class="line"><a id="l04004" name="l04004"></a><span class="lineno"> 4004</span>    <span class="keyword">module procedure</span> :: band_diag_mtx_mult_cmplx</div>
+<div class="line"><a id="l03930" name="l03930"></a><span class="lineno"> 3930</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l03931" name="l03931"></a><span class="lineno"> 3931</span> </div>
+<div class="line"><a id="l03932" name="l03932"></a><span class="lineno"> 3932</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen04027" data-start="" data-end="">
+<div class="line"><a id="l04027" name="l04027"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__mtx__mult.html"> 4027</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__mult.html">band_mtx_mult</a></div>
+<div class="line"><a id="l04028" name="l04028"></a><span class="lineno"> 4028</span>    <span class="keyword">module procedure</span> :: band_mtx_vec_mult_dbl</div>
+<div class="line"><a id="l04029" name="l04029"></a><span class="lineno"> 4029</span>    <span class="keyword">module procedure</span> :: band_mtx_vec_mult_cmplx</div>
 </div>
-<div class="line"><a id="l04005" name="l04005"></a><span class="lineno"> 4005</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l04006" name="l04006"></a><span class="lineno"> 4006</span> </div>
-<div class="line"><a id="l04007" name="l04007"></a><span class="lineno"> 4007</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l04008" name="l04008"></a><span class="lineno"> 4008</span><span class="comment">! LINALG_BASIC.F90</span></div>
-<div class="line"><a id="l04009" name="l04009"></a><span class="lineno"> 4009</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l04010" name="l04010"></a><span class="lineno"> 4010</span><span class="keyword">interface</span></div>
-<div class="line"><a id="l04011" name="l04011"></a><span class="lineno"> 4011</span>    <span class="keyword">module</span> subroutine mtx_mult_mtx(transa, transb, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04012" name="l04012"></a><span class="lineno"> 4012</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: transa, transb</div>
-<div class="line"><a id="l04013" name="l04013"></a><span class="lineno"> 4013</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04014" name="l04014"></a><span class="lineno"> 4014</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04015" name="l04015"></a><span class="lineno"> 4015</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04016" name="l04016"></a><span class="lineno"> 4016</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04017" name="l04017"></a><span class="lineno"> 4017</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04018" name="l04018"></a><span class="lineno"> 4018</span>    </div>
-<div class="line"><a id="l04019" name="l04019"></a><span class="lineno"> 4019</span>    <span class="keyword">module</span> subroutine mtx_mult_vec(trans, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04020" name="l04020"></a><span class="lineno"> 4020</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04021" name="l04021"></a><span class="lineno"> 4021</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04022" name="l04022"></a><span class="lineno"> 4022</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04023" name="l04023"></a><span class="lineno"> 4023</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04024" name="l04024"></a><span class="lineno"> 4024</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04025" name="l04025"></a><span class="lineno"> 4025</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04026" name="l04026"></a><span class="lineno"> 4026</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04027" name="l04027"></a><span class="lineno"> 4027</span>    </div>
-<div class="line"><a id="l04028" name="l04028"></a><span class="lineno"> 4028</span>    <span class="keyword">module</span> subroutine cmtx_mult_mtx(opa, opb, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04029" name="l04029"></a><span class="lineno"> 4029</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opa, opb</div>
-<div class="line"><a id="l04030" name="l04030"></a><span class="lineno"> 4030</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04031" name="l04031"></a><span class="lineno"> 4031</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04032" name="l04032"></a><span class="lineno"> 4032</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04033" name="l04033"></a><span class="lineno"> 4033</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04034" name="l04034"></a><span class="lineno"> 4034</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04035" name="l04035"></a><span class="lineno"> 4035</span> </div>
-<div class="line"><a id="l04036" name="l04036"></a><span class="lineno"> 4036</span>    <span class="keyword">module</span> subroutine cmtx_mult_vec(opa, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04037" name="l04037"></a><span class="lineno"> 4037</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opa</div>
-<div class="line"><a id="l04038" name="l04038"></a><span class="lineno"> 4038</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04039" name="l04039"></a><span class="lineno"> 4039</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04040" name="l04040"></a><span class="lineno"> 4040</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04041" name="l04041"></a><span class="lineno"> 4041</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04042" name="l04042"></a><span class="lineno"> 4042</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04043" name="l04043"></a><span class="lineno"> 4043</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04044" name="l04044"></a><span class="lineno"> 4044</span>    </div>
-<div class="line"><a id="l04045" name="l04045"></a><span class="lineno"> 4045</span>    <span class="keyword">module</span> subroutine rank1_update_dbl(alpha, x, y, a, err)</div>
-<div class="line"><a id="l04046" name="l04046"></a><span class="lineno"> 4046</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04047" name="l04047"></a><span class="lineno"> 4047</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l04048" name="l04048"></a><span class="lineno"> 4048</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04049" name="l04049"></a><span class="lineno"> 4049</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04050" name="l04050"></a><span class="lineno"> 4050</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04051" name="l04051"></a><span class="lineno"> 4051</span>    </div>
-<div class="line"><a id="l04052" name="l04052"></a><span class="lineno"> 4052</span>    <span class="keyword">module</span> subroutine rank1_update_cmplx(alpha, x, y, a, err)</div>
-<div class="line"><a id="l04053" name="l04053"></a><span class="lineno"> 4053</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04054" name="l04054"></a><span class="lineno"> 4054</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l04055" name="l04055"></a><span class="lineno"> 4055</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04056" name="l04056"></a><span class="lineno"> 4056</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04057" name="l04057"></a><span class="lineno"> 4057</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04058" name="l04058"></a><span class="lineno"> 4058</span>    </div>
-<div class="line"><a id="l04059" name="l04059"></a><span class="lineno"> 4059</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx(lside, trans, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04060" name="l04060"></a><span class="lineno"> 4060</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04061" name="l04061"></a><span class="lineno"> 4061</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
-<div class="line"><a id="l04062" name="l04062"></a><span class="lineno"> 4062</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04063" name="l04063"></a><span class="lineno"> 4063</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04064" name="l04064"></a><span class="lineno"> 4064</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04065" name="l04065"></a><span class="lineno"> 4065</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04066" name="l04066"></a><span class="lineno"> 4066</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04067" name="l04067"></a><span class="lineno"> 4067</span> </div>
-<div class="line"><a id="l04068" name="l04068"></a><span class="lineno"> 4068</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2(lside, alpha, a, b, err)</div>
-<div class="line"><a id="l04069" name="l04069"></a><span class="lineno"> 4069</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04070" name="l04070"></a><span class="lineno"> 4070</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04071" name="l04071"></a><span class="lineno"> 4071</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04072" name="l04072"></a><span class="lineno"> 4072</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04073" name="l04073"></a><span class="lineno"> 4073</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04074" name="l04074"></a><span class="lineno"> 4074</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04075" name="l04075"></a><span class="lineno"> 4075</span>    </div>
-<div class="line"><a id="l04076" name="l04076"></a><span class="lineno"> 4076</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx3(lside, trans, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04077" name="l04077"></a><span class="lineno"> 4077</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04078" name="l04078"></a><span class="lineno"> 4078</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
-<div class="line"><a id="l04079" name="l04079"></a><span class="lineno"> 4079</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04080" name="l04080"></a><span class="lineno"> 4080</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04081" name="l04081"></a><span class="lineno"> 4081</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04082" name="l04082"></a><span class="lineno"> 4082</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04083" name="l04083"></a><span class="lineno"> 4083</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04084" name="l04084"></a><span class="lineno"> 4084</span>    </div>
-<div class="line"><a id="l04085" name="l04085"></a><span class="lineno"> 4085</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx4(lside, opb, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04086" name="l04086"></a><span class="lineno"> 4086</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04087" name="l04087"></a><span class="lineno"> 4087</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
-<div class="line"><a id="l04088" name="l04088"></a><span class="lineno"> 4088</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
-<div class="line"><a id="l04089" name="l04089"></a><span class="lineno"> 4089</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04090" name="l04090"></a><span class="lineno"> 4090</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04091" name="l04091"></a><span class="lineno"> 4091</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04092" name="l04092"></a><span class="lineno"> 4092</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04093" name="l04093"></a><span class="lineno"> 4093</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04094" name="l04094"></a><span class="lineno"> 4094</span> </div>
-<div class="line"><a id="l04095" name="l04095"></a><span class="lineno"> 4095</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx_cmplx(lside, opb, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04096" name="l04096"></a><span class="lineno"> 4096</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04097" name="l04097"></a><span class="lineno"> 4097</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
-<div class="line"><a id="l04098" name="l04098"></a><span class="lineno"> 4098</span>        <span class="keywordtype">complex(real64)</span> :: alpha, beta</div>
-<div class="line"><a id="l04099" name="l04099"></a><span class="lineno"> 4099</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04100" name="l04100"></a><span class="lineno"> 4100</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04101" name="l04101"></a><span class="lineno"> 4101</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04102" name="l04102"></a><span class="lineno"> 4102</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04103" name="l04103"></a><span class="lineno"> 4103</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04104" name="l04104"></a><span class="lineno"> 4104</span> </div>
-<div class="line"><a id="l04105" name="l04105"></a><span class="lineno"> 4105</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2_cmplx(lside, alpha, a, b, err)</div>
-<div class="line"><a id="l04106" name="l04106"></a><span class="lineno"> 4106</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04107" name="l04107"></a><span class="lineno"> 4107</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04108" name="l04108"></a><span class="lineno"> 4108</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04109" name="l04109"></a><span class="lineno"> 4109</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04110" name="l04110"></a><span class="lineno"> 4110</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04111" name="l04111"></a><span class="lineno"> 4111</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04112" name="l04112"></a><span class="lineno"> 4112</span>    </div>
-<div class="line"><a id="l04113" name="l04113"></a><span class="lineno"> 4113</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx_mix(lside, opb, alpha, a, b, beta, c, err)</div>
-<div class="line"><a id="l04114" name="l04114"></a><span class="lineno"> 4114</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04115" name="l04115"></a><span class="lineno"> 4115</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
-<div class="line"><a id="l04116" name="l04116"></a><span class="lineno"> 4116</span>        <span class="keywordtype">complex(real64)</span> :: alpha, beta</div>
-<div class="line"><a id="l04117" name="l04117"></a><span class="lineno"> 4117</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04118" name="l04118"></a><span class="lineno"> 4118</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04119" name="l04119"></a><span class="lineno"> 4119</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04120" name="l04120"></a><span class="lineno"> 4120</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04121" name="l04121"></a><span class="lineno"> 4121</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04122" name="l04122"></a><span class="lineno"> 4122</span>    </div>
-<div class="line"><a id="l04123" name="l04123"></a><span class="lineno"> 4123</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2_mix(lside, alpha, a, b, err)</div>
-<div class="line"><a id="l04124" name="l04124"></a><span class="lineno"> 4124</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
-<div class="line"><a id="l04125" name="l04125"></a><span class="lineno"> 4125</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04126" name="l04126"></a><span class="lineno"> 4126</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
-<div class="line"><a id="l04127" name="l04127"></a><span class="lineno"> 4127</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04128" name="l04128"></a><span class="lineno"> 4128</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04129" name="l04129"></a><span class="lineno"> 4129</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04130" name="l04130"></a><span class="lineno"> 4130</span>    </div>
-<div class="line"><a id="l04131" name="l04131"></a><span class="lineno"> 4131</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_dbl(x) result(y)</div>
-<div class="line"><a id="l04132" name="l04132"></a><span class="lineno"> 4132</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
-<div class="line"><a id="l04133" name="l04133"></a><span class="lineno"> 4133</span><span class="keywordtype">        real</span>(real64) :: y</div>
-<div class="line"><a id="l04134" name="l04134"></a><span class="lineno"> 4134</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04135" name="l04135"></a><span class="lineno"> 4135</span>    </div>
-<div class="line"><a id="l04136" name="l04136"></a><span class="lineno"> 4136</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_cmplx(x) result(y)</div>
-<div class="line"><a id="l04137" name="l04137"></a><span class="lineno"> 4137</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
-<div class="line"><a id="l04138" name="l04138"></a><span class="lineno"> 4138</span>        <span class="keywordtype">complex(real64)</span> :: y</div>
-<div class="line"><a id="l04139" name="l04139"></a><span class="lineno"> 4139</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04140" name="l04140"></a><span class="lineno"> 4140</span>    </div>
-<div class="line"><a id="l04141" name="l04141"></a><span class="lineno"> 4141</span>    <span class="keyword">module</span> function mtx_rank_dbl(a, tol, work, olwork, err) result(rnk)</div>
-<div class="line"><a id="l04142" name="l04142"></a><span class="lineno"> 4142</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04143" name="l04143"></a><span class="lineno"> 4143</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l04144" name="l04144"></a><span class="lineno"> 4144</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04145" name="l04145"></a><span class="lineno"> 4145</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04146" name="l04146"></a><span class="lineno"> 4146</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04147" name="l04147"></a><span class="lineno"> 4147</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
-<div class="line"><a id="l04148" name="l04148"></a><span class="lineno"> 4148</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04149" name="l04149"></a><span class="lineno"> 4149</span> </div>
-<div class="line"><a id="l04150" name="l04150"></a><span class="lineno"> 4150</span>    <span class="keyword">module</span> function mtx_rank_cmplx(a, tol, work, olwork, rwork, err) result(rnk)</div>
-<div class="line"><a id="l04151" name="l04151"></a><span class="lineno"> 4151</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04152" name="l04152"></a><span class="lineno"> 4152</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l04153" name="l04153"></a><span class="lineno"> 4153</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04154" name="l04154"></a><span class="lineno"> 4154</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04155" name="l04155"></a><span class="lineno"> 4155</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
-<div class="line"><a id="l04156" name="l04156"></a><span class="lineno"> 4156</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04157" name="l04157"></a><span class="lineno"> 4157</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
-<div class="line"><a id="l04158" name="l04158"></a><span class="lineno"> 4158</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04159" name="l04159"></a><span class="lineno"> 4159</span>    </div>
-<div class="line"><a id="l04160" name="l04160"></a><span class="lineno"> 4160</span>    <span class="keyword">module</span> function det_dbl(a, iwork, err) result(x)</div>
-<div class="line"><a id="l04161" name="l04161"></a><span class="lineno"> 4161</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04162" name="l04162"></a><span class="lineno"> 4162</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l04163" name="l04163"></a><span class="lineno"> 4163</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04164" name="l04164"></a><span class="lineno"> 4164</span><span class="keywordtype">        real</span>(real64) :: x</div>
-<div class="line"><a id="l04165" name="l04165"></a><span class="lineno"> 4165</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04166" name="l04166"></a><span class="lineno"> 4166</span>    </div>
-<div class="line"><a id="l04167" name="l04167"></a><span class="lineno"> 4167</span>    <span class="keyword">module</span> function det_cmplx(a, iwork, err) result(x)</div>
-<div class="line"><a id="l04168" name="l04168"></a><span class="lineno"> 4168</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04169" name="l04169"></a><span class="lineno"> 4169</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l04170" name="l04170"></a><span class="lineno"> 4170</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04171" name="l04171"></a><span class="lineno"> 4171</span>        <span class="keywordtype">complex(real64)</span> :: x</div>
-<div class="line"><a id="l04172" name="l04172"></a><span class="lineno"> 4172</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l04173" name="l04173"></a><span class="lineno"> 4173</span>    </div>
-<div class="line"><a id="l04174" name="l04174"></a><span class="lineno"> 4174</span>    <span class="keyword">module</span> subroutine swap_dbl(x, y, err)</div>
-<div class="line"><a id="l04175" name="l04175"></a><span class="lineno"> 4175</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l04176" name="l04176"></a><span class="lineno"> 4176</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04177" name="l04177"></a><span class="lineno"> 4177</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04178" name="l04178"></a><span class="lineno"> 4178</span>    </div>
-<div class="line"><a id="l04179" name="l04179"></a><span class="lineno"> 4179</span>    <span class="keyword">module</span> subroutine swap_cmplx(x, y, err)</div>
-<div class="line"><a id="l04180" name="l04180"></a><span class="lineno"> 4180</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l04181" name="l04181"></a><span class="lineno"> 4181</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04182" name="l04182"></a><span class="lineno"> 4182</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04183" name="l04183"></a><span class="lineno"> 4183</span>    </div>
-<div class="line"><a id="l04184" name="l04184"></a><span class="lineno"> 4184</span>    <span class="keyword">module</span> subroutine recip_mult_array_dbl(a, x)</div>
-<div class="line"><a id="l04185" name="l04185"></a><span class="lineno"> 4185</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
-<div class="line"><a id="l04186" name="l04186"></a><span class="lineno"> 4186</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l04187" name="l04187"></a><span class="lineno"> 4187</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04188" name="l04188"></a><span class="lineno"> 4188</span>    </div>
-<div class="line"><a id="l04189" name="l04189"></a><span class="lineno"> 4189</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_dbl(upper, alpha, a, beta, b, err)</div>
-<div class="line"><a id="l04190" name="l04190"></a><span class="lineno"> 4190</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04191" name="l04191"></a><span class="lineno"> 4191</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04192" name="l04192"></a><span class="lineno"> 4192</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04193" name="l04193"></a><span class="lineno"> 4193</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04194" name="l04194"></a><span class="lineno"> 4194</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04195" name="l04195"></a><span class="lineno"> 4195</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04196" name="l04196"></a><span class="lineno"> 4196</span> </div>
-<div class="line"><a id="l04197" name="l04197"></a><span class="lineno"> 4197</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_cmplx(upper, alpha, a, beta, b, err)</div>
-<div class="line"><a id="l04198" name="l04198"></a><span class="lineno"> 4198</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04199" name="l04199"></a><span class="lineno"> 4199</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04200" name="l04200"></a><span class="lineno"> 4200</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04201" name="l04201"></a><span class="lineno"> 4201</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04202" name="l04202"></a><span class="lineno"> 4202</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04203" name="l04203"></a><span class="lineno"> 4203</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04204" name="l04204"></a><span class="lineno"> 4204</span> </div>
-<div class="line"><a id="l04205" name="l04205"></a><span class="lineno"> 4205</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_dbl(trans, kl, ku, alpha, a, x, beta, &amp;</div>
-<div class="line"><a id="l04206" name="l04206"></a><span class="lineno"> 4206</span>        y, err)</div>
-<div class="line"><a id="l04207" name="l04207"></a><span class="lineno"> 4207</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04208" name="l04208"></a><span class="lineno"> 4208</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l04209" name="l04209"></a><span class="lineno"> 4209</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04210" name="l04210"></a><span class="lineno"> 4210</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04211" name="l04211"></a><span class="lineno"> 4211</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l04212" name="l04212"></a><span class="lineno"> 4212</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
-<div class="line"><a id="l04213" name="l04213"></a><span class="lineno"> 4213</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04214" name="l04214"></a><span class="lineno"> 4214</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04215" name="l04215"></a><span class="lineno"> 4215</span> </div>
-<div class="line"><a id="l04216" name="l04216"></a><span class="lineno"> 4216</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_cmplx(trans, kl, ku, alpha, a, x, &amp;</div>
-<div class="line"><a id="l04217" name="l04217"></a><span class="lineno"> 4217</span>        beta, y, err)</div>
-<div class="line"><a id="l04218" name="l04218"></a><span class="lineno"> 4218</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04219" name="l04219"></a><span class="lineno"> 4219</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l04220" name="l04220"></a><span class="lineno"> 4220</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l04221" name="l04221"></a><span class="lineno"> 4221</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04222" name="l04222"></a><span class="lineno"> 4222</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l04223" name="l04223"></a><span class="lineno"> 4223</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
-<div class="line"><a id="l04224" name="l04224"></a><span class="lineno"> 4224</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04225" name="l04225"></a><span class="lineno"> 4225</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04226" name="l04226"></a><span class="lineno"> 4226</span> </div>
-<div class="line"><a id="l04227" name="l04227"></a><span class="lineno"> 4227</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_dbl(kl, ku, b, f, err)</div>
-<div class="line"><a id="l04228" name="l04228"></a><span class="lineno"> 4228</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l04229" name="l04229"></a><span class="lineno"> 4229</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04230" name="l04230"></a><span class="lineno"> 4230</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
+<div class="line"><a id="l04030" name="l04030"></a><span class="lineno"> 4030</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04031" name="l04031"></a><span class="lineno"> 4031</span> </div>
+<div class="foldopen" id="foldopen04069" data-start="" data-end="">
+<div class="line"><a id="l04069" name="l04069"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__mtx__to__full__mtx.html"> 4069</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a></div>
+<div class="line"><a id="l04070" name="l04070"></a><span class="lineno"> 4070</span>    <span class="keyword">module procedure</span> :: band_to_full_mtx_dbl</div>
+<div class="line"><a id="l04071" name="l04071"></a><span class="lineno"> 4071</span>    <span class="keyword">module procedure</span> :: band_to_full_mtx_cmplx</div>
+</div>
+<div class="line"><a id="l04072" name="l04072"></a><span class="lineno"> 4072</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04073" name="l04073"></a><span class="lineno"> 4073</span> </div>
+<div class="foldopen" id="foldopen04132" data-start="" data-end="">
+<div class="line"><a id="l04132" name="l04132"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1band__diag__mtx__mult.html"> 4132</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1band__diag__mtx__mult.html">band_diag_mtx_mult</a></div>
+<div class="line"><a id="l04133" name="l04133"></a><span class="lineno"> 4133</span>    <span class="keyword">module procedure</span> :: band_diag_mtx_mult_dbl</div>
+<div class="line"><a id="l04134" name="l04134"></a><span class="lineno"> 4134</span>    <span class="keyword">module procedure</span> :: band_diag_mtx_mult_cmplx</div>
+</div>
+<div class="line"><a id="l04135" name="l04135"></a><span class="lineno"> 4135</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04136" name="l04136"></a><span class="lineno"> 4136</span> </div>
+<div class="foldopen" id="foldopen04160" data-start="" data-end="">
+<div class="line"><a id="l04160" name="l04160"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1banded__to__dense.html"> 4160</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1banded__to__dense.html">banded_to_dense</a></div>
+<div class="line"><a id="l04161" name="l04161"></a><span class="lineno"> 4161</span>    <span class="keyword">module procedure</span> :: banded_to_dense_dbl</div>
+<div class="line"><a id="l04162" name="l04162"></a><span class="lineno"> 4162</span>    <span class="keyword">module procedure</span> :: banded_to_dense_cmplx</div>
+</div>
+<div class="line"><a id="l04163" name="l04163"></a><span class="lineno"> 4163</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04164" name="l04164"></a><span class="lineno"> 4164</span> </div>
+<div class="foldopen" id="foldopen04185" data-start="" data-end="">
+<div class="line"><a id="l04185" name="l04185"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1dense__to__banded.html"> 4185</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1dense__to__banded.html">dense_to_banded</a></div>
+<div class="line"><a id="l04186" name="l04186"></a><span class="lineno"> 4186</span>    <span class="keyword">module procedure</span> :: dense_to_banded_dbl</div>
+<div class="line"><a id="l04187" name="l04187"></a><span class="lineno"> 4187</span>    <span class="keyword">module procedure</span> :: dense_to_banded_cmplx</div>
+</div>
+<div class="line"><a id="l04188" name="l04188"></a><span class="lineno"> 4188</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04189" name="l04189"></a><span class="lineno"> 4189</span> </div>
+<div class="foldopen" id="foldopen04207" data-start="" data-end="">
+<div class="line"><a id="l04207" name="l04207"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1extract__diagonal.html"> 4207</a></span><span class="keyword">interface</span> <a class="code hl_interface" href="interfacelinalg_1_1extract__diagonal.html">extract_diagonal</a></div>
+<div class="line"><a id="l04208" name="l04208"></a><span class="lineno"> 4208</span>    <span class="keyword">module procedure</span> :: extract_diagonal_dbl</div>
+<div class="line"><a id="l04209" name="l04209"></a><span class="lineno"> 4209</span>    <span class="keyword">module procedure</span> :: extract_diagonal_cmplx</div>
+<div class="line"><a id="l04210" name="l04210"></a><span class="lineno"> 4210</span>    <span class="keyword">module procedure</span> :: extract_diagonal_csr</div>
+</div>
+<div class="line"><a id="l04211" name="l04211"></a><span class="lineno"> 4211</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04212" name="l04212"></a><span class="lineno"> 4212</span> </div>
+<div class="line"><a id="l04213" name="l04213"></a><span class="lineno"> 4213</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l04214" name="l04214"></a><span class="lineno"> 4214</span><span class="comment">! LINALG_BASIC.F90</span></div>
+<div class="line"><a id="l04215" name="l04215"></a><span class="lineno"> 4215</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l04216" name="l04216"></a><span class="lineno"> 4216</span><span class="keyword">interface</span></div>
+<div class="line"><a id="l04217" name="l04217"></a><span class="lineno"> 4217</span>    <span class="keyword">module</span> subroutine mtx_mult_mtx(transa, transb, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04218" name="l04218"></a><span class="lineno"> 4218</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: transa, transb</div>
+<div class="line"><a id="l04219" name="l04219"></a><span class="lineno"> 4219</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04220" name="l04220"></a><span class="lineno"> 4220</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l04221" name="l04221"></a><span class="lineno"> 4221</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04222" name="l04222"></a><span class="lineno"> 4222</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04223" name="l04223"></a><span class="lineno"> 4223</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04224" name="l04224"></a><span class="lineno"> 4224</span>    </div>
+<div class="line"><a id="l04225" name="l04225"></a><span class="lineno"> 4225</span>    <span class="keyword">module</span> subroutine mtx_mult_vec(trans, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04226" name="l04226"></a><span class="lineno"> 4226</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04227" name="l04227"></a><span class="lineno"> 4227</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04228" name="l04228"></a><span class="lineno"> 4228</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04229" name="l04229"></a><span class="lineno"> 4229</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04230" name="l04230"></a><span class="lineno"> 4230</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
 <div class="line"><a id="l04231" name="l04231"></a><span class="lineno"> 4231</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04232" name="l04232"></a><span class="lineno"> 4232</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04233" name="l04233"></a><span class="lineno"> 4233</span> </div>
-<div class="line"><a id="l04234" name="l04234"></a><span class="lineno"> 4234</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_cmplx(kl, ku, b, f, err)</div>
-<div class="line"><a id="l04235" name="l04235"></a><span class="lineno"> 4235</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l04236" name="l04236"></a><span class="lineno"> 4236</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04237" name="l04237"></a><span class="lineno"> 4237</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
-<div class="line"><a id="l04238" name="l04238"></a><span class="lineno"> 4238</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04239" name="l04239"></a><span class="lineno"> 4239</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04240" name="l04240"></a><span class="lineno"> 4240</span> </div>
-<div class="line"><a id="l04241" name="l04241"></a><span class="lineno"> 4241</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_dbl(left, m, kl, ku, alpha, a, b, err)</div>
-<div class="line"><a id="l04242" name="l04242"></a><span class="lineno"> 4242</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
-<div class="line"><a id="l04243" name="l04243"></a><span class="lineno"> 4243</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
-<div class="line"><a id="l04244" name="l04244"></a><span class="lineno"> 4244</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04245" name="l04245"></a><span class="lineno"> 4245</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04246" name="l04246"></a><span class="lineno"> 4246</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04247" name="l04247"></a><span class="lineno"> 4247</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04248" name="l04248"></a><span class="lineno"> 4248</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04249" name="l04249"></a><span class="lineno"> 4249</span> </div>
-<div class="line"><a id="l04250" name="l04250"></a><span class="lineno"> 4250</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_cmplx(left, m, kl, ku, alpha, a, b, err)</div>
-<div class="line"><a id="l04251" name="l04251"></a><span class="lineno"> 4251</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
-<div class="line"><a id="l04252" name="l04252"></a><span class="lineno"> 4252</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
-<div class="line"><a id="l04253" name="l04253"></a><span class="lineno"> 4253</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04254" name="l04254"></a><span class="lineno"> 4254</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04255" name="l04255"></a><span class="lineno"> 4255</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04256" name="l04256"></a><span class="lineno"> 4256</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04257" name="l04257"></a><span class="lineno"> 4257</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04258" name="l04258"></a><span class="lineno"> 4258</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l04259" name="l04259"></a><span class="lineno"> 4259</span> </div>
-<div class="line"><a id="l04260" name="l04260"></a><span class="lineno"> 4260</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l04261" name="l04261"></a><span class="lineno"> 4261</span><span class="comment">! LINALG_FACTOR.F90</span></div>
-<div class="line"><a id="l04262" name="l04262"></a><span class="lineno"> 4262</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l04263" name="l04263"></a><span class="lineno"> 4263</span><span class="keyword">interface</span></div>
-<div class="line"><a id="l04264" name="l04264"></a><span class="lineno"> 4264</span>    <span class="keyword">module</span> subroutine lu_factor_dbl(a, ipvt, err)</div>
-<div class="line"><a id="l04265" name="l04265"></a><span class="lineno"> 4265</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04266" name="l04266"></a><span class="lineno"> 4266</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04267" name="l04267"></a><span class="lineno"> 4267</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04268" name="l04268"></a><span class="lineno"> 4268</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04269" name="l04269"></a><span class="lineno"> 4269</span>    </div>
-<div class="line"><a id="l04270" name="l04270"></a><span class="lineno"> 4270</span>    <span class="keyword">module</span> subroutine lu_factor_cmplx(a, ipvt, err)</div>
-<div class="line"><a id="l04271" name="l04271"></a><span class="lineno"> 4271</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04272" name="l04272"></a><span class="lineno"> 4272</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04273" name="l04273"></a><span class="lineno"> 4273</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04274" name="l04274"></a><span class="lineno"> 4274</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04275" name="l04275"></a><span class="lineno"> 4275</span> </div>
-<div class="line"><a id="l04276" name="l04276"></a><span class="lineno"> 4276</span>    <span class="keyword">module</span> subroutine form_lu_all(lu, ipvt, u, p, err)</div>
-<div class="line"><a id="l04277" name="l04277"></a><span class="lineno"> 4277</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
-<div class="line"><a id="l04278" name="l04278"></a><span class="lineno"> 4278</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04279" name="l04279"></a><span class="lineno"> 4279</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u, p</div>
-<div class="line"><a id="l04280" name="l04280"></a><span class="lineno"> 4280</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04281" name="l04281"></a><span class="lineno"> 4281</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04282" name="l04282"></a><span class="lineno"> 4282</span>    </div>
-<div class="line"><a id="l04283" name="l04283"></a><span class="lineno"> 4283</span>    <span class="keyword">module</span> subroutine form_lu_all_cmplx(lu, ipvt, u, p, err)</div>
-<div class="line"><a id="l04284" name="l04284"></a><span class="lineno"> 4284</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
-<div class="line"><a id="l04285" name="l04285"></a><span class="lineno"> 4285</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04286" name="l04286"></a><span class="lineno"> 4286</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
-<div class="line"><a id="l04287" name="l04287"></a><span class="lineno"> 4287</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: p</div>
+<div class="line"><a id="l04233" name="l04233"></a><span class="lineno"> 4233</span>    </div>
+<div class="line"><a id="l04234" name="l04234"></a><span class="lineno"> 4234</span>    <span class="keyword">module</span> subroutine cmtx_mult_mtx(opa, opb, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04235" name="l04235"></a><span class="lineno"> 4235</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opa, opb</div>
+<div class="line"><a id="l04236" name="l04236"></a><span class="lineno"> 4236</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04237" name="l04237"></a><span class="lineno"> 4237</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l04238" name="l04238"></a><span class="lineno"> 4238</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04239" name="l04239"></a><span class="lineno"> 4239</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04240" name="l04240"></a><span class="lineno"> 4240</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04241" name="l04241"></a><span class="lineno"> 4241</span> </div>
+<div class="line"><a id="l04242" name="l04242"></a><span class="lineno"> 4242</span>    <span class="keyword">module</span> subroutine cmtx_mult_vec(opa, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04243" name="l04243"></a><span class="lineno"> 4243</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opa</div>
+<div class="line"><a id="l04244" name="l04244"></a><span class="lineno"> 4244</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04245" name="l04245"></a><span class="lineno"> 4245</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04246" name="l04246"></a><span class="lineno"> 4246</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04247" name="l04247"></a><span class="lineno"> 4247</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04248" name="l04248"></a><span class="lineno"> 4248</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04249" name="l04249"></a><span class="lineno"> 4249</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04250" name="l04250"></a><span class="lineno"> 4250</span>    </div>
+<div class="line"><a id="l04251" name="l04251"></a><span class="lineno"> 4251</span>    <span class="keyword">module</span> subroutine rank1_update_dbl(alpha, x, y, a, err)</div>
+<div class="line"><a id="l04252" name="l04252"></a><span class="lineno"> 4252</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04253" name="l04253"></a><span class="lineno"> 4253</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l04254" name="l04254"></a><span class="lineno"> 4254</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04255" name="l04255"></a><span class="lineno"> 4255</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04256" name="l04256"></a><span class="lineno"> 4256</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04257" name="l04257"></a><span class="lineno"> 4257</span>    </div>
+<div class="line"><a id="l04258" name="l04258"></a><span class="lineno"> 4258</span>    <span class="keyword">module</span> subroutine rank1_update_cmplx(alpha, x, y, a, err)</div>
+<div class="line"><a id="l04259" name="l04259"></a><span class="lineno"> 4259</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04260" name="l04260"></a><span class="lineno"> 4260</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l04261" name="l04261"></a><span class="lineno"> 4261</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04262" name="l04262"></a><span class="lineno"> 4262</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04263" name="l04263"></a><span class="lineno"> 4263</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04264" name="l04264"></a><span class="lineno"> 4264</span>    </div>
+<div class="line"><a id="l04265" name="l04265"></a><span class="lineno"> 4265</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx(lside, trans, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04266" name="l04266"></a><span class="lineno"> 4266</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04267" name="l04267"></a><span class="lineno"> 4267</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
+<div class="line"><a id="l04268" name="l04268"></a><span class="lineno"> 4268</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04269" name="l04269"></a><span class="lineno"> 4269</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04270" name="l04270"></a><span class="lineno"> 4270</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04271" name="l04271"></a><span class="lineno"> 4271</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04272" name="l04272"></a><span class="lineno"> 4272</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04273" name="l04273"></a><span class="lineno"> 4273</span> </div>
+<div class="line"><a id="l04274" name="l04274"></a><span class="lineno"> 4274</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2(lside, alpha, a, b, err)</div>
+<div class="line"><a id="l04275" name="l04275"></a><span class="lineno"> 4275</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04276" name="l04276"></a><span class="lineno"> 4276</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04277" name="l04277"></a><span class="lineno"> 4277</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04278" name="l04278"></a><span class="lineno"> 4278</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04279" name="l04279"></a><span class="lineno"> 4279</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04280" name="l04280"></a><span class="lineno"> 4280</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04281" name="l04281"></a><span class="lineno"> 4281</span>    </div>
+<div class="line"><a id="l04282" name="l04282"></a><span class="lineno"> 4282</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx3(lside, trans, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04283" name="l04283"></a><span class="lineno"> 4283</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04284" name="l04284"></a><span class="lineno"> 4284</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
+<div class="line"><a id="l04285" name="l04285"></a><span class="lineno"> 4285</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04286" name="l04286"></a><span class="lineno"> 4286</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04287" name="l04287"></a><span class="lineno"> 4287</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
 <div class="line"><a id="l04288" name="l04288"></a><span class="lineno"> 4288</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04289" name="l04289"></a><span class="lineno"> 4289</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04290" name="l04290"></a><span class="lineno"> 4290</span>    </div>
-<div class="line"><a id="l04291" name="l04291"></a><span class="lineno"> 4291</span>    <span class="keyword">module</span> subroutine form_lu_only(lu, u, err)</div>
-<div class="line"><a id="l04292" name="l04292"></a><span class="lineno"> 4292</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
-<div class="line"><a id="l04293" name="l04293"></a><span class="lineno"> 4293</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
-<div class="line"><a id="l04294" name="l04294"></a><span class="lineno"> 4294</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04295" name="l04295"></a><span class="lineno"> 4295</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04296" name="l04296"></a><span class="lineno"> 4296</span>    </div>
-<div class="line"><a id="l04297" name="l04297"></a><span class="lineno"> 4297</span>    <span class="keyword">module</span> subroutine form_lu_only_cmplx(lu, u, err)</div>
-<div class="line"><a id="l04298" name="l04298"></a><span class="lineno"> 4298</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
-<div class="line"><a id="l04299" name="l04299"></a><span class="lineno"> 4299</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
-<div class="line"><a id="l04300" name="l04300"></a><span class="lineno"> 4300</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04301" name="l04301"></a><span class="lineno"> 4301</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04302" name="l04302"></a><span class="lineno"> 4302</span>    </div>
-<div class="line"><a id="l04303" name="l04303"></a><span class="lineno"> 4303</span>    <span class="keyword">module</span> subroutine qr_factor_no_pivot(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04304" name="l04304"></a><span class="lineno"> 4304</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04305" name="l04305"></a><span class="lineno"> 4305</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04306" name="l04306"></a><span class="lineno"> 4306</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04307" name="l04307"></a><span class="lineno"> 4307</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04291" name="l04291"></a><span class="lineno"> 4291</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx4(lside, opb, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04292" name="l04292"></a><span class="lineno"> 4292</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04293" name="l04293"></a><span class="lineno"> 4293</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
+<div class="line"><a id="l04294" name="l04294"></a><span class="lineno"> 4294</span><span class="keywordtype">        real</span>(real64) :: alpha, beta</div>
+<div class="line"><a id="l04295" name="l04295"></a><span class="lineno"> 4295</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04296" name="l04296"></a><span class="lineno"> 4296</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04297" name="l04297"></a><span class="lineno"> 4297</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04298" name="l04298"></a><span class="lineno"> 4298</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04299" name="l04299"></a><span class="lineno"> 4299</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04300" name="l04300"></a><span class="lineno"> 4300</span> </div>
+<div class="line"><a id="l04301" name="l04301"></a><span class="lineno"> 4301</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx_cmplx(lside, opb, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04302" name="l04302"></a><span class="lineno"> 4302</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04303" name="l04303"></a><span class="lineno"> 4303</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
+<div class="line"><a id="l04304" name="l04304"></a><span class="lineno"> 4304</span>        <span class="keywordtype">complex(real64)</span> :: alpha, beta</div>
+<div class="line"><a id="l04305" name="l04305"></a><span class="lineno"> 4305</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04306" name="l04306"></a><span class="lineno"> 4306</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04307" name="l04307"></a><span class="lineno"> 4307</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
 <div class="line"><a id="l04308" name="l04308"></a><span class="lineno"> 4308</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04309" name="l04309"></a><span class="lineno"> 4309</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04310" name="l04310"></a><span class="lineno"> 4310</span> </div>
-<div class="line"><a id="l04311" name="l04311"></a><span class="lineno"> 4311</span>    <span class="keyword">module</span> subroutine qr_factor_no_pivot_cmplx(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04312" name="l04312"></a><span class="lineno"> 4312</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04313" name="l04313"></a><span class="lineno"> 4313</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04314" name="l04314"></a><span class="lineno"> 4314</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04315" name="l04315"></a><span class="lineno"> 4315</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04311" name="l04311"></a><span class="lineno"> 4311</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2_cmplx(lside, alpha, a, b, err)</div>
+<div class="line"><a id="l04312" name="l04312"></a><span class="lineno"> 4312</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04313" name="l04313"></a><span class="lineno"> 4313</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04314" name="l04314"></a><span class="lineno"> 4314</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04315" name="l04315"></a><span class="lineno"> 4315</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
 <div class="line"><a id="l04316" name="l04316"></a><span class="lineno"> 4316</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04317" name="l04317"></a><span class="lineno"> 4317</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04318" name="l04318"></a><span class="lineno"> 4318</span>    </div>
-<div class="line"><a id="l04319" name="l04319"></a><span class="lineno"> 4319</span>    <span class="keyword">module</span> subroutine qr_factor_pivot(a, tau, jpvt, work, olwork, err)</div>
-<div class="line"><a id="l04320" name="l04320"></a><span class="lineno"> 4320</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04321" name="l04321"></a><span class="lineno"> 4321</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04322" name="l04322"></a><span class="lineno"> 4322</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04323" name="l04323"></a><span class="lineno"> 4323</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04324" name="l04324"></a><span class="lineno"> 4324</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04325" name="l04325"></a><span class="lineno"> 4325</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04326" name="l04326"></a><span class="lineno"> 4326</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04327" name="l04327"></a><span class="lineno"> 4327</span>    </div>
-<div class="line"><a id="l04328" name="l04328"></a><span class="lineno"> 4328</span>    <span class="keyword">module</span> subroutine qr_factor_pivot_cmplx(a, tau, jpvt, work, olwork, rwork, &amp;</div>
-<div class="line"><a id="l04329" name="l04329"></a><span class="lineno"> 4329</span>            err)</div>
-<div class="line"><a id="l04330" name="l04330"></a><span class="lineno"> 4330</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04331" name="l04331"></a><span class="lineno"> 4331</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04332" name="l04332"></a><span class="lineno"> 4332</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04333" name="l04333"></a><span class="lineno"> 4333</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04334" name="l04334"></a><span class="lineno"> 4334</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04335" name="l04335"></a><span class="lineno"> 4335</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: rwork</div>
-<div class="line"><a id="l04336" name="l04336"></a><span class="lineno"> 4336</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04337" name="l04337"></a><span class="lineno"> 4337</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04338" name="l04338"></a><span class="lineno"> 4338</span>    </div>
-<div class="line"><a id="l04339" name="l04339"></a><span class="lineno"> 4339</span>    <span class="keyword">module</span> subroutine form_qr_no_pivot(r, tau, q, work, olwork, err)</div>
-<div class="line"><a id="l04340" name="l04340"></a><span class="lineno"> 4340</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04341" name="l04341"></a><span class="lineno"> 4341</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04342" name="l04342"></a><span class="lineno"> 4342</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
-<div class="line"><a id="l04343" name="l04343"></a><span class="lineno"> 4343</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04344" name="l04344"></a><span class="lineno"> 4344</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04345" name="l04345"></a><span class="lineno"> 4345</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04346" name="l04346"></a><span class="lineno"> 4346</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04347" name="l04347"></a><span class="lineno"> 4347</span>    </div>
-<div class="line"><a id="l04348" name="l04348"></a><span class="lineno"> 4348</span>    <span class="keyword">module</span> subroutine form_qr_no_pivot_cmplx(r, tau, q, work, olwork, err)</div>
-<div class="line"><a id="l04349" name="l04349"></a><span class="lineno"> 4349</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04350" name="l04350"></a><span class="lineno"> 4350</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04351" name="l04351"></a><span class="lineno"> 4351</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
-<div class="line"><a id="l04352" name="l04352"></a><span class="lineno"> 4352</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04353" name="l04353"></a><span class="lineno"> 4353</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04354" name="l04354"></a><span class="lineno"> 4354</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04355" name="l04355"></a><span class="lineno"> 4355</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04356" name="l04356"></a><span class="lineno"> 4356</span>    </div>
-<div class="line"><a id="l04357" name="l04357"></a><span class="lineno"> 4357</span>    <span class="keyword">module</span> subroutine form_qr_pivot(r, tau, pvt, q, p, work, olwork, err)</div>
-<div class="line"><a id="l04358" name="l04358"></a><span class="lineno"> 4358</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04359" name="l04359"></a><span class="lineno"> 4359</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04360" name="l04360"></a><span class="lineno"> 4360</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: pvt</div>
-<div class="line"><a id="l04361" name="l04361"></a><span class="lineno"> 4361</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, p</div>
-<div class="line"><a id="l04362" name="l04362"></a><span class="lineno"> 4362</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04363" name="l04363"></a><span class="lineno"> 4363</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04364" name="l04364"></a><span class="lineno"> 4364</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04365" name="l04365"></a><span class="lineno"> 4365</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04366" name="l04366"></a><span class="lineno"> 4366</span> </div>
-<div class="line"><a id="l04367" name="l04367"></a><span class="lineno"> 4367</span>    <span class="keyword">module</span> subroutine form_qr_pivot_cmplx(r, tau, pvt, q, p, work, olwork, err)</div>
-<div class="line"><a id="l04368" name="l04368"></a><span class="lineno"> 4368</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04369" name="l04369"></a><span class="lineno"> 4369</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04370" name="l04370"></a><span class="lineno"> 4370</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: pvt</div>
-<div class="line"><a id="l04371" name="l04371"></a><span class="lineno"> 4371</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, p</div>
-<div class="line"><a id="l04372" name="l04372"></a><span class="lineno"> 4372</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04373" name="l04373"></a><span class="lineno"> 4373</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04374" name="l04374"></a><span class="lineno"> 4374</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04375" name="l04375"></a><span class="lineno"> 4375</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04376" name="l04376"></a><span class="lineno"> 4376</span>    </div>
-<div class="line"><a id="l04377" name="l04377"></a><span class="lineno"> 4377</span>    <span class="keyword">module</span> subroutine mult_qr_mtx(lside, trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04378" name="l04378"></a><span class="lineno"> 4378</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04379" name="l04379"></a><span class="lineno"> 4379</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04380" name="l04380"></a><span class="lineno"> 4380</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
-<div class="line"><a id="l04381" name="l04381"></a><span class="lineno"> 4381</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04382" name="l04382"></a><span class="lineno"> 4382</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04383" name="l04383"></a><span class="lineno"> 4383</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04384" name="l04384"></a><span class="lineno"> 4384</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04385" name="l04385"></a><span class="lineno"> 4385</span>    </div>
-<div class="line"><a id="l04386" name="l04386"></a><span class="lineno"> 4386</span>    <span class="keyword">module</span> subroutine mult_qr_mtx_cmplx(lside, trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04387" name="l04387"></a><span class="lineno"> 4387</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04388" name="l04388"></a><span class="lineno"> 4388</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04389" name="l04389"></a><span class="lineno"> 4389</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
-<div class="line"><a id="l04390" name="l04390"></a><span class="lineno"> 4390</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04391" name="l04391"></a><span class="lineno"> 4391</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04392" name="l04392"></a><span class="lineno"> 4392</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04393" name="l04393"></a><span class="lineno"> 4393</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04394" name="l04394"></a><span class="lineno"> 4394</span>    </div>
-<div class="line"><a id="l04395" name="l04395"></a><span class="lineno"> 4395</span>    <span class="keyword">module</span> subroutine mult_qr_vec(trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04396" name="l04396"></a><span class="lineno"> 4396</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04397" name="l04397"></a><span class="lineno"> 4397</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04398" name="l04398"></a><span class="lineno"> 4398</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04399" name="l04399"></a><span class="lineno"> 4399</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04400" name="l04400"></a><span class="lineno"> 4400</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04401" name="l04401"></a><span class="lineno"> 4401</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04402" name="l04402"></a><span class="lineno"> 4402</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04403" name="l04403"></a><span class="lineno"> 4403</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04404" name="l04404"></a><span class="lineno"> 4404</span>    </div>
-<div class="line"><a id="l04405" name="l04405"></a><span class="lineno"> 4405</span>    <span class="keyword">module</span> subroutine mult_qr_vec_cmplx(trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04406" name="l04406"></a><span class="lineno"> 4406</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04407" name="l04407"></a><span class="lineno"> 4407</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04408" name="l04408"></a><span class="lineno"> 4408</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04409" name="l04409"></a><span class="lineno"> 4409</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04410" name="l04410"></a><span class="lineno"> 4410</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04411" name="l04411"></a><span class="lineno"> 4411</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04412" name="l04412"></a><span class="lineno"> 4412</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04413" name="l04413"></a><span class="lineno"> 4413</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04414" name="l04414"></a><span class="lineno"> 4414</span>    </div>
-<div class="line"><a id="l04415" name="l04415"></a><span class="lineno"> 4415</span>    <span class="keyword">module</span> subroutine qr_rank1_update_dbl(q, r, u, v, work, err)</div>
-<div class="line"><a id="l04416" name="l04416"></a><span class="lineno"> 4416</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, r</div>
-<div class="line"><a id="l04417" name="l04417"></a><span class="lineno"> 4417</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u, v</div>
-<div class="line"><a id="l04418" name="l04418"></a><span class="lineno"> 4418</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04419" name="l04419"></a><span class="lineno"> 4419</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04420" name="l04420"></a><span class="lineno"> 4420</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04421" name="l04421"></a><span class="lineno"> 4421</span>    </div>
-<div class="line"><a id="l04422" name="l04422"></a><span class="lineno"> 4422</span>    <span class="keyword">module</span> subroutine qr_rank1_update_cmplx(q, r, u, v, work, rwork, err)</div>
-<div class="line"><a id="l04423" name="l04423"></a><span class="lineno"> 4423</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, r</div>
-<div class="line"><a id="l04424" name="l04424"></a><span class="lineno"> 4424</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u, v</div>
-<div class="line"><a id="l04425" name="l04425"></a><span class="lineno"> 4425</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04426" name="l04426"></a><span class="lineno"> 4426</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l04319" name="l04319"></a><span class="lineno"> 4319</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx_mix(lside, opb, alpha, a, b, beta, c, err)</div>
+<div class="line"><a id="l04320" name="l04320"></a><span class="lineno"> 4320</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04321" name="l04321"></a><span class="lineno"> 4321</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: opb</div>
+<div class="line"><a id="l04322" name="l04322"></a><span class="lineno"> 4322</span>        <span class="keywordtype">complex(real64)</span> :: alpha, beta</div>
+<div class="line"><a id="l04323" name="l04323"></a><span class="lineno"> 4323</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04324" name="l04324"></a><span class="lineno"> 4324</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04325" name="l04325"></a><span class="lineno"> 4325</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04326" name="l04326"></a><span class="lineno"> 4326</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04327" name="l04327"></a><span class="lineno"> 4327</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04328" name="l04328"></a><span class="lineno"> 4328</span>    </div>
+<div class="line"><a id="l04329" name="l04329"></a><span class="lineno"> 4329</span>    <span class="keyword">module</span> subroutine diag_mtx_mult_mtx2_mix(lside, alpha, a, b, err)</div>
+<div class="line"><a id="l04330" name="l04330"></a><span class="lineno"> 4330</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04331" name="l04331"></a><span class="lineno"> 4331</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04332" name="l04332"></a><span class="lineno"> 4332</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04333" name="l04333"></a><span class="lineno"> 4333</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04334" name="l04334"></a><span class="lineno"> 4334</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04335" name="l04335"></a><span class="lineno"> 4335</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04336" name="l04336"></a><span class="lineno"> 4336</span> </div>
+<div class="line"><a id="l04337" name="l04337"></a><span class="lineno"> 4337</span>    <span class="keyword">module</span> subroutine diag_mtx_sparse_mult(lside, alpha, a, b, err)</div>
+<div class="line"><a id="l04338" name="l04338"></a><span class="lineno"> 4338</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l04339" name="l04339"></a><span class="lineno"> 4339</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04340" name="l04340"></a><span class="lineno"> 4340</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l04341" name="l04341"></a><span class="lineno"> 4341</span>        <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(inout)</span> :: b</div>
+<div class="line"><a id="l04342" name="l04342"></a><span class="lineno"> 4342</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04343" name="l04343"></a><span class="lineno"> 4343</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04344" name="l04344"></a><span class="lineno"> 4344</span>    </div>
+<div class="line"><a id="l04345" name="l04345"></a><span class="lineno"> 4345</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_dbl(x) result(y)</div>
+<div class="line"><a id="l04346" name="l04346"></a><span class="lineno"> 4346</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04347" name="l04347"></a><span class="lineno"> 4347</span><span class="keywordtype">        real</span>(real64) :: y</div>
+<div class="line"><a id="l04348" name="l04348"></a><span class="lineno"> 4348</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04349" name="l04349"></a><span class="lineno"> 4349</span>    </div>
+<div class="line"><a id="l04350" name="l04350"></a><span class="lineno"> 4350</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_cmplx(x) result(y)</div>
+<div class="line"><a id="l04351" name="l04351"></a><span class="lineno"> 4351</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04352" name="l04352"></a><span class="lineno"> 4352</span>        <span class="keywordtype">complex(real64)</span> :: y</div>
+<div class="line"><a id="l04353" name="l04353"></a><span class="lineno"> 4353</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04354" name="l04354"></a><span class="lineno"> 4354</span>    </div>
+<div class="line"><a id="l04355" name="l04355"></a><span class="lineno"> 4355</span>    <span class="keyword">module</span> function mtx_rank_dbl(a, tol, work, olwork, err) result(rnk)</div>
+<div class="line"><a id="l04356" name="l04356"></a><span class="lineno"> 4356</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04357" name="l04357"></a><span class="lineno"> 4357</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l04358" name="l04358"></a><span class="lineno"> 4358</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04359" name="l04359"></a><span class="lineno"> 4359</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04360" name="l04360"></a><span class="lineno"> 4360</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04361" name="l04361"></a><span class="lineno"> 4361</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
+<div class="line"><a id="l04362" name="l04362"></a><span class="lineno"> 4362</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04363" name="l04363"></a><span class="lineno"> 4363</span> </div>
+<div class="line"><a id="l04364" name="l04364"></a><span class="lineno"> 4364</span>    <span class="keyword">module</span> function mtx_rank_cmplx(a, tol, work, olwork, rwork, err) result(rnk)</div>
+<div class="line"><a id="l04365" name="l04365"></a><span class="lineno"> 4365</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04366" name="l04366"></a><span class="lineno"> 4366</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l04367" name="l04367"></a><span class="lineno"> 4367</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04368" name="l04368"></a><span class="lineno"> 4368</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04369" name="l04369"></a><span class="lineno"> 4369</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l04370" name="l04370"></a><span class="lineno"> 4370</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04371" name="l04371"></a><span class="lineno"> 4371</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
+<div class="line"><a id="l04372" name="l04372"></a><span class="lineno"> 4372</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04373" name="l04373"></a><span class="lineno"> 4373</span>    </div>
+<div class="line"><a id="l04374" name="l04374"></a><span class="lineno"> 4374</span>    <span class="keyword">module</span> function det_dbl(a, iwork, err) result(x)</div>
+<div class="line"><a id="l04375" name="l04375"></a><span class="lineno"> 4375</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04376" name="l04376"></a><span class="lineno"> 4376</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l04377" name="l04377"></a><span class="lineno"> 4377</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04378" name="l04378"></a><span class="lineno"> 4378</span><span class="keywordtype">        real</span>(real64) :: x</div>
+<div class="line"><a id="l04379" name="l04379"></a><span class="lineno"> 4379</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04380" name="l04380"></a><span class="lineno"> 4380</span>    </div>
+<div class="line"><a id="l04381" name="l04381"></a><span class="lineno"> 4381</span>    <span class="keyword">module</span> function det_cmplx(a, iwork, err) result(x)</div>
+<div class="line"><a id="l04382" name="l04382"></a><span class="lineno"> 4382</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04383" name="l04383"></a><span class="lineno"> 4383</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l04384" name="l04384"></a><span class="lineno"> 4384</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04385" name="l04385"></a><span class="lineno"> 4385</span>        <span class="keywordtype">complex(real64)</span> :: x</div>
+<div class="line"><a id="l04386" name="l04386"></a><span class="lineno"> 4386</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l04387" name="l04387"></a><span class="lineno"> 4387</span>    </div>
+<div class="line"><a id="l04388" name="l04388"></a><span class="lineno"> 4388</span>    <span class="keyword">module</span> subroutine swap_dbl(x, y, err)</div>
+<div class="line"><a id="l04389" name="l04389"></a><span class="lineno"> 4389</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l04390" name="l04390"></a><span class="lineno"> 4390</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04391" name="l04391"></a><span class="lineno"> 4391</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04392" name="l04392"></a><span class="lineno"> 4392</span>    </div>
+<div class="line"><a id="l04393" name="l04393"></a><span class="lineno"> 4393</span>    <span class="keyword">module</span> subroutine swap_cmplx(x, y, err)</div>
+<div class="line"><a id="l04394" name="l04394"></a><span class="lineno"> 4394</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l04395" name="l04395"></a><span class="lineno"> 4395</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04396" name="l04396"></a><span class="lineno"> 4396</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04397" name="l04397"></a><span class="lineno"> 4397</span>    </div>
+<div class="line"><a id="l04398" name="l04398"></a><span class="lineno"> 4398</span>    <span class="keyword">module</span> subroutine recip_mult_array_dbl(a, x)</div>
+<div class="line"><a id="l04399" name="l04399"></a><span class="lineno"> 4399</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l04400" name="l04400"></a><span class="lineno"> 4400</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l04401" name="l04401"></a><span class="lineno"> 4401</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04402" name="l04402"></a><span class="lineno"> 4402</span>    </div>
+<div class="line"><a id="l04403" name="l04403"></a><span class="lineno"> 4403</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_dbl(upper, alpha, a, beta, b, err)</div>
+<div class="line"><a id="l04404" name="l04404"></a><span class="lineno"> 4404</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l04405" name="l04405"></a><span class="lineno"> 4405</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04406" name="l04406"></a><span class="lineno"> 4406</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04407" name="l04407"></a><span class="lineno"> 4407</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04408" name="l04408"></a><span class="lineno"> 4408</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04409" name="l04409"></a><span class="lineno"> 4409</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04410" name="l04410"></a><span class="lineno"> 4410</span> </div>
+<div class="line"><a id="l04411" name="l04411"></a><span class="lineno"> 4411</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_cmplx(upper, alpha, a, beta, b, err)</div>
+<div class="line"><a id="l04412" name="l04412"></a><span class="lineno"> 4412</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l04413" name="l04413"></a><span class="lineno"> 4413</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04414" name="l04414"></a><span class="lineno"> 4414</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04415" name="l04415"></a><span class="lineno"> 4415</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04416" name="l04416"></a><span class="lineno"> 4416</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04417" name="l04417"></a><span class="lineno"> 4417</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04418" name="l04418"></a><span class="lineno"> 4418</span> </div>
+<div class="line"><a id="l04419" name="l04419"></a><span class="lineno"> 4419</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_dbl(trans, kl, ku, alpha, a, x, beta, &amp;</div>
+<div class="line"><a id="l04420" name="l04420"></a><span class="lineno"> 4420</span>        y, err)</div>
+<div class="line"><a id="l04421" name="l04421"></a><span class="lineno"> 4421</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04422" name="l04422"></a><span class="lineno"> 4422</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04423" name="l04423"></a><span class="lineno"> 4423</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04424" name="l04424"></a><span class="lineno"> 4424</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04425" name="l04425"></a><span class="lineno"> 4425</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l04426" name="l04426"></a><span class="lineno"> 4426</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
 <div class="line"><a id="l04427" name="l04427"></a><span class="lineno"> 4427</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04428" name="l04428"></a><span class="lineno"> 4428</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04429" name="l04429"></a><span class="lineno"> 4429</span>    </div>
-<div class="line"><a id="l04430" name="l04430"></a><span class="lineno"> 4430</span>    <span class="keyword">module</span> subroutine cholesky_factor_dbl(a, upper, err)</div>
-<div class="line"><a id="l04431" name="l04431"></a><span class="lineno"> 4431</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04432" name="l04432"></a><span class="lineno"> 4432</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: upper</div>
-<div class="line"><a id="l04433" name="l04433"></a><span class="lineno"> 4433</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04434" name="l04434"></a><span class="lineno"> 4434</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04435" name="l04435"></a><span class="lineno"> 4435</span>    </div>
-<div class="line"><a id="l04436" name="l04436"></a><span class="lineno"> 4436</span>    <span class="keyword">module</span> subroutine cholesky_factor_cmplx(a, upper, err)</div>
-<div class="line"><a id="l04437" name="l04437"></a><span class="lineno"> 4437</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04438" name="l04438"></a><span class="lineno"> 4438</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: upper</div>
-<div class="line"><a id="l04439" name="l04439"></a><span class="lineno"> 4439</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04440" name="l04440"></a><span class="lineno"> 4440</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04441" name="l04441"></a><span class="lineno"> 4441</span> </div>
-<div class="line"><a id="l04442" name="l04442"></a><span class="lineno"> 4442</span>    <span class="keyword">module</span> subroutine cholesky_rank1_update_dbl(r, u, work, err)</div>
-<div class="line"><a id="l04443" name="l04443"></a><span class="lineno"> 4443</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04444" name="l04444"></a><span class="lineno"> 4444</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
-<div class="line"><a id="l04445" name="l04445"></a><span class="lineno"> 4445</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04446" name="l04446"></a><span class="lineno"> 4446</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04447" name="l04447"></a><span class="lineno"> 4447</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04448" name="l04448"></a><span class="lineno"> 4448</span>    </div>
-<div class="line"><a id="l04449" name="l04449"></a><span class="lineno"> 4449</span>    <span class="keyword">module</span> subroutine cholesky_rank1_update_cmplx(r, u, work, err)</div>
-<div class="line"><a id="l04450" name="l04450"></a><span class="lineno"> 4450</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04451" name="l04451"></a><span class="lineno"> 4451</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
-<div class="line"><a id="l04452" name="l04452"></a><span class="lineno"> 4452</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04453" name="l04453"></a><span class="lineno"> 4453</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04454" name="l04454"></a><span class="lineno"> 4454</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04455" name="l04455"></a><span class="lineno"> 4455</span>    </div>
-<div class="line"><a id="l04456" name="l04456"></a><span class="lineno"> 4456</span>    <span class="keyword">module</span> subroutine cholesky_rank1_downdate_dbl(r, u, work, err)</div>
-<div class="line"><a id="l04457" name="l04457"></a><span class="lineno"> 4457</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04458" name="l04458"></a><span class="lineno"> 4458</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
-<div class="line"><a id="l04459" name="l04459"></a><span class="lineno"> 4459</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04460" name="l04460"></a><span class="lineno"> 4460</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04461" name="l04461"></a><span class="lineno"> 4461</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04462" name="l04462"></a><span class="lineno"> 4462</span>    </div>
-<div class="line"><a id="l04463" name="l04463"></a><span class="lineno"> 4463</span>    <span class="keyword">module</span> subroutine cholesky_rank1_downdate_cmplx(r, u, work, err)</div>
-<div class="line"><a id="l04464" name="l04464"></a><span class="lineno"> 4464</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
-<div class="line"><a id="l04465" name="l04465"></a><span class="lineno"> 4465</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
-<div class="line"><a id="l04466" name="l04466"></a><span class="lineno"> 4466</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04467" name="l04467"></a><span class="lineno"> 4467</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04468" name="l04468"></a><span class="lineno"> 4468</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04469" name="l04469"></a><span class="lineno"> 4469</span>    </div>
-<div class="line"><a id="l04470" name="l04470"></a><span class="lineno"> 4470</span>    <span class="keyword">module</span> subroutine rz_factor_dbl(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04471" name="l04471"></a><span class="lineno"> 4471</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04472" name="l04472"></a><span class="lineno"> 4472</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04473" name="l04473"></a><span class="lineno"> 4473</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04474" name="l04474"></a><span class="lineno"> 4474</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04475" name="l04475"></a><span class="lineno"> 4475</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04476" name="l04476"></a><span class="lineno"> 4476</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04477" name="l04477"></a><span class="lineno"> 4477</span>    </div>
-<div class="line"><a id="l04478" name="l04478"></a><span class="lineno"> 4478</span>    <span class="keyword">module</span> subroutine rz_factor_cmplx(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04479" name="l04479"></a><span class="lineno"> 4479</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04480" name="l04480"></a><span class="lineno"> 4480</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04481" name="l04481"></a><span class="lineno"> 4481</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04482" name="l04482"></a><span class="lineno"> 4482</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04483" name="l04483"></a><span class="lineno"> 4483</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04484" name="l04484"></a><span class="lineno"> 4484</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04485" name="l04485"></a><span class="lineno"> 4485</span>    </div>
-<div class="line"><a id="l04486" name="l04486"></a><span class="lineno"> 4486</span>    <span class="keyword">module</span> subroutine mult_rz_mtx(lside, trans, l, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04487" name="l04487"></a><span class="lineno"> 4487</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04488" name="l04488"></a><span class="lineno"> 4488</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
-<div class="line"><a id="l04489" name="l04489"></a><span class="lineno"> 4489</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
-<div class="line"><a id="l04490" name="l04490"></a><span class="lineno"> 4490</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04491" name="l04491"></a><span class="lineno"> 4491</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04492" name="l04492"></a><span class="lineno"> 4492</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04493" name="l04493"></a><span class="lineno"> 4493</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04494" name="l04494"></a><span class="lineno"> 4494</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04495" name="l04495"></a><span class="lineno"> 4495</span>    </div>
-<div class="line"><a id="l04496" name="l04496"></a><span class="lineno"> 4496</span>    <span class="keyword">module</span> subroutine mult_rz_mtx_cmplx(lside, trans, l, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04497" name="l04497"></a><span class="lineno"> 4497</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04498" name="l04498"></a><span class="lineno"> 4498</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
-<div class="line"><a id="l04499" name="l04499"></a><span class="lineno"> 4499</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
-<div class="line"><a id="l04500" name="l04500"></a><span class="lineno"> 4500</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04501" name="l04501"></a><span class="lineno"> 4501</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04502" name="l04502"></a><span class="lineno"> 4502</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04503" name="l04503"></a><span class="lineno"> 4503</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04504" name="l04504"></a><span class="lineno"> 4504</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04505" name="l04505"></a><span class="lineno"> 4505</span>    </div>
-<div class="line"><a id="l04506" name="l04506"></a><span class="lineno"> 4506</span>    <span class="keyword">module</span> subroutine mult_rz_vec(trans, l, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04507" name="l04507"></a><span class="lineno"> 4507</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04508" name="l04508"></a><span class="lineno"> 4508</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
-<div class="line"><a id="l04509" name="l04509"></a><span class="lineno"> 4509</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04510" name="l04510"></a><span class="lineno"> 4510</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04511" name="l04511"></a><span class="lineno"> 4511</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04512" name="l04512"></a><span class="lineno"> 4512</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04513" name="l04513"></a><span class="lineno"> 4513</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04514" name="l04514"></a><span class="lineno"> 4514</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04515" name="l04515"></a><span class="lineno"> 4515</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04516" name="l04516"></a><span class="lineno"> 4516</span>    </div>
-<div class="line"><a id="l04517" name="l04517"></a><span class="lineno"> 4517</span>    <span class="keyword">module</span> subroutine mult_rz_vec_cmplx(trans, l, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04518" name="l04518"></a><span class="lineno"> 4518</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04519" name="l04519"></a><span class="lineno"> 4519</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
-<div class="line"><a id="l04520" name="l04520"></a><span class="lineno"> 4520</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04521" name="l04521"></a><span class="lineno"> 4521</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04522" name="l04522"></a><span class="lineno"> 4522</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04523" name="l04523"></a><span class="lineno"> 4523</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04524" name="l04524"></a><span class="lineno"> 4524</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04525" name="l04525"></a><span class="lineno"> 4525</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04526" name="l04526"></a><span class="lineno"> 4526</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04527" name="l04527"></a><span class="lineno"> 4527</span>    </div>
-<div class="line"><a id="l04528" name="l04528"></a><span class="lineno"> 4528</span>    <span class="keyword">module</span> subroutine svd_dbl(a, s, u, vt, work, olwork, err)</div>
-<div class="line"><a id="l04529" name="l04529"></a><span class="lineno"> 4529</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04530" name="l04530"></a><span class="lineno"> 4530</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: s</div>
-<div class="line"><a id="l04531" name="l04531"></a><span class="lineno"> 4531</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: u, vt</div>
-<div class="line"><a id="l04532" name="l04532"></a><span class="lineno"> 4532</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04533" name="l04533"></a><span class="lineno"> 4533</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04534" name="l04534"></a><span class="lineno"> 4534</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04535" name="l04535"></a><span class="lineno"> 4535</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04536" name="l04536"></a><span class="lineno"> 4536</span>    </div>
-<div class="line"><a id="l04537" name="l04537"></a><span class="lineno"> 4537</span>    <span class="keyword">module</span> subroutine svd_cmplx(a, s, u, vt, work, olwork, rwork, err)</div>
-<div class="line"><a id="l04538" name="l04538"></a><span class="lineno"> 4538</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04539" name="l04539"></a><span class="lineno"> 4539</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: s</div>
-<div class="line"><a id="l04540" name="l04540"></a><span class="lineno"> 4540</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: u, vt</div>
-<div class="line"><a id="l04541" name="l04541"></a><span class="lineno"> 4541</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04542" name="l04542"></a><span class="lineno"> 4542</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04543" name="l04543"></a><span class="lineno"> 4543</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l04429" name="l04429"></a><span class="lineno"> 4429</span> </div>
+<div class="line"><a id="l04430" name="l04430"></a><span class="lineno"> 4430</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_cmplx(trans, kl, ku, alpha, a, x, &amp;</div>
+<div class="line"><a id="l04431" name="l04431"></a><span class="lineno"> 4431</span>        beta, y, err)</div>
+<div class="line"><a id="l04432" name="l04432"></a><span class="lineno"> 4432</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04433" name="l04433"></a><span class="lineno"> 4433</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04434" name="l04434"></a><span class="lineno"> 4434</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l04435" name="l04435"></a><span class="lineno"> 4435</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04436" name="l04436"></a><span class="lineno"> 4436</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l04437" name="l04437"></a><span class="lineno"> 4437</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
+<div class="line"><a id="l04438" name="l04438"></a><span class="lineno"> 4438</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04439" name="l04439"></a><span class="lineno"> 4439</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04440" name="l04440"></a><span class="lineno"> 4440</span> </div>
+<div class="line"><a id="l04441" name="l04441"></a><span class="lineno"> 4441</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_dbl(kl, ku, b, f, err)</div>
+<div class="line"><a id="l04442" name="l04442"></a><span class="lineno"> 4442</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04443" name="l04443"></a><span class="lineno"> 4443</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04444" name="l04444"></a><span class="lineno"> 4444</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
+<div class="line"><a id="l04445" name="l04445"></a><span class="lineno"> 4445</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04446" name="l04446"></a><span class="lineno"> 4446</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04447" name="l04447"></a><span class="lineno"> 4447</span> </div>
+<div class="line"><a id="l04448" name="l04448"></a><span class="lineno"> 4448</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_cmplx(kl, ku, b, f, err)</div>
+<div class="line"><a id="l04449" name="l04449"></a><span class="lineno"> 4449</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04450" name="l04450"></a><span class="lineno"> 4450</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04451" name="l04451"></a><span class="lineno"> 4451</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
+<div class="line"><a id="l04452" name="l04452"></a><span class="lineno"> 4452</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04453" name="l04453"></a><span class="lineno"> 4453</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04454" name="l04454"></a><span class="lineno"> 4454</span> </div>
+<div class="line"><a id="l04455" name="l04455"></a><span class="lineno"> 4455</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_dbl(left, m, kl, ku, alpha, a, b, err)</div>
+<div class="line"><a id="l04456" name="l04456"></a><span class="lineno"> 4456</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
+<div class="line"><a id="l04457" name="l04457"></a><span class="lineno"> 4457</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l04458" name="l04458"></a><span class="lineno"> 4458</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04459" name="l04459"></a><span class="lineno"> 4459</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04460" name="l04460"></a><span class="lineno"> 4460</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04461" name="l04461"></a><span class="lineno"> 4461</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04462" name="l04462"></a><span class="lineno"> 4462</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04463" name="l04463"></a><span class="lineno"> 4463</span> </div>
+<div class="line"><a id="l04464" name="l04464"></a><span class="lineno"> 4464</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_cmplx(left, m, kl, ku, alpha, a, b, err)</div>
+<div class="line"><a id="l04465" name="l04465"></a><span class="lineno"> 4465</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
+<div class="line"><a id="l04466" name="l04466"></a><span class="lineno"> 4466</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l04467" name="l04467"></a><span class="lineno"> 4467</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04468" name="l04468"></a><span class="lineno"> 4468</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04469" name="l04469"></a><span class="lineno"> 4469</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04470" name="l04470"></a><span class="lineno"> 4470</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04471" name="l04471"></a><span class="lineno"> 4471</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04472" name="l04472"></a><span class="lineno"> 4472</span> </div>
+<div class="line"><a id="l04473" name="l04473"></a><span class="lineno"> 4473</span>    <span class="keyword">module</span> subroutine banded_to_dense_dbl(m, kl, ku, a, x, err)</div>
+<div class="line"><a id="l04474" name="l04474"></a><span class="lineno"> 4474</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l04475" name="l04475"></a><span class="lineno"> 4475</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04476" name="l04476"></a><span class="lineno"> 4476</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04477" name="l04477"></a><span class="lineno"> 4477</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04478" name="l04478"></a><span class="lineno"> 4478</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04479" name="l04479"></a><span class="lineno"> 4479</span> </div>
+<div class="line"><a id="l04480" name="l04480"></a><span class="lineno"> 4480</span>    <span class="keyword">module</span> subroutine banded_to_dense_cmplx(m, kl, ku, a, x, err)</div>
+<div class="line"><a id="l04481" name="l04481"></a><span class="lineno"> 4481</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l04482" name="l04482"></a><span class="lineno"> 4482</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04483" name="l04483"></a><span class="lineno"> 4483</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04484" name="l04484"></a><span class="lineno"> 4484</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04485" name="l04485"></a><span class="lineno"> 4485</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04486" name="l04486"></a><span class="lineno"> 4486</span> </div>
+<div class="line"><a id="l04487" name="l04487"></a><span class="lineno"> 4487</span>    <span class="keyword">module</span> subroutine dense_to_banded_dbl(a, kl, ku, x, err)</div>
+<div class="line"><a id="l04488" name="l04488"></a><span class="lineno"> 4488</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04489" name="l04489"></a><span class="lineno"> 4489</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04490" name="l04490"></a><span class="lineno"> 4490</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04491" name="l04491"></a><span class="lineno"> 4491</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04492" name="l04492"></a><span class="lineno"> 4492</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04493" name="l04493"></a><span class="lineno"> 4493</span> </div>
+<div class="line"><a id="l04494" name="l04494"></a><span class="lineno"> 4494</span>    <span class="keyword">module</span> subroutine dense_to_banded_cmplx(a, kl, ku, x, err)</div>
+<div class="line"><a id="l04495" name="l04495"></a><span class="lineno"> 4495</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04496" name="l04496"></a><span class="lineno"> 4496</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l04497" name="l04497"></a><span class="lineno"> 4497</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l04498" name="l04498"></a><span class="lineno"> 4498</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04499" name="l04499"></a><span class="lineno"> 4499</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04500" name="l04500"></a><span class="lineno"> 4500</span> </div>
+<div class="line"><a id="l04501" name="l04501"></a><span class="lineno"> 4501</span>    <span class="keyword">module</span> subroutine extract_diagonal_dbl(a, diag, err)</div>
+<div class="line"><a id="l04502" name="l04502"></a><span class="lineno"> 4502</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l04503" name="l04503"></a><span class="lineno"> 4503</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04504" name="l04504"></a><span class="lineno"> 4504</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l04505" name="l04505"></a><span class="lineno"> 4505</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04506" name="l04506"></a><span class="lineno"> 4506</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04507" name="l04507"></a><span class="lineno"> 4507</span> </div>
+<div class="line"><a id="l04508" name="l04508"></a><span class="lineno"> 4508</span>    <span class="keyword">module</span> subroutine extract_diagonal_cmplx(a, diag, err)</div>
+<div class="line"><a id="l04509" name="l04509"></a><span class="lineno"> 4509</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l04510" name="l04510"></a><span class="lineno"> 4510</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04511" name="l04511"></a><span class="lineno"> 4511</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l04512" name="l04512"></a><span class="lineno"> 4512</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04513" name="l04513"></a><span class="lineno"> 4513</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04514" name="l04514"></a><span class="lineno"> 4514</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04515" name="l04515"></a><span class="lineno"> 4515</span> </div>
+<div class="line"><a id="l04516" name="l04516"></a><span class="lineno"> 4516</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l04517" name="l04517"></a><span class="lineno"> 4517</span><span class="comment">! LINALG_FACTOR.F90</span></div>
+<div class="line"><a id="l04518" name="l04518"></a><span class="lineno"> 4518</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l04519" name="l04519"></a><span class="lineno"> 4519</span><span class="keyword">interface</span></div>
+<div class="line"><a id="l04520" name="l04520"></a><span class="lineno"> 4520</span>    <span class="keyword">module</span> subroutine lu_factor_dbl(a, ipvt, err)</div>
+<div class="line"><a id="l04521" name="l04521"></a><span class="lineno"> 4521</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04522" name="l04522"></a><span class="lineno"> 4522</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04523" name="l04523"></a><span class="lineno"> 4523</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04524" name="l04524"></a><span class="lineno"> 4524</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04525" name="l04525"></a><span class="lineno"> 4525</span>    </div>
+<div class="line"><a id="l04526" name="l04526"></a><span class="lineno"> 4526</span>    <span class="keyword">module</span> subroutine lu_factor_cmplx(a, ipvt, err)</div>
+<div class="line"><a id="l04527" name="l04527"></a><span class="lineno"> 4527</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04528" name="l04528"></a><span class="lineno"> 4528</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04529" name="l04529"></a><span class="lineno"> 4529</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04530" name="l04530"></a><span class="lineno"> 4530</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04531" name="l04531"></a><span class="lineno"> 4531</span> </div>
+<div class="line"><a id="l04532" name="l04532"></a><span class="lineno"> 4532</span>    <span class="keyword">module</span> subroutine form_lu_all(lu, ipvt, u, p, err)</div>
+<div class="line"><a id="l04533" name="l04533"></a><span class="lineno"> 4533</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
+<div class="line"><a id="l04534" name="l04534"></a><span class="lineno"> 4534</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04535" name="l04535"></a><span class="lineno"> 4535</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u, p</div>
+<div class="line"><a id="l04536" name="l04536"></a><span class="lineno"> 4536</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04537" name="l04537"></a><span class="lineno"> 4537</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04538" name="l04538"></a><span class="lineno"> 4538</span>    </div>
+<div class="line"><a id="l04539" name="l04539"></a><span class="lineno"> 4539</span>    <span class="keyword">module</span> subroutine form_lu_all_cmplx(lu, ipvt, u, p, err)</div>
+<div class="line"><a id="l04540" name="l04540"></a><span class="lineno"> 4540</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
+<div class="line"><a id="l04541" name="l04541"></a><span class="lineno"> 4541</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04542" name="l04542"></a><span class="lineno"> 4542</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
+<div class="line"><a id="l04543" name="l04543"></a><span class="lineno"> 4543</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: p</div>
 <div class="line"><a id="l04544" name="l04544"></a><span class="lineno"> 4544</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04545" name="l04545"></a><span class="lineno"> 4545</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04546" name="l04546"></a><span class="lineno"> 4546</span> </div>
-<div class="line"><a id="l04547" name="l04547"></a><span class="lineno"> 4547</span>    <span class="keyword">module</span> subroutine lq_factor_no_pivot(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04548" name="l04548"></a><span class="lineno"> 4548</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04549" name="l04549"></a><span class="lineno"> 4549</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04550" name="l04550"></a><span class="lineno"> 4550</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04551" name="l04551"></a><span class="lineno"> 4551</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04552" name="l04552"></a><span class="lineno"> 4552</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04553" name="l04553"></a><span class="lineno"> 4553</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04554" name="l04554"></a><span class="lineno"> 4554</span> </div>
-<div class="line"><a id="l04555" name="l04555"></a><span class="lineno"> 4555</span>    <span class="keyword">module</span> subroutine lq_factor_no_pivot_cmplx(a, tau, work, olwork, err)</div>
-<div class="line"><a id="l04556" name="l04556"></a><span class="lineno"> 4556</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04557" name="l04557"></a><span class="lineno"> 4557</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04558" name="l04558"></a><span class="lineno"> 4558</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04559" name="l04559"></a><span class="lineno"> 4559</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04560" name="l04560"></a><span class="lineno"> 4560</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04561" name="l04561"></a><span class="lineno"> 4561</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04562" name="l04562"></a><span class="lineno"> 4562</span> </div>
-<div class="line"><a id="l04563" name="l04563"></a><span class="lineno"> 4563</span>    <span class="keyword">module</span> subroutine form_lq_no_pivot(l, tau, q, work, olwork, err)</div>
-<div class="line"><a id="l04564" name="l04564"></a><span class="lineno"> 4564</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: l</div>
-<div class="line"><a id="l04565" name="l04565"></a><span class="lineno"> 4565</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04566" name="l04566"></a><span class="lineno"> 4566</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
-<div class="line"><a id="l04567" name="l04567"></a><span class="lineno"> 4567</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04568" name="l04568"></a><span class="lineno"> 4568</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04569" name="l04569"></a><span class="lineno"> 4569</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04570" name="l04570"></a><span class="lineno"> 4570</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04571" name="l04571"></a><span class="lineno"> 4571</span> </div>
-<div class="line"><a id="l04572" name="l04572"></a><span class="lineno"> 4572</span>    <span class="keyword">module</span> subroutine form_lq_no_pivot_cmplx(l, tau, q, work, olwork, err)</div>
-<div class="line"><a id="l04573" name="l04573"></a><span class="lineno"> 4573</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: l</div>
-<div class="line"><a id="l04574" name="l04574"></a><span class="lineno"> 4574</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04575" name="l04575"></a><span class="lineno"> 4575</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
-<div class="line"><a id="l04576" name="l04576"></a><span class="lineno"> 4576</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04577" name="l04577"></a><span class="lineno"> 4577</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04578" name="l04578"></a><span class="lineno"> 4578</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04579" name="l04579"></a><span class="lineno"> 4579</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04580" name="l04580"></a><span class="lineno"> 4580</span> </div>
-<div class="line"><a id="l04581" name="l04581"></a><span class="lineno"> 4581</span>    <span class="keyword">module</span> subroutine mult_lq_mtx(lside, trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04582" name="l04582"></a><span class="lineno"> 4582</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04583" name="l04583"></a><span class="lineno"> 4583</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04584" name="l04584"></a><span class="lineno"> 4584</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04585" name="l04585"></a><span class="lineno"> 4585</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04586" name="l04586"></a><span class="lineno"> 4586</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04587" name="l04587"></a><span class="lineno"> 4587</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04588" name="l04588"></a><span class="lineno"> 4588</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04589" name="l04589"></a><span class="lineno"> 4589</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04590" name="l04590"></a><span class="lineno"> 4590</span> </div>
-<div class="line"><a id="l04591" name="l04591"></a><span class="lineno"> 4591</span>    <span class="keyword">module</span> subroutine mult_lq_mtx_cmplx(lside, trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04592" name="l04592"></a><span class="lineno"> 4592</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
-<div class="line"><a id="l04593" name="l04593"></a><span class="lineno"> 4593</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04594" name="l04594"></a><span class="lineno"> 4594</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04595" name="l04595"></a><span class="lineno"> 4595</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
-<div class="line"><a id="l04596" name="l04596"></a><span class="lineno"> 4596</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04597" name="l04597"></a><span class="lineno"> 4597</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04598" name="l04598"></a><span class="lineno"> 4598</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04599" name="l04599"></a><span class="lineno"> 4599</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04600" name="l04600"></a><span class="lineno"> 4600</span> </div>
-<div class="line"><a id="l04601" name="l04601"></a><span class="lineno"> 4601</span>    <span class="keyword">module</span> subroutine mult_lq_vec(trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04602" name="l04602"></a><span class="lineno"> 4602</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04603" name="l04603"></a><span class="lineno"> 4603</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04604" name="l04604"></a><span class="lineno"> 4604</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04605" name="l04605"></a><span class="lineno"> 4605</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04606" name="l04606"></a><span class="lineno"> 4606</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04607" name="l04607"></a><span class="lineno"> 4607</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04608" name="l04608"></a><span class="lineno"> 4608</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04609" name="l04609"></a><span class="lineno"> 4609</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04610" name="l04610"></a><span class="lineno"> 4610</span> </div>
-<div class="line"><a id="l04611" name="l04611"></a><span class="lineno"> 4611</span>    <span class="keyword">module</span> subroutine mult_lq_vec_cmplx(trans, a, tau, c, work, olwork, err)</div>
-<div class="line"><a id="l04612" name="l04612"></a><span class="lineno"> 4612</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l04613" name="l04613"></a><span class="lineno"> 4613</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04614" name="l04614"></a><span class="lineno"> 4614</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04615" name="l04615"></a><span class="lineno"> 4615</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
-<div class="line"><a id="l04616" name="l04616"></a><span class="lineno"> 4616</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04617" name="l04617"></a><span class="lineno"> 4617</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04618" name="l04618"></a><span class="lineno"> 4618</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04619" name="l04619"></a><span class="lineno"> 4619</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04620" name="l04620"></a><span class="lineno"> 4620</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l04621" name="l04621"></a><span class="lineno"> 4621</span> </div>
-<div class="line"><a id="l04622" name="l04622"></a><span class="lineno"> 4622</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l04623" name="l04623"></a><span class="lineno"> 4623</span><span class="comment">! LINALG_SOLVE.F90</span></div>
-<div class="line"><a id="l04624" name="l04624"></a><span class="lineno"> 4624</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l04625" name="l04625"></a><span class="lineno"> 4625</span><span class="keyword">interface</span></div>
-<div class="line"><a id="l04626" name="l04626"></a><span class="lineno"> 4626</span>    <span class="keyword">module</span> subroutine solve_tri_mtx(lside, upper, trans, nounit, alpha, a, b, err)</div>
-<div class="line"><a id="l04627" name="l04627"></a><span class="lineno"> 4627</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, upper, trans, nounit</div>
-<div class="line"><a id="l04628" name="l04628"></a><span class="lineno"> 4628</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04629" name="l04629"></a><span class="lineno"> 4629</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04630" name="l04630"></a><span class="lineno"> 4630</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04631" name="l04631"></a><span class="lineno"> 4631</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04632" name="l04632"></a><span class="lineno"> 4632</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04633" name="l04633"></a><span class="lineno"> 4633</span>    </div>
-<div class="line"><a id="l04634" name="l04634"></a><span class="lineno"> 4634</span>    <span class="keyword">module</span> subroutine solve_tri_mtx_cmplx(lside, upper, trans, nounit, alpha, a, b, err)</div>
-<div class="line"><a id="l04635" name="l04635"></a><span class="lineno"> 4635</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, upper, trans, nounit</div>
-<div class="line"><a id="l04636" name="l04636"></a><span class="lineno"> 4636</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l04637" name="l04637"></a><span class="lineno"> 4637</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04638" name="l04638"></a><span class="lineno"> 4638</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04546" name="l04546"></a><span class="lineno"> 4546</span>    </div>
+<div class="line"><a id="l04547" name="l04547"></a><span class="lineno"> 4547</span>    <span class="keyword">module</span> subroutine form_lu_only(lu, u, err)</div>
+<div class="line"><a id="l04548" name="l04548"></a><span class="lineno"> 4548</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
+<div class="line"><a id="l04549" name="l04549"></a><span class="lineno"> 4549</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
+<div class="line"><a id="l04550" name="l04550"></a><span class="lineno"> 4550</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04551" name="l04551"></a><span class="lineno"> 4551</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04552" name="l04552"></a><span class="lineno"> 4552</span>    </div>
+<div class="line"><a id="l04553" name="l04553"></a><span class="lineno"> 4553</span>    <span class="keyword">module</span> subroutine form_lu_only_cmplx(lu, u, err)</div>
+<div class="line"><a id="l04554" name="l04554"></a><span class="lineno"> 4554</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: lu</div>
+<div class="line"><a id="l04555" name="l04555"></a><span class="lineno"> 4555</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: u</div>
+<div class="line"><a id="l04556" name="l04556"></a><span class="lineno"> 4556</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04557" name="l04557"></a><span class="lineno"> 4557</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04558" name="l04558"></a><span class="lineno"> 4558</span>    </div>
+<div class="line"><a id="l04559" name="l04559"></a><span class="lineno"> 4559</span>    <span class="keyword">module</span> subroutine qr_factor_no_pivot(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04560" name="l04560"></a><span class="lineno"> 4560</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04561" name="l04561"></a><span class="lineno"> 4561</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04562" name="l04562"></a><span class="lineno"> 4562</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04563" name="l04563"></a><span class="lineno"> 4563</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04564" name="l04564"></a><span class="lineno"> 4564</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04565" name="l04565"></a><span class="lineno"> 4565</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04566" name="l04566"></a><span class="lineno"> 4566</span> </div>
+<div class="line"><a id="l04567" name="l04567"></a><span class="lineno"> 4567</span>    <span class="keyword">module</span> subroutine qr_factor_no_pivot_cmplx(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04568" name="l04568"></a><span class="lineno"> 4568</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04569" name="l04569"></a><span class="lineno"> 4569</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04570" name="l04570"></a><span class="lineno"> 4570</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04571" name="l04571"></a><span class="lineno"> 4571</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04572" name="l04572"></a><span class="lineno"> 4572</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04573" name="l04573"></a><span class="lineno"> 4573</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04574" name="l04574"></a><span class="lineno"> 4574</span>    </div>
+<div class="line"><a id="l04575" name="l04575"></a><span class="lineno"> 4575</span>    <span class="keyword">module</span> subroutine qr_factor_pivot(a, tau, jpvt, work, olwork, err)</div>
+<div class="line"><a id="l04576" name="l04576"></a><span class="lineno"> 4576</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04577" name="l04577"></a><span class="lineno"> 4577</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04578" name="l04578"></a><span class="lineno"> 4578</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l04579" name="l04579"></a><span class="lineno"> 4579</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04580" name="l04580"></a><span class="lineno"> 4580</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04581" name="l04581"></a><span class="lineno"> 4581</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04582" name="l04582"></a><span class="lineno"> 4582</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04583" name="l04583"></a><span class="lineno"> 4583</span>    </div>
+<div class="line"><a id="l04584" name="l04584"></a><span class="lineno"> 4584</span>    <span class="keyword">module</span> subroutine qr_factor_pivot_cmplx(a, tau, jpvt, work, olwork, rwork, &amp;</div>
+<div class="line"><a id="l04585" name="l04585"></a><span class="lineno"> 4585</span>            err)</div>
+<div class="line"><a id="l04586" name="l04586"></a><span class="lineno"> 4586</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04587" name="l04587"></a><span class="lineno"> 4587</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04588" name="l04588"></a><span class="lineno"> 4588</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l04589" name="l04589"></a><span class="lineno"> 4589</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04590" name="l04590"></a><span class="lineno"> 4590</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04591" name="l04591"></a><span class="lineno"> 4591</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: rwork</div>
+<div class="line"><a id="l04592" name="l04592"></a><span class="lineno"> 4592</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04593" name="l04593"></a><span class="lineno"> 4593</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04594" name="l04594"></a><span class="lineno"> 4594</span>    </div>
+<div class="line"><a id="l04595" name="l04595"></a><span class="lineno"> 4595</span>    <span class="keyword">module</span> subroutine form_qr_no_pivot(r, tau, q, work, olwork, err)</div>
+<div class="line"><a id="l04596" name="l04596"></a><span class="lineno"> 4596</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04597" name="l04597"></a><span class="lineno"> 4597</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04598" name="l04598"></a><span class="lineno"> 4598</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
+<div class="line"><a id="l04599" name="l04599"></a><span class="lineno"> 4599</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04600" name="l04600"></a><span class="lineno"> 4600</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04601" name="l04601"></a><span class="lineno"> 4601</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04602" name="l04602"></a><span class="lineno"> 4602</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04603" name="l04603"></a><span class="lineno"> 4603</span>    </div>
+<div class="line"><a id="l04604" name="l04604"></a><span class="lineno"> 4604</span>    <span class="keyword">module</span> subroutine form_qr_no_pivot_cmplx(r, tau, q, work, olwork, err)</div>
+<div class="line"><a id="l04605" name="l04605"></a><span class="lineno"> 4605</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04606" name="l04606"></a><span class="lineno"> 4606</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04607" name="l04607"></a><span class="lineno"> 4607</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
+<div class="line"><a id="l04608" name="l04608"></a><span class="lineno"> 4608</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04609" name="l04609"></a><span class="lineno"> 4609</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04610" name="l04610"></a><span class="lineno"> 4610</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04611" name="l04611"></a><span class="lineno"> 4611</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04612" name="l04612"></a><span class="lineno"> 4612</span>    </div>
+<div class="line"><a id="l04613" name="l04613"></a><span class="lineno"> 4613</span>    <span class="keyword">module</span> subroutine form_qr_pivot(r, tau, pvt, q, p, work, olwork, err)</div>
+<div class="line"><a id="l04614" name="l04614"></a><span class="lineno"> 4614</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04615" name="l04615"></a><span class="lineno"> 4615</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04616" name="l04616"></a><span class="lineno"> 4616</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: pvt</div>
+<div class="line"><a id="l04617" name="l04617"></a><span class="lineno"> 4617</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, p</div>
+<div class="line"><a id="l04618" name="l04618"></a><span class="lineno"> 4618</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04619" name="l04619"></a><span class="lineno"> 4619</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04620" name="l04620"></a><span class="lineno"> 4620</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04621" name="l04621"></a><span class="lineno"> 4621</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04622" name="l04622"></a><span class="lineno"> 4622</span> </div>
+<div class="line"><a id="l04623" name="l04623"></a><span class="lineno"> 4623</span>    <span class="keyword">module</span> subroutine form_qr_pivot_cmplx(r, tau, pvt, q, p, work, olwork, err)</div>
+<div class="line"><a id="l04624" name="l04624"></a><span class="lineno"> 4624</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04625" name="l04625"></a><span class="lineno"> 4625</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04626" name="l04626"></a><span class="lineno"> 4626</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: pvt</div>
+<div class="line"><a id="l04627" name="l04627"></a><span class="lineno"> 4627</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, p</div>
+<div class="line"><a id="l04628" name="l04628"></a><span class="lineno"> 4628</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04629" name="l04629"></a><span class="lineno"> 4629</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04630" name="l04630"></a><span class="lineno"> 4630</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04631" name="l04631"></a><span class="lineno"> 4631</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04632" name="l04632"></a><span class="lineno"> 4632</span>    </div>
+<div class="line"><a id="l04633" name="l04633"></a><span class="lineno"> 4633</span>    <span class="keyword">module</span> subroutine mult_qr_mtx(lside, trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04634" name="l04634"></a><span class="lineno"> 4634</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04635" name="l04635"></a><span class="lineno"> 4635</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04636" name="l04636"></a><span class="lineno"> 4636</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
+<div class="line"><a id="l04637" name="l04637"></a><span class="lineno"> 4637</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04638" name="l04638"></a><span class="lineno"> 4638</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
 <div class="line"><a id="l04639" name="l04639"></a><span class="lineno"> 4639</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04640" name="l04640"></a><span class="lineno"> 4640</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04641" name="l04641"></a><span class="lineno"> 4641</span> </div>
-<div class="line"><a id="l04642" name="l04642"></a><span class="lineno"> 4642</span>    <span class="keyword">module</span> subroutine solve_tri_vec(upper, trans, nounit, a, x, err)</div>
-<div class="line"><a id="l04643" name="l04643"></a><span class="lineno"> 4643</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper, trans, nounit</div>
-<div class="line"><a id="l04644" name="l04644"></a><span class="lineno"> 4644</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04645" name="l04645"></a><span class="lineno"> 4645</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l04646" name="l04646"></a><span class="lineno"> 4646</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04647" name="l04647"></a><span class="lineno"> 4647</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04648" name="l04648"></a><span class="lineno"> 4648</span>    </div>
-<div class="line"><a id="l04649" name="l04649"></a><span class="lineno"> 4649</span>    <span class="keyword">module</span> subroutine solve_tri_vec_cmplx(upper, trans, nounit, a, x, err)</div>
-<div class="line"><a id="l04650" name="l04650"></a><span class="lineno"> 4650</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper, trans, nounit</div>
-<div class="line"><a id="l04651" name="l04651"></a><span class="lineno"> 4651</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04652" name="l04652"></a><span class="lineno"> 4652</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l04653" name="l04653"></a><span class="lineno"> 4653</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04654" name="l04654"></a><span class="lineno"> 4654</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04655" name="l04655"></a><span class="lineno"> 4655</span>    </div>
-<div class="line"><a id="l04656" name="l04656"></a><span class="lineno"> 4656</span>    <span class="keyword">module</span> subroutine solve_lu_mtx(a, ipvt, b, err)</div>
-<div class="line"><a id="l04657" name="l04657"></a><span class="lineno"> 4657</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04658" name="l04658"></a><span class="lineno"> 4658</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04659" name="l04659"></a><span class="lineno"> 4659</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04660" name="l04660"></a><span class="lineno"> 4660</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04661" name="l04661"></a><span class="lineno"> 4661</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04662" name="l04662"></a><span class="lineno"> 4662</span> </div>
-<div class="line"><a id="l04663" name="l04663"></a><span class="lineno"> 4663</span>    <span class="keyword">module</span> subroutine solve_lu_mtx_cmplx(a, ipvt, b, err)</div>
-<div class="line"><a id="l04664" name="l04664"></a><span class="lineno"> 4664</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04665" name="l04665"></a><span class="lineno"> 4665</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04666" name="l04666"></a><span class="lineno"> 4666</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04667" name="l04667"></a><span class="lineno"> 4667</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04668" name="l04668"></a><span class="lineno"> 4668</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04669" name="l04669"></a><span class="lineno"> 4669</span>    </div>
-<div class="line"><a id="l04670" name="l04670"></a><span class="lineno"> 4670</span>    <span class="keyword">module</span> subroutine solve_lu_vec(a, ipvt, b, err)</div>
-<div class="line"><a id="l04671" name="l04671"></a><span class="lineno"> 4671</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04672" name="l04672"></a><span class="lineno"> 4672</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04673" name="l04673"></a><span class="lineno"> 4673</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04674" name="l04674"></a><span class="lineno"> 4674</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04675" name="l04675"></a><span class="lineno"> 4675</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04676" name="l04676"></a><span class="lineno"> 4676</span>    </div>
-<div class="line"><a id="l04677" name="l04677"></a><span class="lineno"> 4677</span>    <span class="keyword">module</span> subroutine solve_lu_vec_cmplx(a, ipvt, b, err)</div>
-<div class="line"><a id="l04678" name="l04678"></a><span class="lineno"> 4678</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04679" name="l04679"></a><span class="lineno"> 4679</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04680" name="l04680"></a><span class="lineno"> 4680</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04681" name="l04681"></a><span class="lineno"> 4681</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04682" name="l04682"></a><span class="lineno"> 4682</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04683" name="l04683"></a><span class="lineno"> 4683</span>    </div>
-<div class="line"><a id="l04684" name="l04684"></a><span class="lineno"> 4684</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_mtx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04685" name="l04685"></a><span class="lineno"> 4685</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04686" name="l04686"></a><span class="lineno"> 4686</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04687" name="l04687"></a><span class="lineno"> 4687</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04688" name="l04688"></a><span class="lineno"> 4688</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04641" name="l04641"></a><span class="lineno"> 4641</span>    </div>
+<div class="line"><a id="l04642" name="l04642"></a><span class="lineno"> 4642</span>    <span class="keyword">module</span> subroutine mult_qr_mtx_cmplx(lside, trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04643" name="l04643"></a><span class="lineno"> 4643</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04644" name="l04644"></a><span class="lineno"> 4644</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04645" name="l04645"></a><span class="lineno"> 4645</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
+<div class="line"><a id="l04646" name="l04646"></a><span class="lineno"> 4646</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04647" name="l04647"></a><span class="lineno"> 4647</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04648" name="l04648"></a><span class="lineno"> 4648</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04649" name="l04649"></a><span class="lineno"> 4649</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04650" name="l04650"></a><span class="lineno"> 4650</span>    </div>
+<div class="line"><a id="l04651" name="l04651"></a><span class="lineno"> 4651</span>    <span class="keyword">module</span> subroutine mult_qr_vec(trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04652" name="l04652"></a><span class="lineno"> 4652</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04653" name="l04653"></a><span class="lineno"> 4653</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04654" name="l04654"></a><span class="lineno"> 4654</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04655" name="l04655"></a><span class="lineno"> 4655</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04656" name="l04656"></a><span class="lineno"> 4656</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04657" name="l04657"></a><span class="lineno"> 4657</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04658" name="l04658"></a><span class="lineno"> 4658</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04659" name="l04659"></a><span class="lineno"> 4659</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04660" name="l04660"></a><span class="lineno"> 4660</span>    </div>
+<div class="line"><a id="l04661" name="l04661"></a><span class="lineno"> 4661</span>    <span class="keyword">module</span> subroutine mult_qr_vec_cmplx(trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04662" name="l04662"></a><span class="lineno"> 4662</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04663" name="l04663"></a><span class="lineno"> 4663</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04664" name="l04664"></a><span class="lineno"> 4664</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04665" name="l04665"></a><span class="lineno"> 4665</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04666" name="l04666"></a><span class="lineno"> 4666</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04667" name="l04667"></a><span class="lineno"> 4667</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04668" name="l04668"></a><span class="lineno"> 4668</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04669" name="l04669"></a><span class="lineno"> 4669</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04670" name="l04670"></a><span class="lineno"> 4670</span>    </div>
+<div class="line"><a id="l04671" name="l04671"></a><span class="lineno"> 4671</span>    <span class="keyword">module</span> subroutine qr_rank1_update_dbl(q, r, u, v, work, err)</div>
+<div class="line"><a id="l04672" name="l04672"></a><span class="lineno"> 4672</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, r</div>
+<div class="line"><a id="l04673" name="l04673"></a><span class="lineno"> 4673</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u, v</div>
+<div class="line"><a id="l04674" name="l04674"></a><span class="lineno"> 4674</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04675" name="l04675"></a><span class="lineno"> 4675</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04676" name="l04676"></a><span class="lineno"> 4676</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04677" name="l04677"></a><span class="lineno"> 4677</span>    </div>
+<div class="line"><a id="l04678" name="l04678"></a><span class="lineno"> 4678</span>    <span class="keyword">module</span> subroutine qr_rank1_update_cmplx(q, r, u, v, work, rwork, err)</div>
+<div class="line"><a id="l04679" name="l04679"></a><span class="lineno"> 4679</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: q, r</div>
+<div class="line"><a id="l04680" name="l04680"></a><span class="lineno"> 4680</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u, v</div>
+<div class="line"><a id="l04681" name="l04681"></a><span class="lineno"> 4681</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04682" name="l04682"></a><span class="lineno"> 4682</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l04683" name="l04683"></a><span class="lineno"> 4683</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04684" name="l04684"></a><span class="lineno"> 4684</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04685" name="l04685"></a><span class="lineno"> 4685</span>    </div>
+<div class="line"><a id="l04686" name="l04686"></a><span class="lineno"> 4686</span>    <span class="keyword">module</span> subroutine cholesky_factor_dbl(a, upper, err)</div>
+<div class="line"><a id="l04687" name="l04687"></a><span class="lineno"> 4687</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04688" name="l04688"></a><span class="lineno"> 4688</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: upper</div>
 <div class="line"><a id="l04689" name="l04689"></a><span class="lineno"> 4689</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04690" name="l04690"></a><span class="lineno"> 4690</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04691" name="l04691"></a><span class="lineno"> 4691</span>    </div>
-<div class="line"><a id="l04692" name="l04692"></a><span class="lineno"> 4692</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_mtx_cmplx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04693" name="l04693"></a><span class="lineno"> 4693</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04694" name="l04694"></a><span class="lineno"> 4694</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04695" name="l04695"></a><span class="lineno"> 4695</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04696" name="l04696"></a><span class="lineno"> 4696</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04697" name="l04697"></a><span class="lineno"> 4697</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04698" name="l04698"></a><span class="lineno"> 4698</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04699" name="l04699"></a><span class="lineno"> 4699</span>    </div>
-<div class="line"><a id="l04700" name="l04700"></a><span class="lineno"> 4700</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_vec(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04701" name="l04701"></a><span class="lineno"> 4701</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04702" name="l04702"></a><span class="lineno"> 4702</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04703" name="l04703"></a><span class="lineno"> 4703</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04704" name="l04704"></a><span class="lineno"> 4704</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04705" name="l04705"></a><span class="lineno"> 4705</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04706" name="l04706"></a><span class="lineno"> 4706</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04707" name="l04707"></a><span class="lineno"> 4707</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04708" name="l04708"></a><span class="lineno"> 4708</span>    </div>
-<div class="line"><a id="l04709" name="l04709"></a><span class="lineno"> 4709</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_vec_cmplx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04710" name="l04710"></a><span class="lineno"> 4710</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04711" name="l04711"></a><span class="lineno"> 4711</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04712" name="l04712"></a><span class="lineno"> 4712</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04713" name="l04713"></a><span class="lineno"> 4713</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04714" name="l04714"></a><span class="lineno"> 4714</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04715" name="l04715"></a><span class="lineno"> 4715</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04716" name="l04716"></a><span class="lineno"> 4716</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04717" name="l04717"></a><span class="lineno"> 4717</span>    </div>
-<div class="line"><a id="l04718" name="l04718"></a><span class="lineno"> 4718</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_mtx(a, tau, jpvt, b, work, olwork, err)</div>
-<div class="line"><a id="l04719" name="l04719"></a><span class="lineno"> 4719</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04720" name="l04720"></a><span class="lineno"> 4720</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04721" name="l04721"></a><span class="lineno"> 4721</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04722" name="l04722"></a><span class="lineno"> 4722</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04723" name="l04723"></a><span class="lineno"> 4723</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04724" name="l04724"></a><span class="lineno"> 4724</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04725" name="l04725"></a><span class="lineno"> 4725</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04726" name="l04726"></a><span class="lineno"> 4726</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04727" name="l04727"></a><span class="lineno"> 4727</span>    </div>
-<div class="line"><a id="l04728" name="l04728"></a><span class="lineno"> 4728</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_mtx_cmplx(a, tau, jpvt, b, work, olwork, err)</div>
-<div class="line"><a id="l04729" name="l04729"></a><span class="lineno"> 4729</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04730" name="l04730"></a><span class="lineno"> 4730</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04731" name="l04731"></a><span class="lineno"> 4731</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04732" name="l04732"></a><span class="lineno"> 4732</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04733" name="l04733"></a><span class="lineno"> 4733</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04734" name="l04734"></a><span class="lineno"> 4734</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04735" name="l04735"></a><span class="lineno"> 4735</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04736" name="l04736"></a><span class="lineno"> 4736</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04737" name="l04737"></a><span class="lineno"> 4737</span>    </div>
-<div class="line"><a id="l04738" name="l04738"></a><span class="lineno"> 4738</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_vec(a, tau, jpvt, b, work, olwork, err)</div>
-<div class="line"><a id="l04739" name="l04739"></a><span class="lineno"> 4739</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04740" name="l04740"></a><span class="lineno"> 4740</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04741" name="l04741"></a><span class="lineno"> 4741</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04742" name="l04742"></a><span class="lineno"> 4742</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04743" name="l04743"></a><span class="lineno"> 4743</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04744" name="l04744"></a><span class="lineno"> 4744</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04745" name="l04745"></a><span class="lineno"> 4745</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04746" name="l04746"></a><span class="lineno"> 4746</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04747" name="l04747"></a><span class="lineno"> 4747</span>    </div>
-<div class="line"><a id="l04748" name="l04748"></a><span class="lineno"> 4748</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_vec_cmplx(a, tau, jpvt, b, work, olwork, err)</div>
-<div class="line"><a id="l04749" name="l04749"></a><span class="lineno"> 4749</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04750" name="l04750"></a><span class="lineno"> 4750</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04751" name="l04751"></a><span class="lineno"> 4751</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
-<div class="line"><a id="l04752" name="l04752"></a><span class="lineno"> 4752</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04753" name="l04753"></a><span class="lineno"> 4753</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04754" name="l04754"></a><span class="lineno"> 4754</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04755" name="l04755"></a><span class="lineno"> 4755</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04756" name="l04756"></a><span class="lineno"> 4756</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04757" name="l04757"></a><span class="lineno"> 4757</span>    </div>
-<div class="line"><a id="l04758" name="l04758"></a><span class="lineno"> 4758</span>    <span class="keyword">module</span> subroutine solve_cholesky_mtx(upper, a, b, err)</div>
-<div class="line"><a id="l04759" name="l04759"></a><span class="lineno"> 4759</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04760" name="l04760"></a><span class="lineno"> 4760</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04761" name="l04761"></a><span class="lineno"> 4761</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04762" name="l04762"></a><span class="lineno"> 4762</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04763" name="l04763"></a><span class="lineno"> 4763</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04764" name="l04764"></a><span class="lineno"> 4764</span>    </div>
-<div class="line"><a id="l04765" name="l04765"></a><span class="lineno"> 4765</span>    <span class="keyword">module</span> subroutine solve_cholesky_mtx_cmplx(upper, a, b, err)</div>
-<div class="line"><a id="l04766" name="l04766"></a><span class="lineno"> 4766</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04767" name="l04767"></a><span class="lineno"> 4767</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04768" name="l04768"></a><span class="lineno"> 4768</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04769" name="l04769"></a><span class="lineno"> 4769</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04770" name="l04770"></a><span class="lineno"> 4770</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04771" name="l04771"></a><span class="lineno"> 4771</span>    </div>
-<div class="line"><a id="l04772" name="l04772"></a><span class="lineno"> 4772</span>    <span class="keyword">module</span> subroutine solve_cholesky_vec(upper, a, b, err)</div>
-<div class="line"><a id="l04773" name="l04773"></a><span class="lineno"> 4773</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04774" name="l04774"></a><span class="lineno"> 4774</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04775" name="l04775"></a><span class="lineno"> 4775</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04776" name="l04776"></a><span class="lineno"> 4776</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04777" name="l04777"></a><span class="lineno"> 4777</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04778" name="l04778"></a><span class="lineno"> 4778</span>    </div>
-<div class="line"><a id="l04779" name="l04779"></a><span class="lineno"> 4779</span>    <span class="keyword">module</span> subroutine solve_cholesky_vec_cmplx(upper, a, b, err)</div>
-<div class="line"><a id="l04780" name="l04780"></a><span class="lineno"> 4780</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l04781" name="l04781"></a><span class="lineno"> 4781</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04782" name="l04782"></a><span class="lineno"> 4782</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04783" name="l04783"></a><span class="lineno"> 4783</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04784" name="l04784"></a><span class="lineno"> 4784</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04785" name="l04785"></a><span class="lineno"> 4785</span>    </div>
-<div class="line"><a id="l04786" name="l04786"></a><span class="lineno"> 4786</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx(a, b, work, olwork, err)</div>
-<div class="line"><a id="l04787" name="l04787"></a><span class="lineno"> 4787</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l04692" name="l04692"></a><span class="lineno"> 4692</span>    <span class="keyword">module</span> subroutine cholesky_factor_cmplx(a, upper, err)</div>
+<div class="line"><a id="l04693" name="l04693"></a><span class="lineno"> 4693</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04694" name="l04694"></a><span class="lineno"> 4694</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: upper</div>
+<div class="line"><a id="l04695" name="l04695"></a><span class="lineno"> 4695</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04696" name="l04696"></a><span class="lineno"> 4696</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04697" name="l04697"></a><span class="lineno"> 4697</span> </div>
+<div class="line"><a id="l04698" name="l04698"></a><span class="lineno"> 4698</span>    <span class="keyword">module</span> subroutine cholesky_rank1_update_dbl(r, u, work, err)</div>
+<div class="line"><a id="l04699" name="l04699"></a><span class="lineno"> 4699</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04700" name="l04700"></a><span class="lineno"> 4700</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
+<div class="line"><a id="l04701" name="l04701"></a><span class="lineno"> 4701</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04702" name="l04702"></a><span class="lineno"> 4702</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04703" name="l04703"></a><span class="lineno"> 4703</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04704" name="l04704"></a><span class="lineno"> 4704</span>    </div>
+<div class="line"><a id="l04705" name="l04705"></a><span class="lineno"> 4705</span>    <span class="keyword">module</span> subroutine cholesky_rank1_update_cmplx(r, u, work, err)</div>
+<div class="line"><a id="l04706" name="l04706"></a><span class="lineno"> 4706</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04707" name="l04707"></a><span class="lineno"> 4707</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
+<div class="line"><a id="l04708" name="l04708"></a><span class="lineno"> 4708</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04709" name="l04709"></a><span class="lineno"> 4709</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04710" name="l04710"></a><span class="lineno"> 4710</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04711" name="l04711"></a><span class="lineno"> 4711</span>    </div>
+<div class="line"><a id="l04712" name="l04712"></a><span class="lineno"> 4712</span>    <span class="keyword">module</span> subroutine cholesky_rank1_downdate_dbl(r, u, work, err)</div>
+<div class="line"><a id="l04713" name="l04713"></a><span class="lineno"> 4713</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04714" name="l04714"></a><span class="lineno"> 4714</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
+<div class="line"><a id="l04715" name="l04715"></a><span class="lineno"> 4715</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04716" name="l04716"></a><span class="lineno"> 4716</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04717" name="l04717"></a><span class="lineno"> 4717</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04718" name="l04718"></a><span class="lineno"> 4718</span>    </div>
+<div class="line"><a id="l04719" name="l04719"></a><span class="lineno"> 4719</span>    <span class="keyword">module</span> subroutine cholesky_rank1_downdate_cmplx(r, u, work, err)</div>
+<div class="line"><a id="l04720" name="l04720"></a><span class="lineno"> 4720</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: r</div>
+<div class="line"><a id="l04721" name="l04721"></a><span class="lineno"> 4721</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: u</div>
+<div class="line"><a id="l04722" name="l04722"></a><span class="lineno"> 4722</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04723" name="l04723"></a><span class="lineno"> 4723</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04724" name="l04724"></a><span class="lineno"> 4724</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04725" name="l04725"></a><span class="lineno"> 4725</span>    </div>
+<div class="line"><a id="l04726" name="l04726"></a><span class="lineno"> 4726</span>    <span class="keyword">module</span> subroutine rz_factor_dbl(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04727" name="l04727"></a><span class="lineno"> 4727</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04728" name="l04728"></a><span class="lineno"> 4728</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04729" name="l04729"></a><span class="lineno"> 4729</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04730" name="l04730"></a><span class="lineno"> 4730</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04731" name="l04731"></a><span class="lineno"> 4731</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04732" name="l04732"></a><span class="lineno"> 4732</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04733" name="l04733"></a><span class="lineno"> 4733</span>    </div>
+<div class="line"><a id="l04734" name="l04734"></a><span class="lineno"> 4734</span>    <span class="keyword">module</span> subroutine rz_factor_cmplx(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04735" name="l04735"></a><span class="lineno"> 4735</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04736" name="l04736"></a><span class="lineno"> 4736</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04737" name="l04737"></a><span class="lineno"> 4737</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04738" name="l04738"></a><span class="lineno"> 4738</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04739" name="l04739"></a><span class="lineno"> 4739</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04740" name="l04740"></a><span class="lineno"> 4740</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04741" name="l04741"></a><span class="lineno"> 4741</span>    </div>
+<div class="line"><a id="l04742" name="l04742"></a><span class="lineno"> 4742</span>    <span class="keyword">module</span> subroutine mult_rz_mtx(lside, trans, l, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04743" name="l04743"></a><span class="lineno"> 4743</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04744" name="l04744"></a><span class="lineno"> 4744</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
+<div class="line"><a id="l04745" name="l04745"></a><span class="lineno"> 4745</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
+<div class="line"><a id="l04746" name="l04746"></a><span class="lineno"> 4746</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04747" name="l04747"></a><span class="lineno"> 4747</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04748" name="l04748"></a><span class="lineno"> 4748</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04749" name="l04749"></a><span class="lineno"> 4749</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04750" name="l04750"></a><span class="lineno"> 4750</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04751" name="l04751"></a><span class="lineno"> 4751</span>    </div>
+<div class="line"><a id="l04752" name="l04752"></a><span class="lineno"> 4752</span>    <span class="keyword">module</span> subroutine mult_rz_mtx_cmplx(lside, trans, l, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04753" name="l04753"></a><span class="lineno"> 4753</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04754" name="l04754"></a><span class="lineno"> 4754</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
+<div class="line"><a id="l04755" name="l04755"></a><span class="lineno"> 4755</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, c</div>
+<div class="line"><a id="l04756" name="l04756"></a><span class="lineno"> 4756</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04757" name="l04757"></a><span class="lineno"> 4757</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04758" name="l04758"></a><span class="lineno"> 4758</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04759" name="l04759"></a><span class="lineno"> 4759</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04760" name="l04760"></a><span class="lineno"> 4760</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04761" name="l04761"></a><span class="lineno"> 4761</span>    </div>
+<div class="line"><a id="l04762" name="l04762"></a><span class="lineno"> 4762</span>    <span class="keyword">module</span> subroutine mult_rz_vec(trans, l, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04763" name="l04763"></a><span class="lineno"> 4763</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04764" name="l04764"></a><span class="lineno"> 4764</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
+<div class="line"><a id="l04765" name="l04765"></a><span class="lineno"> 4765</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04766" name="l04766"></a><span class="lineno"> 4766</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04767" name="l04767"></a><span class="lineno"> 4767</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04768" name="l04768"></a><span class="lineno"> 4768</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04769" name="l04769"></a><span class="lineno"> 4769</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04770" name="l04770"></a><span class="lineno"> 4770</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04771" name="l04771"></a><span class="lineno"> 4771</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04772" name="l04772"></a><span class="lineno"> 4772</span>    </div>
+<div class="line"><a id="l04773" name="l04773"></a><span class="lineno"> 4773</span>    <span class="keyword">module</span> subroutine mult_rz_vec_cmplx(trans, l, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04774" name="l04774"></a><span class="lineno"> 4774</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04775" name="l04775"></a><span class="lineno"> 4775</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: l</div>
+<div class="line"><a id="l04776" name="l04776"></a><span class="lineno"> 4776</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04777" name="l04777"></a><span class="lineno"> 4777</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04778" name="l04778"></a><span class="lineno"> 4778</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04779" name="l04779"></a><span class="lineno"> 4779</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04780" name="l04780"></a><span class="lineno"> 4780</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04781" name="l04781"></a><span class="lineno"> 4781</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04782" name="l04782"></a><span class="lineno"> 4782</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04783" name="l04783"></a><span class="lineno"> 4783</span>    </div>
+<div class="line"><a id="l04784" name="l04784"></a><span class="lineno"> 4784</span>    <span class="keyword">module</span> subroutine svd_dbl(a, s, u, vt, work, olwork, err)</div>
+<div class="line"><a id="l04785" name="l04785"></a><span class="lineno"> 4785</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04786" name="l04786"></a><span class="lineno"> 4786</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: s</div>
+<div class="line"><a id="l04787" name="l04787"></a><span class="lineno"> 4787</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: u, vt</div>
 <div class="line"><a id="l04788" name="l04788"></a><span class="lineno"> 4788</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
 <div class="line"><a id="l04789" name="l04789"></a><span class="lineno"> 4789</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
 <div class="line"><a id="l04790" name="l04790"></a><span class="lineno"> 4790</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04791" name="l04791"></a><span class="lineno"> 4791</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04792" name="l04792"></a><span class="lineno"> 4792</span>    </div>
-<div class="line"><a id="l04793" name="l04793"></a><span class="lineno"> 4793</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_cmplx(a, b, work, olwork, err)</div>
-<div class="line"><a id="l04794" name="l04794"></a><span class="lineno"> 4794</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04795" name="l04795"></a><span class="lineno"> 4795</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04796" name="l04796"></a><span class="lineno"> 4796</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04797" name="l04797"></a><span class="lineno"> 4797</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04798" name="l04798"></a><span class="lineno"> 4798</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04799" name="l04799"></a><span class="lineno"> 4799</span>    </div>
-<div class="line"><a id="l04800" name="l04800"></a><span class="lineno"> 4800</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec(a, b, work, olwork, err)</div>
-<div class="line"><a id="l04801" name="l04801"></a><span class="lineno"> 4801</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04802" name="l04802"></a><span class="lineno"> 4802</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04803" name="l04803"></a><span class="lineno"> 4803</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04804" name="l04804"></a><span class="lineno"> 4804</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04805" name="l04805"></a><span class="lineno"> 4805</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04806" name="l04806"></a><span class="lineno"> 4806</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04807" name="l04807"></a><span class="lineno"> 4807</span>    </div>
-<div class="line"><a id="l04808" name="l04808"></a><span class="lineno"> 4808</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_cmplx(a, b, work, olwork, err)</div>
-<div class="line"><a id="l04809" name="l04809"></a><span class="lineno"> 4809</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04810" name="l04810"></a><span class="lineno"> 4810</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04811" name="l04811"></a><span class="lineno"> 4811</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04812" name="l04812"></a><span class="lineno"> 4812</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04813" name="l04813"></a><span class="lineno"> 4813</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04814" name="l04814"></a><span class="lineno"> 4814</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04815" name="l04815"></a><span class="lineno"> 4815</span>    </div>
-<div class="line"><a id="l04816" name="l04816"></a><span class="lineno"> 4816</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_pvt(a, b, ipvt, arnk, work, olwork, err)</div>
-<div class="line"><a id="l04817" name="l04817"></a><span class="lineno"> 4817</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04818" name="l04818"></a><span class="lineno"> 4818</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04819" name="l04819"></a><span class="lineno"> 4819</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04820" name="l04820"></a><span class="lineno"> 4820</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04821" name="l04821"></a><span class="lineno"> 4821</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04822" name="l04822"></a><span class="lineno"> 4822</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04823" name="l04823"></a><span class="lineno"> 4823</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04824" name="l04824"></a><span class="lineno"> 4824</span>    </div>
-<div class="line"><a id="l04825" name="l04825"></a><span class="lineno"> 4825</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_pvt_cmplx(a, b, ipvt, arnk, &amp;</div>
-<div class="line"><a id="l04826" name="l04826"></a><span class="lineno"> 4826</span>            work, olwork, rwork, err)</div>
-<div class="line"><a id="l04827" name="l04827"></a><span class="lineno"> 4827</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04828" name="l04828"></a><span class="lineno"> 4828</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04829" name="l04829"></a><span class="lineno"> 4829</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04830" name="l04830"></a><span class="lineno"> 4830</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04831" name="l04831"></a><span class="lineno"> 4831</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04832" name="l04832"></a><span class="lineno"> 4832</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
-<div class="line"><a id="l04833" name="l04833"></a><span class="lineno"> 4833</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04834" name="l04834"></a><span class="lineno"> 4834</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04835" name="l04835"></a><span class="lineno"> 4835</span>    </div>
-<div class="line"><a id="l04836" name="l04836"></a><span class="lineno"> 4836</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_pvt(a, b, ipvt, arnk, work, olwork, err)</div>
-<div class="line"><a id="l04837" name="l04837"></a><span class="lineno"> 4837</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04838" name="l04838"></a><span class="lineno"> 4838</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04839" name="l04839"></a><span class="lineno"> 4839</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04840" name="l04840"></a><span class="lineno"> 4840</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04841" name="l04841"></a><span class="lineno"> 4841</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04842" name="l04842"></a><span class="lineno"> 4842</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04843" name="l04843"></a><span class="lineno"> 4843</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04844" name="l04844"></a><span class="lineno"> 4844</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04845" name="l04845"></a><span class="lineno"> 4845</span>    </div>
-<div class="line"><a id="l04846" name="l04846"></a><span class="lineno"> 4846</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_pvt_cmplx(a, b, ipvt, arnk, &amp;</div>
-<div class="line"><a id="l04847" name="l04847"></a><span class="lineno"> 4847</span>            work, olwork, rwork, err)</div>
-<div class="line"><a id="l04848" name="l04848"></a><span class="lineno"> 4848</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04849" name="l04849"></a><span class="lineno"> 4849</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04850" name="l04850"></a><span class="lineno"> 4850</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l04851" name="l04851"></a><span class="lineno"> 4851</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04852" name="l04852"></a><span class="lineno"> 4852</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04793" name="l04793"></a><span class="lineno"> 4793</span>    <span class="keyword">module</span> subroutine svd_cmplx(a, s, u, vt, work, olwork, rwork, err)</div>
+<div class="line"><a id="l04794" name="l04794"></a><span class="lineno"> 4794</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04795" name="l04795"></a><span class="lineno"> 4795</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: s</div>
+<div class="line"><a id="l04796" name="l04796"></a><span class="lineno"> 4796</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: u, vt</div>
+<div class="line"><a id="l04797" name="l04797"></a><span class="lineno"> 4797</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04798" name="l04798"></a><span class="lineno"> 4798</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04799" name="l04799"></a><span class="lineno"> 4799</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l04800" name="l04800"></a><span class="lineno"> 4800</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04801" name="l04801"></a><span class="lineno"> 4801</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04802" name="l04802"></a><span class="lineno"> 4802</span> </div>
+<div class="line"><a id="l04803" name="l04803"></a><span class="lineno"> 4803</span>    <span class="keyword">module</span> subroutine lq_factor_no_pivot(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04804" name="l04804"></a><span class="lineno"> 4804</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04805" name="l04805"></a><span class="lineno"> 4805</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04806" name="l04806"></a><span class="lineno"> 4806</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04807" name="l04807"></a><span class="lineno"> 4807</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04808" name="l04808"></a><span class="lineno"> 4808</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04809" name="l04809"></a><span class="lineno"> 4809</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04810" name="l04810"></a><span class="lineno"> 4810</span> </div>
+<div class="line"><a id="l04811" name="l04811"></a><span class="lineno"> 4811</span>    <span class="keyword">module</span> subroutine lq_factor_no_pivot_cmplx(a, tau, work, olwork, err)</div>
+<div class="line"><a id="l04812" name="l04812"></a><span class="lineno"> 4812</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04813" name="l04813"></a><span class="lineno"> 4813</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04814" name="l04814"></a><span class="lineno"> 4814</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04815" name="l04815"></a><span class="lineno"> 4815</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04816" name="l04816"></a><span class="lineno"> 4816</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04817" name="l04817"></a><span class="lineno"> 4817</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04818" name="l04818"></a><span class="lineno"> 4818</span> </div>
+<div class="line"><a id="l04819" name="l04819"></a><span class="lineno"> 4819</span>    <span class="keyword">module</span> subroutine form_lq_no_pivot(l, tau, q, work, olwork, err)</div>
+<div class="line"><a id="l04820" name="l04820"></a><span class="lineno"> 4820</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: l</div>
+<div class="line"><a id="l04821" name="l04821"></a><span class="lineno"> 4821</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04822" name="l04822"></a><span class="lineno"> 4822</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
+<div class="line"><a id="l04823" name="l04823"></a><span class="lineno"> 4823</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04824" name="l04824"></a><span class="lineno"> 4824</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04825" name="l04825"></a><span class="lineno"> 4825</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04826" name="l04826"></a><span class="lineno"> 4826</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04827" name="l04827"></a><span class="lineno"> 4827</span> </div>
+<div class="line"><a id="l04828" name="l04828"></a><span class="lineno"> 4828</span>    <span class="keyword">module</span> subroutine form_lq_no_pivot_cmplx(l, tau, q, work, olwork, err)</div>
+<div class="line"><a id="l04829" name="l04829"></a><span class="lineno"> 4829</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: l</div>
+<div class="line"><a id="l04830" name="l04830"></a><span class="lineno"> 4830</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04831" name="l04831"></a><span class="lineno"> 4831</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: q</div>
+<div class="line"><a id="l04832" name="l04832"></a><span class="lineno"> 4832</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04833" name="l04833"></a><span class="lineno"> 4833</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04834" name="l04834"></a><span class="lineno"> 4834</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04835" name="l04835"></a><span class="lineno"> 4835</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04836" name="l04836"></a><span class="lineno"> 4836</span> </div>
+<div class="line"><a id="l04837" name="l04837"></a><span class="lineno"> 4837</span>    <span class="keyword">module</span> subroutine mult_lq_mtx(lside, trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04838" name="l04838"></a><span class="lineno"> 4838</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04839" name="l04839"></a><span class="lineno"> 4839</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04840" name="l04840"></a><span class="lineno"> 4840</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04841" name="l04841"></a><span class="lineno"> 4841</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04842" name="l04842"></a><span class="lineno"> 4842</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04843" name="l04843"></a><span class="lineno"> 4843</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04844" name="l04844"></a><span class="lineno"> 4844</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04845" name="l04845"></a><span class="lineno"> 4845</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04846" name="l04846"></a><span class="lineno"> 4846</span> </div>
+<div class="line"><a id="l04847" name="l04847"></a><span class="lineno"> 4847</span>    <span class="keyword">module</span> subroutine mult_lq_mtx_cmplx(lside, trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04848" name="l04848"></a><span class="lineno"> 4848</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, trans</div>
+<div class="line"><a id="l04849" name="l04849"></a><span class="lineno"> 4849</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04850" name="l04850"></a><span class="lineno"> 4850</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04851" name="l04851"></a><span class="lineno"> 4851</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: c</div>
+<div class="line"><a id="l04852" name="l04852"></a><span class="lineno"> 4852</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
 <div class="line"><a id="l04853" name="l04853"></a><span class="lineno"> 4853</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04854" name="l04854"></a><span class="lineno"> 4854</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
-<div class="line"><a id="l04855" name="l04855"></a><span class="lineno"> 4855</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04856" name="l04856"></a><span class="lineno"> 4856</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04857" name="l04857"></a><span class="lineno"> 4857</span>    </div>
-<div class="line"><a id="l04858" name="l04858"></a><span class="lineno"> 4858</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_svd(a, b, s, arnk, work, olwork, err)</div>
-<div class="line"><a id="l04859" name="l04859"></a><span class="lineno"> 4859</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04860" name="l04860"></a><span class="lineno"> 4860</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04861" name="l04861"></a><span class="lineno"> 4861</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work, s</div>
-<div class="line"><a id="l04862" name="l04862"></a><span class="lineno"> 4862</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04863" name="l04863"></a><span class="lineno"> 4863</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04864" name="l04864"></a><span class="lineno"> 4864</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04865" name="l04865"></a><span class="lineno"> 4865</span>    </div>
-<div class="line"><a id="l04866" name="l04866"></a><span class="lineno"> 4866</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_svd_cmplx(a, b, s, arnk, work, &amp;</div>
-<div class="line"><a id="l04867" name="l04867"></a><span class="lineno"> 4867</span>            olwork, rwork, err)</div>
-<div class="line"><a id="l04868" name="l04868"></a><span class="lineno"> 4868</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04869" name="l04869"></a><span class="lineno"> 4869</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04870" name="l04870"></a><span class="lineno"> 4870</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04871" name="l04871"></a><span class="lineno"> 4871</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork, s</div>
-<div class="line"><a id="l04872" name="l04872"></a><span class="lineno"> 4872</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04873" name="l04873"></a><span class="lineno"> 4873</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04874" name="l04874"></a><span class="lineno"> 4874</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04875" name="l04875"></a><span class="lineno"> 4875</span>    </div>
-<div class="line"><a id="l04876" name="l04876"></a><span class="lineno"> 4876</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_svd(a, b, s, arnk, work, olwork, err)</div>
-<div class="line"><a id="l04877" name="l04877"></a><span class="lineno"> 4877</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04878" name="l04878"></a><span class="lineno"> 4878</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04879" name="l04879"></a><span class="lineno"> 4879</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04880" name="l04880"></a><span class="lineno"> 4880</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work, s</div>
-<div class="line"><a id="l04881" name="l04881"></a><span class="lineno"> 4881</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04882" name="l04882"></a><span class="lineno"> 4882</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04883" name="l04883"></a><span class="lineno"> 4883</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04884" name="l04884"></a><span class="lineno"> 4884</span>    </div>
-<div class="line"><a id="l04885" name="l04885"></a><span class="lineno"> 4885</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_svd_cmplx(a, b, s, arnk, work, &amp;</div>
-<div class="line"><a id="l04886" name="l04886"></a><span class="lineno"> 4886</span>            olwork, rwork, err)</div>
-<div class="line"><a id="l04887" name="l04887"></a><span class="lineno"> 4887</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04888" name="l04888"></a><span class="lineno"> 4888</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04889" name="l04889"></a><span class="lineno"> 4889</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
-<div class="line"><a id="l04890" name="l04890"></a><span class="lineno"> 4890</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04891" name="l04891"></a><span class="lineno"> 4891</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork, s</div>
-<div class="line"><a id="l04892" name="l04892"></a><span class="lineno"> 4892</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04893" name="l04893"></a><span class="lineno"> 4893</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04894" name="l04894"></a><span class="lineno"> 4894</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04895" name="l04895"></a><span class="lineno"> 4895</span>    </div>
-<div class="line"><a id="l04896" name="l04896"></a><span class="lineno"> 4896</span>    <span class="keyword">module</span> subroutine mtx_inverse_dbl(a, iwork, work, olwork, err)</div>
-<div class="line"><a id="l04897" name="l04897"></a><span class="lineno"> 4897</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04898" name="l04898"></a><span class="lineno"> 4898</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l04899" name="l04899"></a><span class="lineno"> 4899</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04900" name="l04900"></a><span class="lineno"> 4900</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04901" name="l04901"></a><span class="lineno"> 4901</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04902" name="l04902"></a><span class="lineno"> 4902</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04903" name="l04903"></a><span class="lineno"> 4903</span> </div>
-<div class="line"><a id="l04904" name="l04904"></a><span class="lineno"> 4904</span>    <span class="keyword">module</span> subroutine mtx_inverse_cmplx(a, iwork, work, olwork, err)</div>
-<div class="line"><a id="l04905" name="l04905"></a><span class="lineno"> 4905</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04906" name="l04906"></a><span class="lineno"> 4906</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l04907" name="l04907"></a><span class="lineno"> 4907</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04908" name="l04908"></a><span class="lineno"> 4908</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04854" name="l04854"></a><span class="lineno"> 4854</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04855" name="l04855"></a><span class="lineno"> 4855</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04856" name="l04856"></a><span class="lineno"> 4856</span> </div>
+<div class="line"><a id="l04857" name="l04857"></a><span class="lineno"> 4857</span>    <span class="keyword">module</span> subroutine mult_lq_vec(trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04858" name="l04858"></a><span class="lineno"> 4858</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04859" name="l04859"></a><span class="lineno"> 4859</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04860" name="l04860"></a><span class="lineno"> 4860</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04861" name="l04861"></a><span class="lineno"> 4861</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04862" name="l04862"></a><span class="lineno"> 4862</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04863" name="l04863"></a><span class="lineno"> 4863</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04864" name="l04864"></a><span class="lineno"> 4864</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04865" name="l04865"></a><span class="lineno"> 4865</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04866" name="l04866"></a><span class="lineno"> 4866</span> </div>
+<div class="line"><a id="l04867" name="l04867"></a><span class="lineno"> 4867</span>    <span class="keyword">module</span> subroutine mult_lq_vec_cmplx(trans, a, tau, c, work, olwork, err)</div>
+<div class="line"><a id="l04868" name="l04868"></a><span class="lineno"> 4868</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l04869" name="l04869"></a><span class="lineno"> 4869</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04870" name="l04870"></a><span class="lineno"> 4870</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04871" name="l04871"></a><span class="lineno"> 4871</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: c</div>
+<div class="line"><a id="l04872" name="l04872"></a><span class="lineno"> 4872</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l04873" name="l04873"></a><span class="lineno"> 4873</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04874" name="l04874"></a><span class="lineno"> 4874</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04875" name="l04875"></a><span class="lineno"> 4875</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04876" name="l04876"></a><span class="lineno"> 4876</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l04877" name="l04877"></a><span class="lineno"> 4877</span> </div>
+<div class="line"><a id="l04878" name="l04878"></a><span class="lineno"> 4878</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l04879" name="l04879"></a><span class="lineno"> 4879</span><span class="comment">! LINALG_SOLVE.F90</span></div>
+<div class="line"><a id="l04880" name="l04880"></a><span class="lineno"> 4880</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l04881" name="l04881"></a><span class="lineno"> 4881</span><span class="keyword">interface</span></div>
+<div class="line"><a id="l04882" name="l04882"></a><span class="lineno"> 4882</span>    <span class="keyword">module</span> subroutine solve_tri_mtx(lside, upper, trans, nounit, alpha, a, b, err)</div>
+<div class="line"><a id="l04883" name="l04883"></a><span class="lineno"> 4883</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, upper, trans, nounit</div>
+<div class="line"><a id="l04884" name="l04884"></a><span class="lineno"> 4884</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04885" name="l04885"></a><span class="lineno"> 4885</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04886" name="l04886"></a><span class="lineno"> 4886</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04887" name="l04887"></a><span class="lineno"> 4887</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04888" name="l04888"></a><span class="lineno"> 4888</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04889" name="l04889"></a><span class="lineno"> 4889</span>    </div>
+<div class="line"><a id="l04890" name="l04890"></a><span class="lineno"> 4890</span>    <span class="keyword">module</span> subroutine solve_tri_mtx_cmplx(lside, upper, trans, nounit, alpha, a, b, err)</div>
+<div class="line"><a id="l04891" name="l04891"></a><span class="lineno"> 4891</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside, upper, trans, nounit</div>
+<div class="line"><a id="l04892" name="l04892"></a><span class="lineno"> 4892</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l04893" name="l04893"></a><span class="lineno"> 4893</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04894" name="l04894"></a><span class="lineno"> 4894</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04895" name="l04895"></a><span class="lineno"> 4895</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04896" name="l04896"></a><span class="lineno"> 4896</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04897" name="l04897"></a><span class="lineno"> 4897</span> </div>
+<div class="line"><a id="l04898" name="l04898"></a><span class="lineno"> 4898</span>    <span class="keyword">module</span> subroutine solve_tri_vec(upper, trans, nounit, a, x, err)</div>
+<div class="line"><a id="l04899" name="l04899"></a><span class="lineno"> 4899</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper, trans, nounit</div>
+<div class="line"><a id="l04900" name="l04900"></a><span class="lineno"> 4900</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04901" name="l04901"></a><span class="lineno"> 4901</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l04902" name="l04902"></a><span class="lineno"> 4902</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04903" name="l04903"></a><span class="lineno"> 4903</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04904" name="l04904"></a><span class="lineno"> 4904</span>    </div>
+<div class="line"><a id="l04905" name="l04905"></a><span class="lineno"> 4905</span>    <span class="keyword">module</span> subroutine solve_tri_vec_cmplx(upper, trans, nounit, a, x, err)</div>
+<div class="line"><a id="l04906" name="l04906"></a><span class="lineno"> 4906</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper, trans, nounit</div>
+<div class="line"><a id="l04907" name="l04907"></a><span class="lineno"> 4907</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04908" name="l04908"></a><span class="lineno"> 4908</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
 <div class="line"><a id="l04909" name="l04909"></a><span class="lineno"> 4909</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04910" name="l04910"></a><span class="lineno"> 4910</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l04911" name="l04911"></a><span class="lineno"> 4911</span>    </div>
-<div class="line"><a id="l04912" name="l04912"></a><span class="lineno"> 4912</span>    <span class="keyword">module</span> subroutine mtx_pinverse_dbl(a, ainv, tol, work, olwork, err)</div>
-<div class="line"><a id="l04913" name="l04913"></a><span class="lineno"> 4913</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04914" name="l04914"></a><span class="lineno"> 4914</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: ainv</div>
-<div class="line"><a id="l04915" name="l04915"></a><span class="lineno"> 4915</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l04916" name="l04916"></a><span class="lineno"> 4916</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04917" name="l04917"></a><span class="lineno"> 4917</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04918" name="l04918"></a><span class="lineno"> 4918</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04919" name="l04919"></a><span class="lineno"> 4919</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04920" name="l04920"></a><span class="lineno"> 4920</span>    </div>
-<div class="line"><a id="l04921" name="l04921"></a><span class="lineno"> 4921</span>    <span class="keyword">module</span> subroutine mtx_pinverse_cmplx(a, ainv, tol, work, olwork, rwork, err)</div>
-<div class="line"><a id="l04922" name="l04922"></a><span class="lineno"> 4922</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04923" name="l04923"></a><span class="lineno"> 4923</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: ainv</div>
-<div class="line"><a id="l04924" name="l04924"></a><span class="lineno"> 4924</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l04925" name="l04925"></a><span class="lineno"> 4925</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
-<div class="line"><a id="l04926" name="l04926"></a><span class="lineno"> 4926</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04927" name="l04927"></a><span class="lineno"> 4927</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: rwork</div>
-<div class="line"><a id="l04928" name="l04928"></a><span class="lineno"> 4928</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04929" name="l04929"></a><span class="lineno"> 4929</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04930" name="l04930"></a><span class="lineno"> 4930</span> </div>
-<div class="line"><a id="l04931" name="l04931"></a><span class="lineno"> 4931</span>    <span class="keyword">module</span> subroutine solve_lq_mtx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04932" name="l04932"></a><span class="lineno"> 4932</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04933" name="l04933"></a><span class="lineno"> 4933</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04934" name="l04934"></a><span class="lineno"> 4934</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04935" name="l04935"></a><span class="lineno"> 4935</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04936" name="l04936"></a><span class="lineno"> 4936</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04912" name="l04912"></a><span class="lineno"> 4912</span>    <span class="keyword">module</span> subroutine solve_lu_mtx(a, ipvt, b, err)</div>
+<div class="line"><a id="l04913" name="l04913"></a><span class="lineno"> 4913</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04914" name="l04914"></a><span class="lineno"> 4914</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04915" name="l04915"></a><span class="lineno"> 4915</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04916" name="l04916"></a><span class="lineno"> 4916</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04917" name="l04917"></a><span class="lineno"> 4917</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04918" name="l04918"></a><span class="lineno"> 4918</span> </div>
+<div class="line"><a id="l04919" name="l04919"></a><span class="lineno"> 4919</span>    <span class="keyword">module</span> subroutine solve_lu_mtx_cmplx(a, ipvt, b, err)</div>
+<div class="line"><a id="l04920" name="l04920"></a><span class="lineno"> 4920</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04921" name="l04921"></a><span class="lineno"> 4921</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04922" name="l04922"></a><span class="lineno"> 4922</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04923" name="l04923"></a><span class="lineno"> 4923</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04924" name="l04924"></a><span class="lineno"> 4924</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04925" name="l04925"></a><span class="lineno"> 4925</span>    </div>
+<div class="line"><a id="l04926" name="l04926"></a><span class="lineno"> 4926</span>    <span class="keyword">module</span> subroutine solve_lu_vec(a, ipvt, b, err)</div>
+<div class="line"><a id="l04927" name="l04927"></a><span class="lineno"> 4927</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04928" name="l04928"></a><span class="lineno"> 4928</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04929" name="l04929"></a><span class="lineno"> 4929</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04930" name="l04930"></a><span class="lineno"> 4930</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04931" name="l04931"></a><span class="lineno"> 4931</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04932" name="l04932"></a><span class="lineno"> 4932</span>    </div>
+<div class="line"><a id="l04933" name="l04933"></a><span class="lineno"> 4933</span>    <span class="keyword">module</span> subroutine solve_lu_vec_cmplx(a, ipvt, b, err)</div>
+<div class="line"><a id="l04934" name="l04934"></a><span class="lineno"> 4934</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04935" name="l04935"></a><span class="lineno"> 4935</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l04936" name="l04936"></a><span class="lineno"> 4936</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
 <div class="line"><a id="l04937" name="l04937"></a><span class="lineno"> 4937</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l04938" name="l04938"></a><span class="lineno"> 4938</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04939" name="l04939"></a><span class="lineno"> 4939</span> </div>
-<div class="line"><a id="l04940" name="l04940"></a><span class="lineno"> 4940</span>    <span class="keyword">module</span> subroutine solve_lq_mtx_cmplx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04941" name="l04941"></a><span class="lineno"> 4941</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04942" name="l04942"></a><span class="lineno"> 4942</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04943" name="l04943"></a><span class="lineno"> 4943</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l04944" name="l04944"></a><span class="lineno"> 4944</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04945" name="l04945"></a><span class="lineno"> 4945</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04946" name="l04946"></a><span class="lineno"> 4946</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04947" name="l04947"></a><span class="lineno"> 4947</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04948" name="l04948"></a><span class="lineno"> 4948</span> </div>
-<div class="line"><a id="l04949" name="l04949"></a><span class="lineno"> 4949</span>    <span class="keyword">module</span> subroutine solve_lq_vec(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04950" name="l04950"></a><span class="lineno"> 4950</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04951" name="l04951"></a><span class="lineno"> 4951</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04952" name="l04952"></a><span class="lineno"> 4952</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04953" name="l04953"></a><span class="lineno"> 4953</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04954" name="l04954"></a><span class="lineno"> 4954</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04955" name="l04955"></a><span class="lineno"> 4955</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04956" name="l04956"></a><span class="lineno"> 4956</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04957" name="l04957"></a><span class="lineno"> 4957</span> </div>
-<div class="line"><a id="l04958" name="l04958"></a><span class="lineno"> 4958</span>    <span class="keyword">module</span> subroutine solve_lq_vec_cmplx(a, tau, b, work, olwork, err)</div>
-<div class="line"><a id="l04959" name="l04959"></a><span class="lineno"> 4959</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04960" name="l04960"></a><span class="lineno"> 4960</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
-<div class="line"><a id="l04961" name="l04961"></a><span class="lineno"> 4961</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l04962" name="l04962"></a><span class="lineno"> 4962</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04963" name="l04963"></a><span class="lineno"> 4963</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04964" name="l04964"></a><span class="lineno"> 4964</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04965" name="l04965"></a><span class="lineno"> 4965</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04966" name="l04966"></a><span class="lineno"> 4966</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l04967" name="l04967"></a><span class="lineno"> 4967</span> </div>
-<div class="line"><a id="l04968" name="l04968"></a><span class="lineno"> 4968</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l04969" name="l04969"></a><span class="lineno"> 4969</span><span class="comment">! LINALG_EIGEN.F90</span></div>
-<div class="line"><a id="l04970" name="l04970"></a><span class="lineno"> 4970</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l04971" name="l04971"></a><span class="lineno"> 4971</span><span class="keyword">interface</span></div>
-<div class="line"><a id="l04972" name="l04972"></a><span class="lineno"> 4972</span>    <span class="keyword">module</span> subroutine eigen_symm(vecs, a, vals, work, olwork, err)</div>
-<div class="line"><a id="l04973" name="l04973"></a><span class="lineno"> 4973</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: vecs</div>
-<div class="line"><a id="l04974" name="l04974"></a><span class="lineno"> 4974</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04975" name="l04975"></a><span class="lineno"> 4975</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
-<div class="line"><a id="l04976" name="l04976"></a><span class="lineno"> 4976</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04977" name="l04977"></a><span class="lineno"> 4977</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04978" name="l04978"></a><span class="lineno"> 4978</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04979" name="l04979"></a><span class="lineno"> 4979</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04980" name="l04980"></a><span class="lineno"> 4980</span>    </div>
-<div class="line"><a id="l04981" name="l04981"></a><span class="lineno"> 4981</span>    <span class="keyword">module</span> subroutine eigen_asymm(a, vals, vecs, work, olwork, err)</div>
-<div class="line"><a id="l04982" name="l04982"></a><span class="lineno"> 4982</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l04983" name="l04983"></a><span class="lineno"> 4983</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
-<div class="line"><a id="l04984" name="l04984"></a><span class="lineno"> 4984</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
-<div class="line"><a id="l04985" name="l04985"></a><span class="lineno"> 4985</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04986" name="l04986"></a><span class="lineno"> 4986</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04987" name="l04987"></a><span class="lineno"> 4987</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04988" name="l04988"></a><span class="lineno"> 4988</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04989" name="l04989"></a><span class="lineno"> 4989</span>    </div>
-<div class="line"><a id="l04990" name="l04990"></a><span class="lineno"> 4990</span>    <span class="keyword">module</span> subroutine eigen_gen(a, b, alpha, beta, vecs, work, olwork, err)</div>
-<div class="line"><a id="l04991" name="l04991"></a><span class="lineno"> 4991</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
-<div class="line"><a id="l04992" name="l04992"></a><span class="lineno"> 4992</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: alpha</div>
-<div class="line"><a id="l04993" name="l04993"></a><span class="lineno"> 4993</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: beta</div>
-<div class="line"><a id="l04994" name="l04994"></a><span class="lineno"> 4994</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
-<div class="line"><a id="l04995" name="l04995"></a><span class="lineno"> 4995</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l04996" name="l04996"></a><span class="lineno"> 4996</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l04997" name="l04997"></a><span class="lineno"> 4997</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l04998" name="l04998"></a><span class="lineno"> 4998</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l04999" name="l04999"></a><span class="lineno"> 4999</span> </div>
-<div class="line"><a id="l05000" name="l05000"></a><span class="lineno"> 5000</span>    <span class="keyword">module</span> subroutine eigen_cmplx(a, vals, vecs, work, olwork, rwork, err)</div>
-<div class="line"><a id="l05001" name="l05001"></a><span class="lineno"> 5001</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l05002" name="l05002"></a><span class="lineno"> 5002</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
-<div class="line"><a id="l05003" name="l05003"></a><span class="lineno"> 5003</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
-<div class="line"><a id="l05004" name="l05004"></a><span class="lineno"> 5004</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l05005" name="l05005"></a><span class="lineno"> 5005</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
-<div class="line"><a id="l05006" name="l05006"></a><span class="lineno"> 5006</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l05007" name="l05007"></a><span class="lineno"> 5007</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l05008" name="l05008"></a><span class="lineno"> 5008</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05009" name="l05009"></a><span class="lineno"> 5009</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l05010" name="l05010"></a><span class="lineno"> 5010</span> </div>
-<div class="line"><a id="l05011" name="l05011"></a><span class="lineno"> 5011</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l05012" name="l05012"></a><span class="lineno"> 5012</span><span class="comment">! LINALG_SORTING.F90</span></div>
-<div class="line"><a id="l05013" name="l05013"></a><span class="lineno"> 5013</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l05014" name="l05014"></a><span class="lineno"> 5014</span><span class="keyword">interface</span></div>
-<div class="line"><a id="l05015" name="l05015"></a><span class="lineno"> 5015</span>    <span class="keyword">module</span> subroutine sort_dbl_array(x, ascend)</div>
-<div class="line"><a id="l05016" name="l05016"></a><span class="lineno"> 5016</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l05017" name="l05017"></a><span class="lineno"> 5017</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05018" name="l05018"></a><span class="lineno"> 5018</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05019" name="l05019"></a><span class="lineno"> 5019</span>    </div>
-<div class="line"><a id="l05020" name="l05020"></a><span class="lineno"> 5020</span>    <span class="keyword">module</span> subroutine sort_dbl_array_ind(x, ind, ascend, err)</div>
-<div class="line"><a id="l05021" name="l05021"></a><span class="lineno"> 5021</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l05022" name="l05022"></a><span class="lineno"> 5022</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: ind</div>
-<div class="line"><a id="l05023" name="l05023"></a><span class="lineno"> 5023</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05024" name="l05024"></a><span class="lineno"> 5024</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l05025" name="l05025"></a><span class="lineno"> 5025</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05026" name="l05026"></a><span class="lineno"> 5026</span> </div>
-<div class="line"><a id="l05027" name="l05027"></a><span class="lineno"> 5027</span>    <span class="keyword">module</span> subroutine sort_cmplx_array(x, ascend)</div>
-<div class="line"><a id="l05028" name="l05028"></a><span class="lineno"> 5028</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l05029" name="l05029"></a><span class="lineno"> 5029</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05030" name="l05030"></a><span class="lineno"> 5030</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05031" name="l05031"></a><span class="lineno"> 5031</span> </div>
-<div class="line"><a id="l05032" name="l05032"></a><span class="lineno"> 5032</span>    <span class="keyword">module</span> subroutine sort_cmplx_array_ind(x, ind, ascend, err)</div>
-<div class="line"><a id="l05033" name="l05033"></a><span class="lineno"> 5033</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l05034" name="l05034"></a><span class="lineno"> 5034</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: ind</div>
-<div class="line"><a id="l05035" name="l05035"></a><span class="lineno"> 5035</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05036" name="l05036"></a><span class="lineno"> 5036</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l05037" name="l05037"></a><span class="lineno"> 5037</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05038" name="l05038"></a><span class="lineno"> 5038</span> </div>
-<div class="line"><a id="l05039" name="l05039"></a><span class="lineno"> 5039</span>    <span class="keyword">module</span> subroutine sort_eigen_cmplx(vals, vecs, ascend, err)</div>
-<div class="line"><a id="l05040" name="l05040"></a><span class="lineno"> 5040</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
-<div class="line"><a id="l05041" name="l05041"></a><span class="lineno"> 5041</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
-<div class="line"><a id="l05042" name="l05042"></a><span class="lineno"> 5042</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05043" name="l05043"></a><span class="lineno"> 5043</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l05044" name="l05044"></a><span class="lineno"> 5044</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05045" name="l05045"></a><span class="lineno"> 5045</span> </div>
-<div class="line"><a id="l05046" name="l05046"></a><span class="lineno"> 5046</span>    <span class="keyword">module</span> subroutine sort_eigen_dbl(vals, vecs, ascend, err)</div>
-<div class="line"><a id="l05047" name="l05047"></a><span class="lineno"> 5047</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
-<div class="line"><a id="l05048" name="l05048"></a><span class="lineno"> 5048</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
-<div class="line"><a id="l05049" name="l05049"></a><span class="lineno"> 5049</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
-<div class="line"><a id="l05050" name="l05050"></a><span class="lineno"> 5050</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l05051" name="l05051"></a><span class="lineno"> 5051</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l05052" name="l05052"></a><span class="lineno"> 5052</span> </div>
-<div class="line"><a id="l05053" name="l05053"></a><span class="lineno"> 5053</span><span class="keyword">end interface</span></div>
-<div class="line"><a id="l05054" name="l05054"></a><span class="lineno"> 5054</span> </div>
-<div class="line"><a id="l05055" name="l05055"></a><span class="lineno"> 5055</span><span class="keyword">end module</span></div>
-<div class="ttc" id="ainterfacelinalg_1_1band__diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1band__diag__mtx__mult.html">linalg::band_diag_mtx_mult</a></div><div class="ttdoc">Multiplies a banded matrix, A, with a diagonal matrix, B, such that A = alpha * A * B,...</div><div class="ttdef"><b>Definition</b> <a href="#l04002">linalg.f90:4002</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1band__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1band__mtx__mult.html">linalg::band_mtx_mult</a></div><div class="ttdoc">Multiplies a banded matrix, A, by a vector x such that alpha * op(A) * x + beta * y = y.</div><div class="ttdef"><b>Definition</b> <a href="#l03897">linalg.f90:3897</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1band__mtx__to__full__mtx_html"><div class="ttname"><a href="interfacelinalg_1_1band__mtx__to__full__mtx.html">linalg::band_mtx_to_full_mtx</a></div><div class="ttdoc">Converts a banded matrix stored in dense form to a full matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03939">linalg.f90:3939</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l01574">linalg.f90:1574</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__downdate_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__downdate.html">linalg::cholesky_rank1_downdate</a></div><div class="ttdoc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="#l01780">linalg.f90:1780</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__update.html">linalg::cholesky_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="#l01673">linalg.f90:1673</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1det_html"><div class="ttname"><a href="interfacelinalg_1_1det.html">linalg::det</a></div><div class="ttdoc">Computes the determinant of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00571">linalg.f90:571</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="#l00466">linalg.f90:466</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03240">linalg.f90:3240</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="#l03551">linalg.f90:3551</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="#l00854">linalg.f90:854</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="#l01168">linalg.f90:1168</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03437">linalg.f90:3437</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00732">linalg.f90:732</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__inverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__inverse.html">linalg::mtx_inverse</a></div><div class="ttdoc">Computes the inverse of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l02920">linalg.f90:2920</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="#l00296">linalg.f90:296</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__pinverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__pinverse.html">linalg::mtx_pinverse</a></div><div class="ttdoc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition o...</div><div class="ttdef"><b>Definition</b> <a href="#l03026">linalg.f90:3026</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mtx__rank_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__rank.html">linalg::mtx_rank</a></div><div class="ttdoc">Computes the rank of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00538">linalg.f90:538</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mult__lq_html"><div class="ttname"><a href="interfacelinalg_1_1mult__lq.html">linalg::mult_lq</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l03700">linalg.f90:3700</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mult__qr_html"><div class="ttname"><a href="interfacelinalg_1_1mult__qr.html">linalg::mult_qr</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l01325">linalg.f90:1325</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1mult__rz_html"><div class="ttname"><a href="interfacelinalg_1_1mult__rz.html">linalg::mult_rz</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l01944">linalg.f90:1944</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l01008">linalg.f90:1008</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1qr__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1qr__rank1__update.html">linalg::qr_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where , and  such that ....</div><div class="ttdef"><b>Definition</b> <a href="#l01475">linalg.f90:1475</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="#l00331">linalg.f90:331</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1recip__mult__array_html"><div class="ttname"><a href="interfacelinalg_1_1recip__mult__array.html">linalg::recip_mult_array</a></div><div class="ttdoc">Multiplies a vector by the reciprocal of a real scalar.</div><div class="ttdef"><b>Definition</b> <a href="#l00612">linalg.f90:612</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1rz__factor_html"><div class="ttname"><a href="interfacelinalg_1_1rz__factor.html">linalg::rz_factor</a></div><div class="ttdoc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that ....</div><div class="ttdef"><b>Definition</b> <a href="#l01853">linalg.f90:1853</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02532">linalg.f90:2532</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__full_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__full.html">linalg::solve_least_squares_full</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns,...</div><div class="ttdef"><b>Definition</b> <a href="#l02723">linalg.f90:2723</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__svd_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__svd.html">linalg::solve_least_squares_svd</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns using a singular va...</div><div class="ttdef"><b>Definition</b> <a href="#l02825">linalg.f90:2825</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares.html">linalg::solve_least_squares</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns....</div><div class="ttdef"><b>Definition</b> <a href="#l02622">linalg.f90:2622</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lq_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lq.html">linalg::solve_lq</a></div><div class="ttdoc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M.</div><div class="ttdef"><b>Definition</b> <a href="#l03795">linalg.f90:3795</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02291">linalg.f90:2291</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="#l02426">linalg.f90:2426</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02203">linalg.f90:2203</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1sort_html"><div class="ttname"><a href="interfacelinalg_1_1sort.html">linalg::sort</a></div><div class="ttdoc">Sorts an array.</div><div class="ttdef"><b>Definition</b> <a href="#l03323">linalg.f90:3323</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="#l02069">linalg.f90:2069</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1swap_html"><div class="ttname"><a href="interfacelinalg_1_1swap.html">linalg::swap</a></div><div class="ttdoc">Swaps the contents of two arrays.</div><div class="ttdef"><b>Definition</b> <a href="#l00593">linalg.f90:593</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1trace_html"><div class="ttname"><a href="interfacelinalg_1_1trace.html">linalg::trace</a></div><div class="ttdoc">Computes the trace of a matrix (the sum of the main diagonal elements).</div><div class="ttdef"><b>Definition</b> <a href="#l00490">linalg.f90:490</a></div></div>
-<div class="ttc" id="ainterfacelinalg_1_1tri__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1tri__mtx__mult.html">linalg::tri_mtx_mult</a></div><div class="ttdoc">Computes the triangular matrix operation: , or , where A is a triangular matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00646">linalg.f90:646</a></div></div>
+<div class="line"><a id="l04939" name="l04939"></a><span class="lineno"> 4939</span>    </div>
+<div class="line"><a id="l04940" name="l04940"></a><span class="lineno"> 4940</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_mtx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l04941" name="l04941"></a><span class="lineno"> 4941</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l04942" name="l04942"></a><span class="lineno"> 4942</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04943" name="l04943"></a><span class="lineno"> 4943</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04944" name="l04944"></a><span class="lineno"> 4944</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04945" name="l04945"></a><span class="lineno"> 4945</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04946" name="l04946"></a><span class="lineno"> 4946</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04947" name="l04947"></a><span class="lineno"> 4947</span>    </div>
+<div class="line"><a id="l04948" name="l04948"></a><span class="lineno"> 4948</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_mtx_cmplx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l04949" name="l04949"></a><span class="lineno"> 4949</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l04950" name="l04950"></a><span class="lineno"> 4950</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04951" name="l04951"></a><span class="lineno"> 4951</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04952" name="l04952"></a><span class="lineno"> 4952</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04953" name="l04953"></a><span class="lineno"> 4953</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04954" name="l04954"></a><span class="lineno"> 4954</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04955" name="l04955"></a><span class="lineno"> 4955</span>    </div>
+<div class="line"><a id="l04956" name="l04956"></a><span class="lineno"> 4956</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_vec(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l04957" name="l04957"></a><span class="lineno"> 4957</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04958" name="l04958"></a><span class="lineno"> 4958</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04959" name="l04959"></a><span class="lineno"> 4959</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04960" name="l04960"></a><span class="lineno"> 4960</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04961" name="l04961"></a><span class="lineno"> 4961</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04962" name="l04962"></a><span class="lineno"> 4962</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04963" name="l04963"></a><span class="lineno"> 4963</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04964" name="l04964"></a><span class="lineno"> 4964</span>    </div>
+<div class="line"><a id="l04965" name="l04965"></a><span class="lineno"> 4965</span>    <span class="keyword">module</span> subroutine solve_qr_no_pivot_vec_cmplx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l04966" name="l04966"></a><span class="lineno"> 4966</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04967" name="l04967"></a><span class="lineno"> 4967</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04968" name="l04968"></a><span class="lineno"> 4968</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04969" name="l04969"></a><span class="lineno"> 4969</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04970" name="l04970"></a><span class="lineno"> 4970</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04971" name="l04971"></a><span class="lineno"> 4971</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04972" name="l04972"></a><span class="lineno"> 4972</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04973" name="l04973"></a><span class="lineno"> 4973</span>    </div>
+<div class="line"><a id="l04974" name="l04974"></a><span class="lineno"> 4974</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_mtx(a, tau, jpvt, b, work, olwork, err)</div>
+<div class="line"><a id="l04975" name="l04975"></a><span class="lineno"> 4975</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04976" name="l04976"></a><span class="lineno"> 4976</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04977" name="l04977"></a><span class="lineno"> 4977</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l04978" name="l04978"></a><span class="lineno"> 4978</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04979" name="l04979"></a><span class="lineno"> 4979</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04980" name="l04980"></a><span class="lineno"> 4980</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04981" name="l04981"></a><span class="lineno"> 4981</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04982" name="l04982"></a><span class="lineno"> 4982</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04983" name="l04983"></a><span class="lineno"> 4983</span>    </div>
+<div class="line"><a id="l04984" name="l04984"></a><span class="lineno"> 4984</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_mtx_cmplx(a, tau, jpvt, b, work, olwork, err)</div>
+<div class="line"><a id="l04985" name="l04985"></a><span class="lineno"> 4985</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04986" name="l04986"></a><span class="lineno"> 4986</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04987" name="l04987"></a><span class="lineno"> 4987</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l04988" name="l04988"></a><span class="lineno"> 4988</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l04989" name="l04989"></a><span class="lineno"> 4989</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l04990" name="l04990"></a><span class="lineno"> 4990</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l04991" name="l04991"></a><span class="lineno"> 4991</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l04992" name="l04992"></a><span class="lineno"> 4992</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l04993" name="l04993"></a><span class="lineno"> 4993</span>    </div>
+<div class="line"><a id="l04994" name="l04994"></a><span class="lineno"> 4994</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_vec(a, tau, jpvt, b, work, olwork, err)</div>
+<div class="line"><a id="l04995" name="l04995"></a><span class="lineno"> 4995</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l04996" name="l04996"></a><span class="lineno"> 4996</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l04997" name="l04997"></a><span class="lineno"> 4997</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l04998" name="l04998"></a><span class="lineno"> 4998</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l04999" name="l04999"></a><span class="lineno"> 4999</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05000" name="l05000"></a><span class="lineno"> 5000</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05001" name="l05001"></a><span class="lineno"> 5001</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05002" name="l05002"></a><span class="lineno"> 5002</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05003" name="l05003"></a><span class="lineno"> 5003</span>    </div>
+<div class="line"><a id="l05004" name="l05004"></a><span class="lineno"> 5004</span>    <span class="keyword">module</span> subroutine solve_qr_pivot_vec_cmplx(a, tau, jpvt, b, work, olwork, err)</div>
+<div class="line"><a id="l05005" name="l05005"></a><span class="lineno"> 5005</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05006" name="l05006"></a><span class="lineno"> 5006</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l05007" name="l05007"></a><span class="lineno"> 5007</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: jpvt</div>
+<div class="line"><a id="l05008" name="l05008"></a><span class="lineno"> 5008</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05009" name="l05009"></a><span class="lineno"> 5009</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05010" name="l05010"></a><span class="lineno"> 5010</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05011" name="l05011"></a><span class="lineno"> 5011</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05012" name="l05012"></a><span class="lineno"> 5012</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05013" name="l05013"></a><span class="lineno"> 5013</span>    </div>
+<div class="line"><a id="l05014" name="l05014"></a><span class="lineno"> 5014</span>    <span class="keyword">module</span> subroutine solve_cholesky_mtx(upper, a, b, err)</div>
+<div class="line"><a id="l05015" name="l05015"></a><span class="lineno"> 5015</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l05016" name="l05016"></a><span class="lineno"> 5016</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05017" name="l05017"></a><span class="lineno"> 5017</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l05018" name="l05018"></a><span class="lineno"> 5018</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05019" name="l05019"></a><span class="lineno"> 5019</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05020" name="l05020"></a><span class="lineno"> 5020</span>    </div>
+<div class="line"><a id="l05021" name="l05021"></a><span class="lineno"> 5021</span>    <span class="keyword">module</span> subroutine solve_cholesky_mtx_cmplx(upper, a, b, err)</div>
+<div class="line"><a id="l05022" name="l05022"></a><span class="lineno"> 5022</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l05023" name="l05023"></a><span class="lineno"> 5023</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05024" name="l05024"></a><span class="lineno"> 5024</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l05025" name="l05025"></a><span class="lineno"> 5025</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05026" name="l05026"></a><span class="lineno"> 5026</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05027" name="l05027"></a><span class="lineno"> 5027</span>    </div>
+<div class="line"><a id="l05028" name="l05028"></a><span class="lineno"> 5028</span>    <span class="keyword">module</span> subroutine solve_cholesky_vec(upper, a, b, err)</div>
+<div class="line"><a id="l05029" name="l05029"></a><span class="lineno"> 5029</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l05030" name="l05030"></a><span class="lineno"> 5030</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05031" name="l05031"></a><span class="lineno"> 5031</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05032" name="l05032"></a><span class="lineno"> 5032</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05033" name="l05033"></a><span class="lineno"> 5033</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05034" name="l05034"></a><span class="lineno"> 5034</span>    </div>
+<div class="line"><a id="l05035" name="l05035"></a><span class="lineno"> 5035</span>    <span class="keyword">module</span> subroutine solve_cholesky_vec_cmplx(upper, a, b, err)</div>
+<div class="line"><a id="l05036" name="l05036"></a><span class="lineno"> 5036</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l05037" name="l05037"></a><span class="lineno"> 5037</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05038" name="l05038"></a><span class="lineno"> 5038</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05039" name="l05039"></a><span class="lineno"> 5039</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05040" name="l05040"></a><span class="lineno"> 5040</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05041" name="l05041"></a><span class="lineno"> 5041</span>    </div>
+<div class="line"><a id="l05042" name="l05042"></a><span class="lineno"> 5042</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx(a, b, work, olwork, err)</div>
+<div class="line"><a id="l05043" name="l05043"></a><span class="lineno"> 5043</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05044" name="l05044"></a><span class="lineno"> 5044</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05045" name="l05045"></a><span class="lineno"> 5045</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05046" name="l05046"></a><span class="lineno"> 5046</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05047" name="l05047"></a><span class="lineno"> 5047</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05048" name="l05048"></a><span class="lineno"> 5048</span>    </div>
+<div class="line"><a id="l05049" name="l05049"></a><span class="lineno"> 5049</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_cmplx(a, b, work, olwork, err)</div>
+<div class="line"><a id="l05050" name="l05050"></a><span class="lineno"> 5050</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05051" name="l05051"></a><span class="lineno"> 5051</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05052" name="l05052"></a><span class="lineno"> 5052</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05053" name="l05053"></a><span class="lineno"> 5053</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05054" name="l05054"></a><span class="lineno"> 5054</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05055" name="l05055"></a><span class="lineno"> 5055</span>    </div>
+<div class="line"><a id="l05056" name="l05056"></a><span class="lineno"> 5056</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec(a, b, work, olwork, err)</div>
+<div class="line"><a id="l05057" name="l05057"></a><span class="lineno"> 5057</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05058" name="l05058"></a><span class="lineno"> 5058</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05059" name="l05059"></a><span class="lineno"> 5059</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05060" name="l05060"></a><span class="lineno"> 5060</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05061" name="l05061"></a><span class="lineno"> 5061</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05062" name="l05062"></a><span class="lineno"> 5062</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05063" name="l05063"></a><span class="lineno"> 5063</span>    </div>
+<div class="line"><a id="l05064" name="l05064"></a><span class="lineno"> 5064</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_cmplx(a, b, work, olwork, err)</div>
+<div class="line"><a id="l05065" name="l05065"></a><span class="lineno"> 5065</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05066" name="l05066"></a><span class="lineno"> 5066</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05067" name="l05067"></a><span class="lineno"> 5067</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05068" name="l05068"></a><span class="lineno"> 5068</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05069" name="l05069"></a><span class="lineno"> 5069</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05070" name="l05070"></a><span class="lineno"> 5070</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05071" name="l05071"></a><span class="lineno"> 5071</span>    </div>
+<div class="line"><a id="l05072" name="l05072"></a><span class="lineno"> 5072</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_pvt(a, b, ipvt, arnk, work, olwork, err)</div>
+<div class="line"><a id="l05073" name="l05073"></a><span class="lineno"> 5073</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05074" name="l05074"></a><span class="lineno"> 5074</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l05075" name="l05075"></a><span class="lineno"> 5075</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05076" name="l05076"></a><span class="lineno"> 5076</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05077" name="l05077"></a><span class="lineno"> 5077</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05078" name="l05078"></a><span class="lineno"> 5078</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05079" name="l05079"></a><span class="lineno"> 5079</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05080" name="l05080"></a><span class="lineno"> 5080</span>    </div>
+<div class="line"><a id="l05081" name="l05081"></a><span class="lineno"> 5081</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_pvt_cmplx(a, b, ipvt, arnk, &amp;</div>
+<div class="line"><a id="l05082" name="l05082"></a><span class="lineno"> 5082</span>            work, olwork, rwork, err)</div>
+<div class="line"><a id="l05083" name="l05083"></a><span class="lineno"> 5083</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05084" name="l05084"></a><span class="lineno"> 5084</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l05085" name="l05085"></a><span class="lineno"> 5085</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05086" name="l05086"></a><span class="lineno"> 5086</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05087" name="l05087"></a><span class="lineno"> 5087</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05088" name="l05088"></a><span class="lineno"> 5088</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l05089" name="l05089"></a><span class="lineno"> 5089</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05090" name="l05090"></a><span class="lineno"> 5090</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05091" name="l05091"></a><span class="lineno"> 5091</span>    </div>
+<div class="line"><a id="l05092" name="l05092"></a><span class="lineno"> 5092</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_pvt(a, b, ipvt, arnk, work, olwork, err)</div>
+<div class="line"><a id="l05093" name="l05093"></a><span class="lineno"> 5093</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05094" name="l05094"></a><span class="lineno"> 5094</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05095" name="l05095"></a><span class="lineno"> 5095</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l05096" name="l05096"></a><span class="lineno"> 5096</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05097" name="l05097"></a><span class="lineno"> 5097</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05098" name="l05098"></a><span class="lineno"> 5098</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05099" name="l05099"></a><span class="lineno"> 5099</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05100" name="l05100"></a><span class="lineno"> 5100</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05101" name="l05101"></a><span class="lineno"> 5101</span>    </div>
+<div class="line"><a id="l05102" name="l05102"></a><span class="lineno"> 5102</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_pvt_cmplx(a, b, ipvt, arnk, &amp;</div>
+<div class="line"><a id="l05103" name="l05103"></a><span class="lineno"> 5103</span>            work, olwork, rwork, err)</div>
+<div class="line"><a id="l05104" name="l05104"></a><span class="lineno"> 5104</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05105" name="l05105"></a><span class="lineno"> 5105</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05106" name="l05106"></a><span class="lineno"> 5106</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l05107" name="l05107"></a><span class="lineno"> 5107</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05108" name="l05108"></a><span class="lineno"> 5108</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05109" name="l05109"></a><span class="lineno"> 5109</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05110" name="l05110"></a><span class="lineno"> 5110</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l05111" name="l05111"></a><span class="lineno"> 5111</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05112" name="l05112"></a><span class="lineno"> 5112</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05113" name="l05113"></a><span class="lineno"> 5113</span>    </div>
+<div class="line"><a id="l05114" name="l05114"></a><span class="lineno"> 5114</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_svd(a, b, s, arnk, work, olwork, err)</div>
+<div class="line"><a id="l05115" name="l05115"></a><span class="lineno"> 5115</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05116" name="l05116"></a><span class="lineno"> 5116</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05117" name="l05117"></a><span class="lineno"> 5117</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work, s</div>
+<div class="line"><a id="l05118" name="l05118"></a><span class="lineno"> 5118</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05119" name="l05119"></a><span class="lineno"> 5119</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05120" name="l05120"></a><span class="lineno"> 5120</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05121" name="l05121"></a><span class="lineno"> 5121</span>    </div>
+<div class="line"><a id="l05122" name="l05122"></a><span class="lineno"> 5122</span>    <span class="keyword">module</span> subroutine solve_least_squares_mtx_svd_cmplx(a, b, s, arnk, work, &amp;</div>
+<div class="line"><a id="l05123" name="l05123"></a><span class="lineno"> 5123</span>            olwork, rwork, err)</div>
+<div class="line"><a id="l05124" name="l05124"></a><span class="lineno"> 5124</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05125" name="l05125"></a><span class="lineno"> 5125</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05126" name="l05126"></a><span class="lineno"> 5126</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05127" name="l05127"></a><span class="lineno"> 5127</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork, s</div>
+<div class="line"><a id="l05128" name="l05128"></a><span class="lineno"> 5128</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05129" name="l05129"></a><span class="lineno"> 5129</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05130" name="l05130"></a><span class="lineno"> 5130</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05131" name="l05131"></a><span class="lineno"> 5131</span>    </div>
+<div class="line"><a id="l05132" name="l05132"></a><span class="lineno"> 5132</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_svd(a, b, s, arnk, work, olwork, err)</div>
+<div class="line"><a id="l05133" name="l05133"></a><span class="lineno"> 5133</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05134" name="l05134"></a><span class="lineno"> 5134</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05135" name="l05135"></a><span class="lineno"> 5135</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05136" name="l05136"></a><span class="lineno"> 5136</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work, s</div>
+<div class="line"><a id="l05137" name="l05137"></a><span class="lineno"> 5137</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05138" name="l05138"></a><span class="lineno"> 5138</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05139" name="l05139"></a><span class="lineno"> 5139</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05140" name="l05140"></a><span class="lineno"> 5140</span>    </div>
+<div class="line"><a id="l05141" name="l05141"></a><span class="lineno"> 5141</span>    <span class="keyword">module</span> subroutine solve_least_squares_vec_svd_cmplx(a, b, s, arnk, work, &amp;</div>
+<div class="line"><a id="l05142" name="l05142"></a><span class="lineno"> 5142</span>            olwork, rwork, err)</div>
+<div class="line"><a id="l05143" name="l05143"></a><span class="lineno"> 5143</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05144" name="l05144"></a><span class="lineno"> 5144</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05145" name="l05145"></a><span class="lineno"> 5145</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: arnk</div>
+<div class="line"><a id="l05146" name="l05146"></a><span class="lineno"> 5146</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05147" name="l05147"></a><span class="lineno"> 5147</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork, s</div>
+<div class="line"><a id="l05148" name="l05148"></a><span class="lineno"> 5148</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05149" name="l05149"></a><span class="lineno"> 5149</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05150" name="l05150"></a><span class="lineno"> 5150</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05151" name="l05151"></a><span class="lineno"> 5151</span>    </div>
+<div class="line"><a id="l05152" name="l05152"></a><span class="lineno"> 5152</span>    <span class="keyword">module</span> subroutine mtx_inverse_dbl(a, iwork, work, olwork, err)</div>
+<div class="line"><a id="l05153" name="l05153"></a><span class="lineno"> 5153</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05154" name="l05154"></a><span class="lineno"> 5154</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l05155" name="l05155"></a><span class="lineno"> 5155</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05156" name="l05156"></a><span class="lineno"> 5156</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05157" name="l05157"></a><span class="lineno"> 5157</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05158" name="l05158"></a><span class="lineno"> 5158</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05159" name="l05159"></a><span class="lineno"> 5159</span> </div>
+<div class="line"><a id="l05160" name="l05160"></a><span class="lineno"> 5160</span>    <span class="keyword">module</span> subroutine mtx_inverse_cmplx(a, iwork, work, olwork, err)</div>
+<div class="line"><a id="l05161" name="l05161"></a><span class="lineno"> 5161</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05162" name="l05162"></a><span class="lineno"> 5162</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l05163" name="l05163"></a><span class="lineno"> 5163</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05164" name="l05164"></a><span class="lineno"> 5164</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05165" name="l05165"></a><span class="lineno"> 5165</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05166" name="l05166"></a><span class="lineno"> 5166</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05167" name="l05167"></a><span class="lineno"> 5167</span>    </div>
+<div class="line"><a id="l05168" name="l05168"></a><span class="lineno"> 5168</span>    <span class="keyword">module</span> subroutine mtx_pinverse_dbl(a, ainv, tol, work, olwork, err)</div>
+<div class="line"><a id="l05169" name="l05169"></a><span class="lineno"> 5169</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05170" name="l05170"></a><span class="lineno"> 5170</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: ainv</div>
+<div class="line"><a id="l05171" name="l05171"></a><span class="lineno"> 5171</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l05172" name="l05172"></a><span class="lineno"> 5172</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l05173" name="l05173"></a><span class="lineno"> 5173</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05174" name="l05174"></a><span class="lineno"> 5174</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05175" name="l05175"></a><span class="lineno"> 5175</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05176" name="l05176"></a><span class="lineno"> 5176</span>    </div>
+<div class="line"><a id="l05177" name="l05177"></a><span class="lineno"> 5177</span>    <span class="keyword">module</span> subroutine mtx_pinverse_cmplx(a, ainv, tol, work, olwork, rwork, err)</div>
+<div class="line"><a id="l05178" name="l05178"></a><span class="lineno"> 5178</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05179" name="l05179"></a><span class="lineno"> 5179</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: ainv</div>
+<div class="line"><a id="l05180" name="l05180"></a><span class="lineno"> 5180</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l05181" name="l05181"></a><span class="lineno"> 5181</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: work</div>
+<div class="line"><a id="l05182" name="l05182"></a><span class="lineno"> 5182</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05183" name="l05183"></a><span class="lineno"> 5183</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">optional</span> :: rwork</div>
+<div class="line"><a id="l05184" name="l05184"></a><span class="lineno"> 5184</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05185" name="l05185"></a><span class="lineno"> 5185</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05186" name="l05186"></a><span class="lineno"> 5186</span> </div>
+<div class="line"><a id="l05187" name="l05187"></a><span class="lineno"> 5187</span>    <span class="keyword">module</span> subroutine solve_lq_mtx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l05188" name="l05188"></a><span class="lineno"> 5188</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05189" name="l05189"></a><span class="lineno"> 5189</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l05190" name="l05190"></a><span class="lineno"> 5190</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l05191" name="l05191"></a><span class="lineno"> 5191</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05192" name="l05192"></a><span class="lineno"> 5192</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05193" name="l05193"></a><span class="lineno"> 5193</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05194" name="l05194"></a><span class="lineno"> 5194</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05195" name="l05195"></a><span class="lineno"> 5195</span> </div>
+<div class="line"><a id="l05196" name="l05196"></a><span class="lineno"> 5196</span>    <span class="keyword">module</span> subroutine solve_lq_mtx_cmplx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l05197" name="l05197"></a><span class="lineno"> 5197</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05198" name="l05198"></a><span class="lineno"> 5198</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l05199" name="l05199"></a><span class="lineno"> 5199</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l05200" name="l05200"></a><span class="lineno"> 5200</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05201" name="l05201"></a><span class="lineno"> 5201</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05202" name="l05202"></a><span class="lineno"> 5202</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05203" name="l05203"></a><span class="lineno"> 5203</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05204" name="l05204"></a><span class="lineno"> 5204</span> </div>
+<div class="line"><a id="l05205" name="l05205"></a><span class="lineno"> 5205</span>    <span class="keyword">module</span> subroutine solve_lq_vec(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l05206" name="l05206"></a><span class="lineno"> 5206</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05207" name="l05207"></a><span class="lineno"> 5207</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l05208" name="l05208"></a><span class="lineno"> 5208</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05209" name="l05209"></a><span class="lineno"> 5209</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05210" name="l05210"></a><span class="lineno"> 5210</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05211" name="l05211"></a><span class="lineno"> 5211</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05212" name="l05212"></a><span class="lineno"> 5212</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05213" name="l05213"></a><span class="lineno"> 5213</span> </div>
+<div class="line"><a id="l05214" name="l05214"></a><span class="lineno"> 5214</span>    <span class="keyword">module</span> subroutine solve_lq_vec_cmplx(a, tau, b, work, olwork, err)</div>
+<div class="line"><a id="l05215" name="l05215"></a><span class="lineno"> 5215</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05216" name="l05216"></a><span class="lineno"> 5216</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: tau</div>
+<div class="line"><a id="l05217" name="l05217"></a><span class="lineno"> 5217</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05218" name="l05218"></a><span class="lineno"> 5218</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05219" name="l05219"></a><span class="lineno"> 5219</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05220" name="l05220"></a><span class="lineno"> 5220</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05221" name="l05221"></a><span class="lineno"> 5221</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05222" name="l05222"></a><span class="lineno"> 5222</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l05223" name="l05223"></a><span class="lineno"> 5223</span> </div>
+<div class="line"><a id="l05224" name="l05224"></a><span class="lineno"> 5224</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l05225" name="l05225"></a><span class="lineno"> 5225</span><span class="comment">! LINALG_EIGEN.F90</span></div>
+<div class="line"><a id="l05226" name="l05226"></a><span class="lineno"> 5226</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l05227" name="l05227"></a><span class="lineno"> 5227</span><span class="keyword">interface</span></div>
+<div class="line"><a id="l05228" name="l05228"></a><span class="lineno"> 5228</span>    <span class="keyword">module</span> subroutine eigen_symm(vecs, a, vals, work, olwork, err)</div>
+<div class="line"><a id="l05229" name="l05229"></a><span class="lineno"> 5229</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: vecs</div>
+<div class="line"><a id="l05230" name="l05230"></a><span class="lineno"> 5230</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05231" name="l05231"></a><span class="lineno"> 5231</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
+<div class="line"><a id="l05232" name="l05232"></a><span class="lineno"> 5232</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05233" name="l05233"></a><span class="lineno"> 5233</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05234" name="l05234"></a><span class="lineno"> 5234</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05235" name="l05235"></a><span class="lineno"> 5235</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05236" name="l05236"></a><span class="lineno"> 5236</span>    </div>
+<div class="line"><a id="l05237" name="l05237"></a><span class="lineno"> 5237</span>    <span class="keyword">module</span> subroutine eigen_asymm(a, vals, vecs, work, olwork, err)</div>
+<div class="line"><a id="l05238" name="l05238"></a><span class="lineno"> 5238</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05239" name="l05239"></a><span class="lineno"> 5239</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
+<div class="line"><a id="l05240" name="l05240"></a><span class="lineno"> 5240</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
+<div class="line"><a id="l05241" name="l05241"></a><span class="lineno"> 5241</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05242" name="l05242"></a><span class="lineno"> 5242</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05243" name="l05243"></a><span class="lineno"> 5243</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05244" name="l05244"></a><span class="lineno"> 5244</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05245" name="l05245"></a><span class="lineno"> 5245</span>    </div>
+<div class="line"><a id="l05246" name="l05246"></a><span class="lineno"> 5246</span>    <span class="keyword">module</span> subroutine eigen_gen(a, b, alpha, beta, vecs, work, olwork, err)</div>
+<div class="line"><a id="l05247" name="l05247"></a><span class="lineno"> 5247</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a, b</div>
+<div class="line"><a id="l05248" name="l05248"></a><span class="lineno"> 5248</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: alpha</div>
+<div class="line"><a id="l05249" name="l05249"></a><span class="lineno"> 5249</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: beta</div>
+<div class="line"><a id="l05250" name="l05250"></a><span class="lineno"> 5250</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
+<div class="line"><a id="l05251" name="l05251"></a><span class="lineno"> 5251</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05252" name="l05252"></a><span class="lineno"> 5252</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05253" name="l05253"></a><span class="lineno"> 5253</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05254" name="l05254"></a><span class="lineno"> 5254</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05255" name="l05255"></a><span class="lineno"> 5255</span> </div>
+<div class="line"><a id="l05256" name="l05256"></a><span class="lineno"> 5256</span>    <span class="keyword">module</span> subroutine eigen_cmplx(a, vals, vecs, work, olwork, rwork, err)</div>
+<div class="line"><a id="l05257" name="l05257"></a><span class="lineno"> 5257</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05258" name="l05258"></a><span class="lineno"> 5258</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
+<div class="line"><a id="l05259" name="l05259"></a><span class="lineno"> 5259</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
+<div class="line"><a id="l05260" name="l05260"></a><span class="lineno"> 5260</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l05261" name="l05261"></a><span class="lineno"> 5261</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l05262" name="l05262"></a><span class="lineno"> 5262</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l05263" name="l05263"></a><span class="lineno"> 5263</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05264" name="l05264"></a><span class="lineno"> 5264</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05265" name="l05265"></a><span class="lineno"> 5265</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l05266" name="l05266"></a><span class="lineno"> 5266</span> </div>
+<div class="line"><a id="l05267" name="l05267"></a><span class="lineno"> 5267</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l05268" name="l05268"></a><span class="lineno"> 5268</span><span class="comment">! LINALG_SORTING.F90</span></div>
+<div class="line"><a id="l05269" name="l05269"></a><span class="lineno"> 5269</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l05270" name="l05270"></a><span class="lineno"> 5270</span><span class="keyword">interface</span></div>
+<div class="line"><a id="l05271" name="l05271"></a><span class="lineno"> 5271</span>    <span class="keyword">module</span> subroutine sort_dbl_array(x, ascend)</div>
+<div class="line"><a id="l05272" name="l05272"></a><span class="lineno"> 5272</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05273" name="l05273"></a><span class="lineno"> 5273</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05274" name="l05274"></a><span class="lineno"> 5274</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05275" name="l05275"></a><span class="lineno"> 5275</span>    </div>
+<div class="line"><a id="l05276" name="l05276"></a><span class="lineno"> 5276</span>    <span class="keyword">module</span> subroutine sort_dbl_array_ind(x, ind, ascend, err)</div>
+<div class="line"><a id="l05277" name="l05277"></a><span class="lineno"> 5277</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05278" name="l05278"></a><span class="lineno"> 5278</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: ind</div>
+<div class="line"><a id="l05279" name="l05279"></a><span class="lineno"> 5279</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05280" name="l05280"></a><span class="lineno"> 5280</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05281" name="l05281"></a><span class="lineno"> 5281</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05282" name="l05282"></a><span class="lineno"> 5282</span> </div>
+<div class="line"><a id="l05283" name="l05283"></a><span class="lineno"> 5283</span>    <span class="keyword">module</span> subroutine sort_cmplx_array(x, ascend)</div>
+<div class="line"><a id="l05284" name="l05284"></a><span class="lineno"> 5284</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05285" name="l05285"></a><span class="lineno"> 5285</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05286" name="l05286"></a><span class="lineno"> 5286</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05287" name="l05287"></a><span class="lineno"> 5287</span> </div>
+<div class="line"><a id="l05288" name="l05288"></a><span class="lineno"> 5288</span>    <span class="keyword">module</span> subroutine sort_cmplx_array_ind(x, ind, ascend, err)</div>
+<div class="line"><a id="l05289" name="l05289"></a><span class="lineno"> 5289</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05290" name="l05290"></a><span class="lineno"> 5290</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: ind</div>
+<div class="line"><a id="l05291" name="l05291"></a><span class="lineno"> 5291</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05292" name="l05292"></a><span class="lineno"> 5292</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05293" name="l05293"></a><span class="lineno"> 5293</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05294" name="l05294"></a><span class="lineno"> 5294</span> </div>
+<div class="line"><a id="l05295" name="l05295"></a><span class="lineno"> 5295</span>    <span class="keyword">module</span> subroutine sort_eigen_cmplx(vals, vecs, ascend, err)</div>
+<div class="line"><a id="l05296" name="l05296"></a><span class="lineno"> 5296</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
+<div class="line"><a id="l05297" name="l05297"></a><span class="lineno"> 5297</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
+<div class="line"><a id="l05298" name="l05298"></a><span class="lineno"> 5298</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05299" name="l05299"></a><span class="lineno"> 5299</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05300" name="l05300"></a><span class="lineno"> 5300</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05301" name="l05301"></a><span class="lineno"> 5301</span> </div>
+<div class="line"><a id="l05302" name="l05302"></a><span class="lineno"> 5302</span>    <span class="keyword">module</span> subroutine sort_eigen_dbl(vals, vecs, ascend, err)</div>
+<div class="line"><a id="l05303" name="l05303"></a><span class="lineno"> 5303</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: vals</div>
+<div class="line"><a id="l05304" name="l05304"></a><span class="lineno"> 5304</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: vecs</div>
+<div class="line"><a id="l05305" name="l05305"></a><span class="lineno"> 5305</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: ascend</div>
+<div class="line"><a id="l05306" name="l05306"></a><span class="lineno"> 5306</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05307" name="l05307"></a><span class="lineno"> 5307</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05308" name="l05308"></a><span class="lineno"> 5308</span> </div>
+<div class="line"><a id="l05309" name="l05309"></a><span class="lineno"> 5309</span><span class="keyword">end interface</span></div>
+<div class="line"><a id="l05310" name="l05310"></a><span class="lineno"> 5310</span> </div>
+<div class="line"><a id="l05311" name="l05311"></a><span class="lineno"> 5311</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l05312" name="l05312"></a><span class="lineno"> 5312</span><span class="comment">! LINALG_SPARSE.F90</span></div>
+<div class="line"><a id="l05313" name="l05313"></a><span class="lineno"> 5313</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="foldopen" id="foldopen05324" data-start="" data-end="">
+<div class="line"><a id="l05324" name="l05324"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1nonzero__count.html"> 5324</a></span>    <span class="keyword">interface</span> nonzero_count</div>
+<div class="line"><a id="l05325" name="l05325"></a><span class="lineno"> 5325</span>        <span class="keyword">module procedure</span> :: nonzero_count_csr</div>
+<div class="line"><a id="l05326" name="l05326"></a><span class="lineno"> 5326</span>        <span class="keyword">module procedure</span> :: nonzero_count_msr</div>
+</div>
+<div class="line"><a id="l05327" name="l05327"></a><span class="lineno"> 5327</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05328" name="l05328"></a><span class="lineno"> 5328</span> </div>
+<div class="foldopen" id="foldopen05342" data-start="" data-end="">
+<div class="line"><a id="l05342" name="l05342"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1size.html"> 5342</a></span>    <span class="keyword">interface</span> size</div>
+<div class="line"><a id="l05343" name="l05343"></a><span class="lineno"> 5343</span>        <span class="keyword">module procedure</span> :: csr_size</div>
+<div class="line"><a id="l05344" name="l05344"></a><span class="lineno"> 5344</span>        <span class="keyword">module procedure</span> :: msr_size</div>
+</div>
+<div class="line"><a id="l05345" name="l05345"></a><span class="lineno"> 5345</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05346" name="l05346"></a><span class="lineno"> 5346</span> </div>
+<div class="foldopen" id="foldopen05368" data-start="" data-end="">
+<div class="line"><a id="l05368" name="l05368"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1matmul.html"> 5368</a></span>    <span class="keyword">interface</span> matmul</div>
+<div class="line"><a id="l05369" name="l05369"></a><span class="lineno"> 5369</span>        <span class="keyword">module procedure</span> :: csr_mtx_mtx_mult</div>
+<div class="line"><a id="l05370" name="l05370"></a><span class="lineno"> 5370</span>        <span class="keyword">module procedure</span> :: csr_mtx_vec_mult</div>
+</div>
+<div class="line"><a id="l05371" name="l05371"></a><span class="lineno"> 5371</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05372" name="l05372"></a><span class="lineno"> 5372</span> </div>
+<div class="foldopen" id="foldopen05384" data-start="" data-end="">
+<div class="line"><a id="l05384" name="l05384"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1operator_07_09_08.html"> 5384</a></span>    <span class="keyword">interface</span> <span class="keyword">operator</span>(+)</div>
+<div class="line"><a id="l05385" name="l05385"></a><span class="lineno"> 5385</span>        <span class="keyword">module procedure</span> :: csr_mtx_add</div>
+</div>
+<div class="line"><a id="l05386" name="l05386"></a><span class="lineno"> 5386</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05387" name="l05387"></a><span class="lineno"> 5387</span> </div>
+<div class="foldopen" id="foldopen05399" data-start="" data-end="">
+<div class="line"><a id="l05399" name="l05399"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1operator_07-_08.html"> 5399</a></span>    <span class="keyword">interface</span> <span class="keyword">operator</span>(-)</div>
+<div class="line"><a id="l05400" name="l05400"></a><span class="lineno"> 5400</span>        <span class="keyword">module procedure</span> :: csr_mtx_sub</div>
+</div>
+<div class="line"><a id="l05401" name="l05401"></a><span class="lineno"> 5401</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05402" name="l05402"></a><span class="lineno"> 5402</span> </div>
+<div class="foldopen" id="foldopen05415" data-start="" data-end="">
+<div class="line"><a id="l05415" name="l05415"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1operator_07_5_08.html"> 5415</a></span>    <span class="keyword">interface</span> <span class="keyword">operator</span>(*)</div>
+<div class="line"><a id="l05416" name="l05416"></a><span class="lineno"> 5416</span>        <span class="keyword">module procedure</span> :: csr_mtx_mult_scalar_1</div>
+<div class="line"><a id="l05417" name="l05417"></a><span class="lineno"> 5417</span>        <span class="keyword">module procedure</span> :: csr_mtx_mult_scalar_2</div>
+</div>
+<div class="line"><a id="l05418" name="l05418"></a><span class="lineno"> 5418</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05419" name="l05419"></a><span class="lineno"> 5419</span> </div>
+<div class="foldopen" id="foldopen05431" data-start="" data-end="">
+<div class="line"><a id="l05431" name="l05431"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1operator_07_2_08.html"> 5431</a></span>    <span class="keyword">interface</span> <span class="keyword">operator</span>(/)</div>
+<div class="line"><a id="l05432" name="l05432"></a><span class="lineno"> 5432</span>        <span class="keyword">module procedure</span> :: csr_mtx_divide_scalar_1</div>
+</div>
+<div class="line"><a id="l05433" name="l05433"></a><span class="lineno"> 5433</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05434" name="l05434"></a><span class="lineno"> 5434</span> </div>
+<div class="line"><a id="l05436" name="l05436"></a><span class="lineno"> 5436</span>    <span class="keyword">interface</span> <span class="keyword">assignment</span>(=)</div>
+<div class="line"><a id="l05437" name="l05437"></a><span class="lineno"> 5437</span>        <span class="keyword">module procedure</span> :: csr_assign_to_dense</div>
+<div class="line"><a id="l05438" name="l05438"></a><span class="lineno"> 5438</span>        <span class="keyword">module procedure</span> :: dense_assign_to_csr</div>
+<div class="line"><a id="l05439" name="l05439"></a><span class="lineno"> 5439</span>        <span class="keyword">module procedure</span> :: msr_assign_to_dense</div>
+<div class="line"><a id="l05440" name="l05440"></a><span class="lineno"> 5440</span>        <span class="keyword">module procedure</span> :: dense_assign_to_msr</div>
+<div class="line"><a id="l05441" name="l05441"></a><span class="lineno"> 5441</span>        <span class="keyword">module procedure</span> :: csr_assign_to_msr</div>
+<div class="line"><a id="l05442" name="l05442"></a><span class="lineno"> 5442</span>        <span class="keyword">module procedure</span> :: msr_assign_to_csr</div>
+<div class="line"><a id="l05443" name="l05443"></a><span class="lineno"> 5443</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05444" name="l05444"></a><span class="lineno"> 5444</span> </div>
+<div class="foldopen" id="foldopen05454" data-start="" data-end="">
+<div class="line"><a id="l05454" name="l05454"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1transpose.html"> 5454</a></span>    <span class="keyword">interface</span> transpose</div>
+<div class="line"><a id="l05455" name="l05455"></a><span class="lineno"> 5455</span>        <span class="keyword">module procedure</span> :: csr_transpose</div>
+</div>
+<div class="line"><a id="l05456" name="l05456"></a><span class="lineno"> 5456</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05457" name="l05457"></a><span class="lineno"> 5457</span> </div>
+<div class="foldopen" id="foldopen05482" data-start="" data-end="">
+<div class="line"><a id="l05482" name="l05482"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1sparse__direct__solve.html"> 5482</a></span>    <span class="keyword">interface</span> sparse_direct_solve</div>
+<div class="line"><a id="l05483" name="l05483"></a><span class="lineno"> 5483</span>        <span class="keyword">module procedure</span> :: csr_solve_sparse_direct</div>
+</div>
+<div class="line"><a id="l05484" name="l05484"></a><span class="lineno"> 5484</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05485" name="l05485"></a><span class="lineno"> 5485</span> </div>
+<div class="foldopen" id="foldopen05532" data-start="" data-end="">
+<div class="line"><a id="l05532" name="l05532"></a><span class="lineno"><a class="line" href="interfacelinalg_1_1pgmres__solver.html"> 5532</a></span>    <span class="keyword">interface</span> pgmres_solver</div>
+<div class="line"><a id="l05533" name="l05533"></a><span class="lineno"> 5533</span>        <span class="keyword">module procedure</span> :: csr_pgmres_solver</div>
+</div>
+<div class="line"><a id="l05534" name="l05534"></a><span class="lineno"> 5534</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05535" name="l05535"></a><span class="lineno"> 5535</span> </div>
+<div class="line"><a id="l05536" name="l05536"></a><span class="lineno"> 5536</span>    <span class="keyword">interface</span></div>
+<div class="line"><a id="l05537" name="l05537"></a><span class="lineno"> 5537</span>        <span class="keyword">module</span> function csr_get_element(this, i, j) result(rst)</div>
+<div class="line"><a id="l05538" name="l05538"></a><span class="lineno"> 5538</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: this</div>
+<div class="line"><a id="l05539" name="l05539"></a><span class="lineno"> 5539</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: i, j</div>
+<div class="line"><a id="l05540" name="l05540"></a><span class="lineno"> 5540</span><span class="keywordtype">            real</span>(real64) :: rst</div>
+<div class="line"><a id="l05541" name="l05541"></a><span class="lineno"> 5541</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05542" name="l05542"></a><span class="lineno"> 5542</span>        <span class="keywordtype">pure</span> <span class="keyword">module</span> function csr_size(x, dim) result(rst)</div>
+<div class="line"><a id="l05543" name="l05543"></a><span class="lineno"> 5543</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l05544" name="l05544"></a><span class="lineno"> 5544</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: dim</div>
+<div class="line"><a id="l05545" name="l05545"></a><span class="lineno"> 5545</span>            <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l05546" name="l05546"></a><span class="lineno"> 5546</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05547" name="l05547"></a><span class="lineno"> 5547</span> </div>
+<div class="line"><a id="l05548" name="l05548"></a><span class="lineno"> 5548</span>        <span class="keyword">module</span> function create_empty_csr_matrix(m, n, nnz, err) result(rst)</div>
+<div class="line"><a id="l05549" name="l05549"></a><span class="lineno"> 5549</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, n, nnz</div>
+<div class="line"><a id="l05550" name="l05550"></a><span class="lineno"> 5550</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05551" name="l05551"></a><span class="lineno"> 5551</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05552" name="l05552"></a><span class="lineno"> 5552</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05553" name="l05553"></a><span class="lineno"> 5553</span> </div>
+<div class="line"><a id="l05554" name="l05554"></a><span class="lineno"> 5554</span>        <span class="keywordtype">pure</span> <span class="keyword">module</span> function nonzero_count_csr(x) result(rst)</div>
+<div class="line"><a id="l05555" name="l05555"></a><span class="lineno"> 5555</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l05556" name="l05556"></a><span class="lineno"> 5556</span>            <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l05557" name="l05557"></a><span class="lineno"> 5557</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05558" name="l05558"></a><span class="lineno"> 5558</span> </div>
+<div class="line"><a id="l05559" name="l05559"></a><span class="lineno"> 5559</span>        <span class="keyword">module</span> function dense_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l05560" name="l05560"></a><span class="lineno"> 5560</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05561" name="l05561"></a><span class="lineno"> 5561</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05562" name="l05562"></a><span class="lineno"> 5562</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05563" name="l05563"></a><span class="lineno"> 5563</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05564" name="l05564"></a><span class="lineno"> 5564</span> </div>
+<div class="line"><a id="l05565" name="l05565"></a><span class="lineno"> 5565</span>        <span class="keyword">module</span> subroutine csr_to_dense(a, x, err)</div>
+<div class="line"><a id="l05566" name="l05566"></a><span class="lineno"> 5566</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05567" name="l05567"></a><span class="lineno"> 5567</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l05568" name="l05568"></a><span class="lineno"> 5568</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05569" name="l05569"></a><span class="lineno"> 5569</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05570" name="l05570"></a><span class="lineno"> 5570</span> </div>
+<div class="line"><a id="l05571" name="l05571"></a><span class="lineno"> 5571</span>        <span class="keyword">module</span> function csr_mtx_mtx_mult(a, b) result(rst)</div>
+<div class="line"><a id="l05572" name="l05572"></a><span class="lineno"> 5572</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l05573" name="l05573"></a><span class="lineno"> 5573</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05574" name="l05574"></a><span class="lineno"> 5574</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05575" name="l05575"></a><span class="lineno"> 5575</span> </div>
+<div class="line"><a id="l05576" name="l05576"></a><span class="lineno"> 5576</span>        <span class="keyword">module</span> function csr_mtx_vec_mult(a, b) result(rst)</div>
+<div class="line"><a id="l05577" name="l05577"></a><span class="lineno"> 5577</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05578" name="l05578"></a><span class="lineno"> 5578</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05579" name="l05579"></a><span class="lineno"> 5579</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: rst</div>
+<div class="line"><a id="l05580" name="l05580"></a><span class="lineno"> 5580</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05581" name="l05581"></a><span class="lineno"> 5581</span> </div>
+<div class="line"><a id="l05582" name="l05582"></a><span class="lineno"> 5582</span>        <span class="keyword">module</span> function csr_mtx_add(a, b) result(rst)</div>
+<div class="line"><a id="l05583" name="l05583"></a><span class="lineno"> 5583</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l05584" name="l05584"></a><span class="lineno"> 5584</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05585" name="l05585"></a><span class="lineno"> 5585</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05586" name="l05586"></a><span class="lineno"> 5586</span> </div>
+<div class="line"><a id="l05587" name="l05587"></a><span class="lineno"> 5587</span>        <span class="keyword">module</span> function csr_mtx_sub(a, b) result(rst)</div>
+<div class="line"><a id="l05588" name="l05588"></a><span class="lineno"> 5588</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l05589" name="l05589"></a><span class="lineno"> 5589</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05590" name="l05590"></a><span class="lineno"> 5590</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05591" name="l05591"></a><span class="lineno"> 5591</span> </div>
+<div class="line"><a id="l05592" name="l05592"></a><span class="lineno"> 5592</span>        <span class="keyword">module</span> function csr_mtx_mult_scalar_1(a, b) result(rst)</div>
+<div class="line"><a id="l05593" name="l05593"></a><span class="lineno"> 5593</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05594" name="l05594"></a><span class="lineno"> 5594</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l05595" name="l05595"></a><span class="lineno"> 5595</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05596" name="l05596"></a><span class="lineno"> 5596</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05597" name="l05597"></a><span class="lineno"> 5597</span> </div>
+<div class="line"><a id="l05598" name="l05598"></a><span class="lineno"> 5598</span>        <span class="keyword">module</span> function csr_mtx_mult_scalar_2(a, b) result(rst)</div>
+<div class="line"><a id="l05599" name="l05599"></a><span class="lineno"> 5599</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05600" name="l05600"></a><span class="lineno"> 5600</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l05601" name="l05601"></a><span class="lineno"> 5601</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05602" name="l05602"></a><span class="lineno"> 5602</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05603" name="l05603"></a><span class="lineno"> 5603</span> </div>
+<div class="line"><a id="l05604" name="l05604"></a><span class="lineno"> 5604</span>        <span class="keyword">module</span> function csr_mtx_divide_scalar_1(a, b) result(rst)</div>
+<div class="line"><a id="l05605" name="l05605"></a><span class="lineno"> 5605</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05606" name="l05606"></a><span class="lineno"> 5606</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l05607" name="l05607"></a><span class="lineno"> 5607</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05608" name="l05608"></a><span class="lineno"> 5608</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05609" name="l05609"></a><span class="lineno"> 5609</span> </div>
+<div class="line"><a id="l05610" name="l05610"></a><span class="lineno"> 5610</span>        <span class="keyword">module</span> function csr_transpose(a) result(rst)</div>
+<div class="line"><a id="l05611" name="l05611"></a><span class="lineno"> 5611</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05612" name="l05612"></a><span class="lineno"> 5612</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05613" name="l05613"></a><span class="lineno"> 5613</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05614" name="l05614"></a><span class="lineno"> 5614</span> </div>
+<div class="line"><a id="l05615" name="l05615"></a><span class="lineno"> 5615</span>        <span class="keyword">module</span> subroutine extract_diagonal_csr(a, diag, err)</div>
+<div class="line"><a id="l05616" name="l05616"></a><span class="lineno"> 5616</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05617" name="l05617"></a><span class="lineno"> 5617</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l05618" name="l05618"></a><span class="lineno"> 5618</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05619" name="l05619"></a><span class="lineno"> 5619</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05620" name="l05620"></a><span class="lineno"> 5620</span> </div>
+<div class="line"><a id="l05621" name="l05621"></a><span class="lineno"> 5621</span>        <span class="keyword">module</span> subroutine csr_solve_sparse_direct(a, b, x, droptol, err)</div>
+<div class="line"><a id="l05622" name="l05622"></a><span class="lineno"> 5622</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05623" name="l05623"></a><span class="lineno"> 5623</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05624" name="l05624"></a><span class="lineno"> 5624</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05625" name="l05625"></a><span class="lineno"> 5625</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: droptol</div>
+<div class="line"><a id="l05626" name="l05626"></a><span class="lineno"> 5626</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05627" name="l05627"></a><span class="lineno"> 5627</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05628" name="l05628"></a><span class="lineno"> 5628</span> </div>
+<div class="line"><a id="l05629" name="l05629"></a><span class="lineno"> 5629</span>        <span class="keyword">module</span> function diag_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l05630" name="l05630"></a><span class="lineno"> 5630</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l05631" name="l05631"></a><span class="lineno"> 5631</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05632" name="l05632"></a><span class="lineno"> 5632</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05633" name="l05633"></a><span class="lineno"> 5633</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05634" name="l05634"></a><span class="lineno"> 5634</span> </div>
+<div class="line"><a id="l05635" name="l05635"></a><span class="lineno"> 5635</span>        <span class="keyword">module</span> function banded_to_csr(m, ml, mu, a, err) result(rst)</div>
+<div class="line"><a id="l05636" name="l05636"></a><span class="lineno"> 5636</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, ml, mu</div>
+<div class="line"><a id="l05637" name="l05637"></a><span class="lineno"> 5637</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05638" name="l05638"></a><span class="lineno"> 5638</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05639" name="l05639"></a><span class="lineno"> 5639</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05640" name="l05640"></a><span class="lineno"> 5640</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05641" name="l05641"></a><span class="lineno"> 5641</span> </div>
+<div class="line"><a id="l05642" name="l05642"></a><span class="lineno"> 5642</span>        <span class="keyword">module</span> subroutine csr_assign_to_dense(dense, sparse)</div>
+<div class="line"><a id="l05643" name="l05643"></a><span class="lineno"> 5643</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l05644" name="l05644"></a><span class="lineno"> 5644</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: sparse</div>
+<div class="line"><a id="l05645" name="l05645"></a><span class="lineno"> 5645</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05646" name="l05646"></a><span class="lineno"> 5646</span> </div>
+<div class="line"><a id="l05647" name="l05647"></a><span class="lineno"> 5647</span>        <span class="keyword">module</span> subroutine dense_assign_to_csr(sparse, dense)</div>
+<div class="line"><a id="l05648" name="l05648"></a><span class="lineno"> 5648</span>            <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(out)</span> :: sparse</div>
+<div class="line"><a id="l05649" name="l05649"></a><span class="lineno"> 5649</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l05650" name="l05650"></a><span class="lineno"> 5650</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05651" name="l05651"></a><span class="lineno"> 5651</span> </div>
+<div class="line"><a id="l05652" name="l05652"></a><span class="lineno"> 5652</span>        <span class="keywordtype">pure</span> <span class="keyword">module</span> function msr_size(x, dim) result(rst)</div>
+<div class="line"><a id="l05653" name="l05653"></a><span class="lineno"> 5653</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l05654" name="l05654"></a><span class="lineno"> 5654</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: dim</div>
+<div class="line"><a id="l05655" name="l05655"></a><span class="lineno"> 5655</span>            <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l05656" name="l05656"></a><span class="lineno"> 5656</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05657" name="l05657"></a><span class="lineno"> 5657</span> </div>
+<div class="line"><a id="l05658" name="l05658"></a><span class="lineno"> 5658</span>        <span class="keywordtype">pure</span> <span class="keyword">module</span> function nonzero_count_msr(x) result(rst)</div>
+<div class="line"><a id="l05659" name="l05659"></a><span class="lineno"> 5659</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l05660" name="l05660"></a><span class="lineno"> 5660</span>            <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l05661" name="l05661"></a><span class="lineno"> 5661</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05662" name="l05662"></a><span class="lineno"> 5662</span> </div>
+<div class="line"><a id="l05663" name="l05663"></a><span class="lineno"> 5663</span>        <span class="keyword">module</span> function create_empty_msr_matrix(m, n, nnz, err) result(rst)</div>
+<div class="line"><a id="l05664" name="l05664"></a><span class="lineno"> 5664</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, n, nnz</div>
+<div class="line"><a id="l05665" name="l05665"></a><span class="lineno"> 5665</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05666" name="l05666"></a><span class="lineno"> 5666</span>            <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l05667" name="l05667"></a><span class="lineno"> 5667</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05668" name="l05668"></a><span class="lineno"> 5668</span> </div>
+<div class="line"><a id="l05669" name="l05669"></a><span class="lineno"> 5669</span>        <span class="keyword">module</span> function csr_to_msr(a, err) result(rst)</div>
+<div class="line"><a id="l05670" name="l05670"></a><span class="lineno"> 5670</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05671" name="l05671"></a><span class="lineno"> 5671</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05672" name="l05672"></a><span class="lineno"> 5672</span>            <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l05673" name="l05673"></a><span class="lineno"> 5673</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05674" name="l05674"></a><span class="lineno"> 5674</span> </div>
+<div class="line"><a id="l05675" name="l05675"></a><span class="lineno"> 5675</span>        <span class="keyword">module</span> function msr_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l05676" name="l05676"></a><span class="lineno"> 5676</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05677" name="l05677"></a><span class="lineno"> 5677</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05678" name="l05678"></a><span class="lineno"> 5678</span>            <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l05679" name="l05679"></a><span class="lineno"> 5679</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05680" name="l05680"></a><span class="lineno"> 5680</span> </div>
+<div class="line"><a id="l05681" name="l05681"></a><span class="lineno"> 5681</span>        <span class="keyword">module</span> function dense_to_msr(a, err) result(rst)</div>
+<div class="line"><a id="l05682" name="l05682"></a><span class="lineno"> 5682</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l05683" name="l05683"></a><span class="lineno"> 5683</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05684" name="l05684"></a><span class="lineno"> 5684</span>            <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l05685" name="l05685"></a><span class="lineno"> 5685</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l05686" name="l05686"></a><span class="lineno"> 5686</span> </div>
+<div class="line"><a id="l05687" name="l05687"></a><span class="lineno"> 5687</span>        <span class="keyword">module</span> subroutine msr_to_dense(a, x, err)</div>
+<div class="line"><a id="l05688" name="l05688"></a><span class="lineno"> 5688</span>            <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l05689" name="l05689"></a><span class="lineno"> 5689</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05690" name="l05690"></a><span class="lineno"> 5690</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l05691" name="l05691"></a><span class="lineno"> 5691</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05692" name="l05692"></a><span class="lineno"> 5692</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05693" name="l05693"></a><span class="lineno"> 5693</span> </div>
+<div class="line"><a id="l05694" name="l05694"></a><span class="lineno"> 5694</span>        <span class="keyword">module</span> subroutine msr_assign_to_dense(dense, msr)</div>
+<div class="line"><a id="l05695" name="l05695"></a><span class="lineno"> 5695</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l05696" name="l05696"></a><span class="lineno"> 5696</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: msr</div>
+<div class="line"><a id="l05697" name="l05697"></a><span class="lineno"> 5697</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05698" name="l05698"></a><span class="lineno"> 5698</span> </div>
+<div class="line"><a id="l05699" name="l05699"></a><span class="lineno"> 5699</span>        <span class="keyword">module</span> subroutine dense_assign_to_msr(msr, dense)</div>
+<div class="line"><a id="l05700" name="l05700"></a><span class="lineno"> 5700</span>            <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: msr</div>
+<div class="line"><a id="l05701" name="l05701"></a><span class="lineno"> 5701</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l05702" name="l05702"></a><span class="lineno"> 5702</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05703" name="l05703"></a><span class="lineno"> 5703</span> </div>
+<div class="line"><a id="l05704" name="l05704"></a><span class="lineno"> 5704</span>        <span class="keyword">module</span> subroutine csr_assign_to_msr(msr, csr)</div>
+<div class="line"><a id="l05705" name="l05705"></a><span class="lineno"> 5705</span>            <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: msr</div>
+<div class="line"><a id="l05706" name="l05706"></a><span class="lineno"> 5706</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: csr</div>
+<div class="line"><a id="l05707" name="l05707"></a><span class="lineno"> 5707</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05708" name="l05708"></a><span class="lineno"> 5708</span> </div>
+<div class="line"><a id="l05709" name="l05709"></a><span class="lineno"> 5709</span>        <span class="keyword">module</span> subroutine msr_assign_to_csr(csr, msr)</div>
+<div class="line"><a id="l05710" name="l05710"></a><span class="lineno"> 5710</span>            <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(out)</span> :: csr</div>
+<div class="line"><a id="l05711" name="l05711"></a><span class="lineno"> 5711</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: msr</div>
+<div class="line"><a id="l05712" name="l05712"></a><span class="lineno"> 5712</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05713" name="l05713"></a><span class="lineno"> 5713</span> </div>
+<div class="line"><a id="l05714" name="l05714"></a><span class="lineno"> 5714</span>        <span class="keyword">module</span> subroutine csr_lu_factor(a, lu, ju, droptol, err)</div>
+<div class="line"><a id="l05715" name="l05715"></a><span class="lineno"> 5715</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05716" name="l05716"></a><span class="lineno"> 5716</span>            <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: lu</div>
+<div class="line"><a id="l05717" name="l05717"></a><span class="lineno"> 5717</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l05718" name="l05718"></a><span class="lineno"> 5718</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: droptol</div>
+<div class="line"><a id="l05719" name="l05719"></a><span class="lineno"> 5719</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05720" name="l05720"></a><span class="lineno"> 5720</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05721" name="l05721"></a><span class="lineno"> 5721</span> </div>
+<div class="line"><a id="l05722" name="l05722"></a><span class="lineno"> 5722</span>        <span class="keyword">module</span> subroutine csr_lu_solve(lu, ju, b, x, err)</div>
+<div class="line"><a id="l05723" name="l05723"></a><span class="lineno"> 5723</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: lu</div>
+<div class="line"><a id="l05724" name="l05724"></a><span class="lineno"> 5724</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l05725" name="l05725"></a><span class="lineno"> 5725</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05726" name="l05726"></a><span class="lineno"> 5726</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05727" name="l05727"></a><span class="lineno"> 5727</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05728" name="l05728"></a><span class="lineno"> 5728</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05729" name="l05729"></a><span class="lineno"> 5729</span> </div>
+<div class="line"><a id="l05730" name="l05730"></a><span class="lineno"> 5730</span>        <span class="keyword">module</span> subroutine csr_pgmres_solver(a, lu, ju, b, x, im, tol, maxits, &amp;</div>
+<div class="line"><a id="l05731" name="l05731"></a><span class="lineno"> 5731</span>            iout, err)</div>
+<div class="line"><a id="l05732" name="l05732"></a><span class="lineno"> 5732</span>            <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l05733" name="l05733"></a><span class="lineno"> 5733</span>            <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: lu</div>
+<div class="line"><a id="l05734" name="l05734"></a><span class="lineno"> 5734</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l05735" name="l05735"></a><span class="lineno"> 5735</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l05736" name="l05736"></a><span class="lineno"> 5736</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l05737" name="l05737"></a><span class="lineno"> 5737</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: im, maxits, iout</div>
+<div class="line"><a id="l05738" name="l05738"></a><span class="lineno"> 5738</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l05739" name="l05739"></a><span class="lineno"> 5739</span>            <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l05740" name="l05740"></a><span class="lineno"> 5740</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l05741" name="l05741"></a><span class="lineno"> 5741</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l05742" name="l05742"></a><span class="lineno"> 5742</span> </div>
+<div class="line"><a id="l05743" name="l05743"></a><span class="lineno"> 5743</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l05744" name="l05744"></a><span class="lineno"> 5744</span><span class="keyword">end module</span></div>
+<div class="ttc" id="ainterfacelinalg_1_1band__diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1band__diag__mtx__mult.html">linalg::band_diag_mtx_mult</a></div><div class="ttdoc">Multiplies a banded matrix, A, with a diagonal matrix, B, such that A = alpha * A * B,...</div><div class="ttdef"><b>Definition</b> <a href="#l04132">linalg.f90:4132</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1band__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1band__mtx__mult.html">linalg::band_mtx_mult</a></div><div class="ttdoc">Multiplies a banded matrix, A, by a vector x such that alpha * op(A) * x + beta * y = y.</div><div class="ttdef"><b>Definition</b> <a href="#l04027">linalg.f90:4027</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1band__mtx__to__full__mtx_html"><div class="ttname"><a href="interfacelinalg_1_1band__mtx__to__full__mtx.html">linalg::band_mtx_to_full_mtx</a></div><div class="ttdoc">Converts a banded matrix stored in dense form to a full matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l04069">linalg.f90:4069</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1banded__to__dense_html"><div class="ttname"><a href="interfacelinalg_1_1banded__to__dense.html">linalg::banded_to_dense</a></div><div class="ttdoc">Converts a banded matrix to a dense matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l04160">linalg.f90:4160</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__factor_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__factor.html">linalg::cholesky_factor</a></div><div class="ttdoc">Computes the Cholesky factorization of a symmetric, positive definite matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l01686">linalg.f90:1686</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__downdate_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__downdate.html">linalg::cholesky_rank1_downdate</a></div><div class="ttdoc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="#l01892">linalg.f90:1892</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1cholesky__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1cholesky__rank1__update.html">linalg::cholesky_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular).</div><div class="ttdef"><b>Definition</b> <a href="#l01785">linalg.f90:1785</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1dense__to__banded_html"><div class="ttname"><a href="interfacelinalg_1_1dense__to__banded.html">linalg::dense_to_banded</a></div><div class="ttdoc">Converts a dense matrix to a banded matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l04185">linalg.f90:4185</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1det_html"><div class="ttname"><a href="interfacelinalg_1_1det.html">linalg::det</a></div><div class="ttdoc">Computes the determinant of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00658">linalg.f90:658</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1diag__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1diag__mtx__mult.html">linalg::diag_mtx_mult</a></div><div class="ttdoc">Multiplies a diagonal matrix with another matrix or array.</div><div class="ttdef"><b>Definition</b> <a href="#l00552">linalg.f90:552</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1eigen_html"><div class="ttname"><a href="interfacelinalg_1_1eigen.html">linalg::eigen</a></div><div class="ttdoc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03370">linalg.f90:3370</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1extract__diagonal_html"><div class="ttname"><a href="interfacelinalg_1_1extract__diagonal.html">linalg::extract_diagonal</a></div><div class="ttdoc">Extracts the diagonal of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l04207">linalg.f90:4207</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lq_html"><div class="ttname"><a href="interfacelinalg_1_1form__lq.html">linalg::form_lq</a></div><div class="ttdoc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorit...</div><div class="ttdef"><b>Definition</b> <a href="#l03681">linalg.f90:3681</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__lu_html"><div class="ttname"><a href="interfacelinalg_1_1form__lu.html">linalg::form_lu</a></div><div class="ttdoc">Extracts the L and U matrices from the condensed [L\U] storage format used by the lu_factor.</div><div class="ttdef"><b>Definition</b> <a href="#l00966">linalg.f90:966</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1form__qr_html"><div class="ttname"><a href="interfacelinalg_1_1form__qr.html">linalg::form_qr</a></div><div class="ttdoc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR fact...</div><div class="ttdef"><b>Definition</b> <a href="#l01280">linalg.f90:1280</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lq__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lq__factor.html">linalg::lq_factor</a></div><div class="ttdoc">Computes the LQ factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03567">linalg.f90:3567</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1lu__factor_html"><div class="ttname"><a href="interfacelinalg_1_1lu__factor.html">linalg::lu_factor</a></div><div class="ttdoc">Computes the LU factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00843">linalg.f90:843</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1matmul_html"><div class="ttname"><a href="interfacelinalg_1_1matmul.html">linalg::matmul</a></div><div class="ttdoc">Performs sparse matrix multiplication C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="#l05368">linalg.f90:5368</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__inverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__inverse.html">linalg::mtx_inverse</a></div><div class="ttdoc">Computes the inverse of a square matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l03050">linalg.f90:3050</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__mult.html">linalg::mtx_mult</a></div><div class="ttdoc">Performs the matrix operation: .</div><div class="ttdef"><b>Definition</b> <a href="#l00360">linalg.f90:360</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__pinverse_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__pinverse.html">linalg::mtx_pinverse</a></div><div class="ttdoc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition o...</div><div class="ttdef"><b>Definition</b> <a href="#l03156">linalg.f90:3156</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mtx__rank_html"><div class="ttname"><a href="interfacelinalg_1_1mtx__rank.html">linalg::mtx_rank</a></div><div class="ttdoc">Computes the rank of a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00625">linalg.f90:625</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mult__lq_html"><div class="ttname"><a href="interfacelinalg_1_1mult__lq.html">linalg::mult_lq</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l03830">linalg.f90:3830</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mult__qr_html"><div class="ttname"><a href="interfacelinalg_1_1mult__qr.html">linalg::mult_qr</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l01437">linalg.f90:1437</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1mult__rz_html"><div class="ttname"><a href="interfacelinalg_1_1mult__rz.html">linalg::mult_rz</a></div><div class="ttdoc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization.</div><div class="ttdef"><b>Definition</b> <a href="#l02056">linalg.f90:2056</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1nonzero__count_html"><div class="ttname"><a href="interfacelinalg_1_1nonzero__count.html">linalg::nonzero_count</a></div><div class="ttdoc">Determines the number of nonzero entries in a sparse matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l05324">linalg.f90:5324</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1pgmres__solver_html"><div class="ttname"><a href="interfacelinalg_1_1pgmres__solver.html">linalg::pgmres_solver</a></div><div class="ttdoc">A preconditioned GMRES solver.</div><div class="ttdef"><b>Definition</b> <a href="#l05532">linalg.f90:5532</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__factor_html"><div class="ttname"><a href="interfacelinalg_1_1qr__factor.html">linalg::qr_factor</a></div><div class="ttdoc">Computes the QR factorization of an M-by-N matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l01120">linalg.f90:1120</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1qr__rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1qr__rank1__update.html">linalg::qr_rank1_update</a></div><div class="ttdoc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where , and  such that ....</div><div class="ttdef"><b>Definition</b> <a href="#l01587">linalg.f90:1587</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1rank1__update_html"><div class="ttname"><a href="interfacelinalg_1_1rank1__update.html">linalg::rank1_update</a></div><div class="ttdoc">Performs the rank-1 update to matrix A such that: , where  is an M-by-N matrix, is a scalar,...</div><div class="ttdef"><b>Definition</b> <a href="#l00395">linalg.f90:395</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1recip__mult__array_html"><div class="ttname"><a href="interfacelinalg_1_1recip__mult__array.html">linalg::recip_mult_array</a></div><div class="ttdoc">Multiplies a vector by the reciprocal of a real scalar.</div><div class="ttdef"><b>Definition</b> <a href="#l00699">linalg.f90:699</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1rz__factor_html"><div class="ttname"><a href="interfacelinalg_1_1rz__factor.html">linalg::rz_factor</a></div><div class="ttdoc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that ....</div><div class="ttdef"><b>Definition</b> <a href="#l01965">linalg.f90:1965</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__cholesky_html"><div class="ttname"><a href="interfacelinalg_1_1solve__cholesky.html">linalg::solve_cholesky</a></div><div class="ttdoc">Solves a system of Cholesky factored equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02662">linalg.f90:2662</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__full_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__full.html">linalg::solve_least_squares_full</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns,...</div><div class="ttdef"><b>Definition</b> <a href="#l02853">linalg.f90:2853</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares__svd_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares__svd.html">linalg::solve_least_squares_svd</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns using a singular va...</div><div class="ttdef"><b>Definition</b> <a href="#l02955">linalg.f90:2955</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__least__squares_html"><div class="ttname"><a href="interfacelinalg_1_1solve__least__squares.html">linalg::solve_least_squares</a></div><div class="ttdoc">Solves the overdetermined or underdetermined system  of M equations of N unknowns....</div><div class="ttdef"><b>Definition</b> <a href="#l02752">linalg.f90:2752</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lq_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lq.html">linalg::solve_lq</a></div><div class="ttdoc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M.</div><div class="ttdef"><b>Definition</b> <a href="#l03925">linalg.f90:3925</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__lu_html"><div class="ttname"><a href="interfacelinalg_1_1solve__lu.html">linalg::solve_lu</a></div><div class="ttdoc">Solves a system of LU-factored equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02420">linalg.f90:2420</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__qr_html"><div class="ttname"><a href="interfacelinalg_1_1solve__qr.html">linalg::solve_qr</a></div><div class="ttdoc">Solves a system of M QR-factored equations of N unknowns.</div><div class="ttdef"><b>Definition</b> <a href="#l02556">linalg.f90:2556</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1solve__triangular__system_html"><div class="ttname"><a href="interfacelinalg_1_1solve__triangular__system.html">linalg::solve_triangular_system</a></div><div class="ttdoc">Solves a triangular system of equations.</div><div class="ttdef"><b>Definition</b> <a href="#l02315">linalg.f90:2315</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1sort_html"><div class="ttname"><a href="interfacelinalg_1_1sort.html">linalg::sort</a></div><div class="ttdoc">Sorts an array.</div><div class="ttdef"><b>Definition</b> <a href="#l03453">linalg.f90:3453</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1sparse__direct__solve_html"><div class="ttname"><a href="interfacelinalg_1_1sparse__direct__solve.html">linalg::sparse_direct_solve</a></div><div class="ttdoc">Provides a direct solution to a square, sparse system.</div><div class="ttdef"><b>Definition</b> <a href="#l05482">linalg.f90:5482</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1svd_html"><div class="ttname"><a href="interfacelinalg_1_1svd.html">linalg::svd</a></div><div class="ttdoc">Computes the singular value decomposition of a matrix A. The SVD is defined as: , where  is an M-by-M...</div><div class="ttdef"><b>Definition</b> <a href="#l02181">linalg.f90:2181</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1swap_html"><div class="ttname"><a href="interfacelinalg_1_1swap.html">linalg::swap</a></div><div class="ttdoc">Swaps the contents of two arrays.</div><div class="ttdef"><b>Definition</b> <a href="#l00680">linalg.f90:680</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1trace_html"><div class="ttname"><a href="interfacelinalg_1_1trace.html">linalg::trace</a></div><div class="ttdoc">Computes the trace of a matrix (the sum of the main diagonal elements).</div><div class="ttdef"><b>Definition</b> <a href="#l00577">linalg.f90:577</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1transpose_html"><div class="ttname"><a href="interfacelinalg_1_1transpose.html">linalg::transpose</a></div><div class="ttdoc">Provides the transpose of a sparse matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l05454">linalg.f90:5454</a></div></div>
+<div class="ttc" id="ainterfacelinalg_1_1tri__mtx__mult_html"><div class="ttname"><a href="interfacelinalg_1_1tri__mtx__mult.html">linalg::tri_mtx_mult</a></div><div class="ttdoc">Computes the triangular matrix operation: , or , where A is a triangular matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00733">linalg.f90:733</a></div></div>
 <div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="#l00145">linalg.f90:145</a></div></div>
+<div class="ttc" id="astructlinalg_1_1csr__matrix_html"><div class="ttname"><a href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a></div><div class="ttdoc">A sparse matrix stored in compressed sparse row (CSR) format.</div><div class="ttdef"><b>Definition</b> <a href="#l00232">linalg.f90:232</a></div></div>
+<div class="ttc" id="astructlinalg_1_1msr__matrix_html"><div class="ttname"><a href="structlinalg_1_1msr__matrix.html">linalg::msr_matrix</a></div><div class="ttdoc">A sparse matrix stored in modified sparse row format. This format is convenient for situations where ...</div><div class="ttdef"><b>Definition</b> <a href="#l00252">linalg.f90:252</a></div></div>
 </div><!-- fragment --></div><!-- contents -->
 </div><!-- doc-content -->
 <!-- start footer part -->
diff --git a/docs/html/linalg_8h.html b/docs/html/linalg_8h.html
index 9a71e207..7e979cff 100644
--- a/docs/html/linalg_8h.html
+++ b/docs/html/linalg_8h.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg_8h_source.html b/docs/html/linalg_8h_source.html
index 7d625457..a670b284 100644
--- a/docs/html/linalg_8h_source.html
+++ b/docs/html/linalg_8h_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg__basic_8f90_source.html b/docs/html/linalg__basic_8f90_source.html
index 83d26025..51a27d5f 100644
--- a/docs/html/linalg__basic_8f90_source.html
+++ b/docs/html/linalg__basic_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -1496,928 +1496,928 @@
 <div class="line"><a id="l01387" name="l01387"></a><span class="lineno"> 1387</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l01388" name="l01388"></a><span class="lineno"> 1388</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l01389" name="l01389"></a><span class="lineno"> 1389</span> </div>
-<div class="line"><a id="l01390" name="l01390"></a><span class="lineno"> 1390</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l01391" name="l01391"></a><span class="lineno"> 1391</span><span class="comment">! BASIC OPERATION ROUTINES</span></div>
-<div class="line"><a id="l01392" name="l01392"></a><span class="lineno"> 1392</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01393" name="l01393"></a><span class="lineno"> 1393</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_dbl(x) result(y)</div>
-<div class="line"><a id="l01394" name="l01394"></a><span class="lineno"> 1394</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01395" name="l01395"></a><span class="lineno"> 1395</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
-<div class="line"><a id="l01396" name="l01396"></a><span class="lineno"> 1396</span><span class="keywordtype">        real</span>(real64) :: y</div>
-<div class="line"><a id="l01397" name="l01397"></a><span class="lineno"> 1397</span> </div>
-<div class="line"><a id="l01398" name="l01398"></a><span class="lineno"> 1398</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l01399" name="l01399"></a><span class="lineno"> 1399</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
-<div class="line"><a id="l01400" name="l01400"></a><span class="lineno"> 1400</span> </div>
-<div class="line"><a id="l01401" name="l01401"></a><span class="lineno"> 1401</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01402" name="l01402"></a><span class="lineno"> 1402</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
-<div class="line"><a id="l01403" name="l01403"></a><span class="lineno"> 1403</span> </div>
-<div class="line"><a id="l01404" name="l01404"></a><span class="lineno"> 1404</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01405" name="l01405"></a><span class="lineno"> 1405</span>        y = zero</div>
-<div class="line"><a id="l01406" name="l01406"></a><span class="lineno"> 1406</span>        m = <span class="keyword">size</span>(x, 1)</div>
-<div class="line"><a id="l01407" name="l01407"></a><span class="lineno"> 1407</span>        n = <span class="keyword">size</span>(x, 2)</div>
-<div class="line"><a id="l01408" name="l01408"></a><span class="lineno"> 1408</span>        mn = min(m, n)</div>
-<div class="line"><a id="l01409" name="l01409"></a><span class="lineno"> 1409</span> </div>
-<div class="line"><a id="l01410" name="l01410"></a><span class="lineno"> 1410</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l01411" name="l01411"></a><span class="lineno"> 1411</span>        <span class="keywordflow">do</span> i = 1, mn</div>
-<div class="line"><a id="l01412" name="l01412"></a><span class="lineno"> 1412</span>            y = y + x(i,i)</div>
-<div class="line"><a id="l01413" name="l01413"></a><span class="lineno"> 1413</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01414" name="l01414"></a><span class="lineno"> 1414</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l01415" name="l01415"></a><span class="lineno"> 1415</span> </div>
-<div class="line"><a id="l01416" name="l01416"></a><span class="lineno"> 1416</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01417" name="l01417"></a><span class="lineno"> 1417</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_cmplx(x) result(y)</div>
-<div class="line"><a id="l01418" name="l01418"></a><span class="lineno"> 1418</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01419" name="l01419"></a><span class="lineno"> 1419</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
-<div class="line"><a id="l01420" name="l01420"></a><span class="lineno"> 1420</span>        <span class="keywordtype">complex(real64)</span> :: y</div>
-<div class="line"><a id="l01421" name="l01421"></a><span class="lineno"> 1421</span> </div>
-<div class="line"><a id="l01422" name="l01422"></a><span class="lineno"> 1422</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l01423" name="l01423"></a><span class="lineno"> 1423</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
-<div class="line"><a id="l01424" name="l01424"></a><span class="lineno"> 1424</span> </div>
-<div class="line"><a id="l01425" name="l01425"></a><span class="lineno"> 1425</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01426" name="l01426"></a><span class="lineno"> 1426</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
+<div class="line"><a id="l01390" name="l01390"></a><span class="lineno"> 1390</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01391" name="l01391"></a><span class="lineno"> 1391</span>    <span class="keyword">module</span> subroutine diag_mtx_sparse_mult(lside, alpha, a, b, err)</div>
+<div class="line"><a id="l01392" name="l01392"></a><span class="lineno"> 1392</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01393" name="l01393"></a><span class="lineno"> 1393</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: lside</div>
+<div class="line"><a id="l01394" name="l01394"></a><span class="lineno"> 1394</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l01395" name="l01395"></a><span class="lineno"> 1395</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l01396" name="l01396"></a><span class="lineno"> 1396</span>        <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(inout)</span> :: b</div>
+<div class="line"><a id="l01397" name="l01397"></a><span class="lineno"> 1397</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01398" name="l01398"></a><span class="lineno"> 1398</span> </div>
+<div class="line"><a id="l01399" name="l01399"></a><span class="lineno"> 1399</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01400" name="l01400"></a><span class="lineno"> 1400</span>        <span class="keywordtype">integer(int32)</span> :: ii, k, k1, k2, nrow</div>
+<div class="line"><a id="l01401" name="l01401"></a><span class="lineno"> 1401</span><span class="keywordtype">        real</span>(real64) :: scal</div>
+<div class="line"><a id="l01402" name="l01402"></a><span class="lineno"> 1402</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01403" name="l01403"></a><span class="lineno"> 1403</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01404" name="l01404"></a><span class="lineno"> 1404</span>        </div>
+<div class="line"><a id="l01405" name="l01405"></a><span class="lineno"> 1405</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01406" name="l01406"></a><span class="lineno"> 1406</span>        nrow = <span class="keyword">size</span>(b, 1)</div>
+<div class="line"><a id="l01407" name="l01407"></a><span class="lineno"> 1407</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01408" name="l01408"></a><span class="lineno"> 1408</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01409" name="l01409"></a><span class="lineno"> 1409</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01410" name="l01410"></a><span class="lineno"> 1410</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01411" name="l01411"></a><span class="lineno"> 1411</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01412" name="l01412"></a><span class="lineno"> 1412</span> </div>
+<div class="line"><a id="l01413" name="l01413"></a><span class="lineno"> 1413</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01414" name="l01414"></a><span class="lineno"> 1414</span>        <span class="keywordflow">if</span> (lside) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01415" name="l01415"></a><span class="lineno"> 1415</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(a) /= nrow) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01416" name="l01416"></a><span class="lineno"> 1416</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;diag_mtx_sparse_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l01417" name="l01417"></a><span class="lineno"> 1417</span>                    <span class="stringliteral">&quot;Inner matrix dimension error.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01418" name="l01418"></a><span class="lineno"> 1418</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01419" name="l01419"></a><span class="lineno"> 1419</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01420" name="l01420"></a><span class="lineno"> 1420</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01421" name="l01421"></a><span class="lineno"> 1421</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(a) /= <span class="keyword">size</span>(b, 2)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01422" name="l01422"></a><span class="lineno"> 1422</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;diag_mtx_sparse_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l01423" name="l01423"></a><span class="lineno"> 1423</span>                    <span class="stringliteral">&quot;Inner matrix dimension error.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01424" name="l01424"></a><span class="lineno"> 1424</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01425" name="l01425"></a><span class="lineno"> 1425</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01426" name="l01426"></a><span class="lineno"> 1426</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l01427" name="l01427"></a><span class="lineno"> 1427</span> </div>
-<div class="line"><a id="l01428" name="l01428"></a><span class="lineno"> 1428</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01429" name="l01429"></a><span class="lineno"> 1429</span>        y = zero</div>
-<div class="line"><a id="l01430" name="l01430"></a><span class="lineno"> 1430</span>        m = <span class="keyword">size</span>(x, 1)</div>
-<div class="line"><a id="l01431" name="l01431"></a><span class="lineno"> 1431</span>        n = <span class="keyword">size</span>(x, 2)</div>
-<div class="line"><a id="l01432" name="l01432"></a><span class="lineno"> 1432</span>        mn = min(m, n)</div>
-<div class="line"><a id="l01433" name="l01433"></a><span class="lineno"> 1433</span> </div>
-<div class="line"><a id="l01434" name="l01434"></a><span class="lineno"> 1434</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l01435" name="l01435"></a><span class="lineno"> 1435</span>        <span class="keywordflow">do</span> i = 1, mn</div>
-<div class="line"><a id="l01436" name="l01436"></a><span class="lineno"> 1436</span>            y = y + x(i,i)</div>
-<div class="line"><a id="l01437" name="l01437"></a><span class="lineno"> 1437</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01438" name="l01438"></a><span class="lineno"> 1438</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l01439" name="l01439"></a><span class="lineno"> 1439</span> </div>
-<div class="line"><a id="l01440" name="l01440"></a><span class="lineno"> 1440</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01441" name="l01441"></a><span class="lineno"> 1441</span>    <span class="keyword">module</span> function mtx_rank_dbl(a, tol, work, olwork, err) result(rnk)</div>
-<div class="line"><a id="l01442" name="l01442"></a><span class="lineno"> 1442</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01443" name="l01443"></a><span class="lineno"> 1443</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l01444" name="l01444"></a><span class="lineno"> 1444</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l01445" name="l01445"></a><span class="lineno"> 1445</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l01446" name="l01446"></a><span class="lineno"> 1446</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l01447" name="l01447"></a><span class="lineno"> 1447</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01448" name="l01448"></a><span class="lineno"> 1448</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
-<div class="line"><a id="l01449" name="l01449"></a><span class="lineno"> 1449</span> </div>
-<div class="line"><a id="l01450" name="l01450"></a><span class="lineno"> 1450</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01451" name="l01451"></a><span class="lineno"> 1451</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn, istat, lwork, flag</div>
-<div class="line"><a id="l01452" name="l01452"></a><span class="lineno"> 1452</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: wptr, s, w</div>
-<div class="line"><a id="l01453" name="l01453"></a><span class="lineno"> 1453</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: wrk</div>
-<div class="line"><a id="l01454" name="l01454"></a><span class="lineno"> 1454</span><span class="keywordtype">        real</span>(real64) :: t, tref, smlnum</div>
-<div class="line"><a id="l01455" name="l01455"></a><span class="lineno"> 1455</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">dimension(1)</span> :: dummy, temp</div>
-<div class="line"><a id="l01456" name="l01456"></a><span class="lineno"> 1456</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01457" name="l01457"></a><span class="lineno"> 1457</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01458" name="l01458"></a><span class="lineno"> 1458</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
-<div class="line"><a id="l01459" name="l01459"></a><span class="lineno"> 1459</span> </div>
-<div class="line"><a id="l01460" name="l01460"></a><span class="lineno"> 1460</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01461" name="l01461"></a><span class="lineno"> 1461</span>        m = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l01462" name="l01462"></a><span class="lineno"> 1462</span>        n = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l01463" name="l01463"></a><span class="lineno"> 1463</span>        mn = min(m, n)</div>
-<div class="line"><a id="l01464" name="l01464"></a><span class="lineno"> 1464</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
-<div class="line"><a id="l01465" name="l01465"></a><span class="lineno"> 1465</span>        rnk = 0</div>
-<div class="line"><a id="l01466" name="l01466"></a><span class="lineno"> 1466</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01467" name="l01467"></a><span class="lineno"> 1467</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01468" name="l01468"></a><span class="lineno"> 1468</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01469" name="l01469"></a><span class="lineno"> 1469</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l01470" name="l01470"></a><span class="lineno"> 1470</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01428" name="l01428"></a><span class="lineno"> 1428</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l01429" name="l01429"></a><span class="lineno"> 1429</span>        <span class="keywordflow">if</span> (lside) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01430" name="l01430"></a><span class="lineno"> 1430</span>            <span class="comment">! Compute B = DIAG * B</span></div>
+<div class="line"><a id="l01431" name="l01431"></a><span class="lineno"> 1431</span>            <span class="keywordflow">do</span> ii = 1, nrow</div>
+<div class="line"><a id="l01432" name="l01432"></a><span class="lineno"> 1432</span>                k1 = b%row_indices(ii)</div>
+<div class="line"><a id="l01433" name="l01433"></a><span class="lineno"> 1433</span>                k2 = b%row_indices(ii+1) - 1</div>
+<div class="line"><a id="l01434" name="l01434"></a><span class="lineno"> 1434</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01435" name="l01435"></a><span class="lineno"> 1435</span>                    scal = a(ii)</div>
+<div class="line"><a id="l01436" name="l01436"></a><span class="lineno"> 1436</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01437" name="l01437"></a><span class="lineno"> 1437</span>                    scal = alpha * a(ii)</div>
+<div class="line"><a id="l01438" name="l01438"></a><span class="lineno"> 1438</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l01439" name="l01439"></a><span class="lineno"> 1439</span>                <span class="keywordflow">do</span> k = k1, k2</div>
+<div class="line"><a id="l01440" name="l01440"></a><span class="lineno"> 1440</span>                    b%values(k) = b%values(k) * scal</div>
+<div class="line"><a id="l01441" name="l01441"></a><span class="lineno"> 1441</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l01442" name="l01442"></a><span class="lineno"> 1442</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01443" name="l01443"></a><span class="lineno"> 1443</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01444" name="l01444"></a><span class="lineno"> 1444</span>            <span class="comment">! Compute B = B * DIAG</span></div>
+<div class="line"><a id="l01445" name="l01445"></a><span class="lineno"> 1445</span>            <span class="keywordflow">do</span> ii = 1, nrow</div>
+<div class="line"><a id="l01446" name="l01446"></a><span class="lineno"> 1446</span>                k1 = b%row_indices(ii)</div>
+<div class="line"><a id="l01447" name="l01447"></a><span class="lineno"> 1447</span>                k2 = b%row_indices(ii+1) - 1</div>
+<div class="line"><a id="l01448" name="l01448"></a><span class="lineno"> 1448</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01449" name="l01449"></a><span class="lineno"> 1449</span>                    <span class="keywordflow">do</span> k = k1, k2</div>
+<div class="line"><a id="l01450" name="l01450"></a><span class="lineno"> 1450</span>                        b%values(k) = b%values(k) * a(b%column_indices(k))</div>
+<div class="line"><a id="l01451" name="l01451"></a><span class="lineno"> 1451</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l01452" name="l01452"></a><span class="lineno"> 1452</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01453" name="l01453"></a><span class="lineno"> 1453</span>                    <span class="keywordflow">do</span> k = k1, k2</div>
+<div class="line"><a id="l01454" name="l01454"></a><span class="lineno"> 1454</span>                        b%values(k) = alpha * b%values(k) * a(b%column_indices(k))</div>
+<div class="line"><a id="l01455" name="l01455"></a><span class="lineno"> 1455</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l01456" name="l01456"></a><span class="lineno"> 1456</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l01457" name="l01457"></a><span class="lineno"> 1457</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01458" name="l01458"></a><span class="lineno"> 1458</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01459" name="l01459"></a><span class="lineno"> 1459</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01460" name="l01460"></a><span class="lineno"> 1460</span> </div>
+<div class="line"><a id="l01461" name="l01461"></a><span class="lineno"> 1461</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l01462" name="l01462"></a><span class="lineno"> 1462</span><span class="comment">! BASIC OPERATION ROUTINES</span></div>
+<div class="line"><a id="l01463" name="l01463"></a><span class="lineno"> 1463</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01464" name="l01464"></a><span class="lineno"> 1464</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_dbl(x) result(y)</div>
+<div class="line"><a id="l01465" name="l01465"></a><span class="lineno"> 1465</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01466" name="l01466"></a><span class="lineno"> 1466</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l01467" name="l01467"></a><span class="lineno"> 1467</span><span class="keywordtype">        real</span>(real64) :: y</div>
+<div class="line"><a id="l01468" name="l01468"></a><span class="lineno"> 1468</span> </div>
+<div class="line"><a id="l01469" name="l01469"></a><span class="lineno"> 1469</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l01470" name="l01470"></a><span class="lineno"> 1470</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
 <div class="line"><a id="l01471" name="l01471"></a><span class="lineno"> 1471</span> </div>
-<div class="line"><a id="l01472" name="l01472"></a><span class="lineno"> 1472</span>        <span class="comment">! Workspace Query</span></div>
-<div class="line"><a id="l01473" name="l01473"></a><span class="lineno"> 1473</span>        <span class="comment">!call svd(a, a(1:mn,1), olwork = lwork)</span></div>
-<div class="line"><a id="l01474" name="l01474"></a><span class="lineno"> 1474</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgesvd.html">dgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, dummy, dummy, m, dummy, n, temp, &amp;</div>
-<div class="line"><a id="l01475" name="l01475"></a><span class="lineno"> 1475</span>            -1, flag)</div>
-<div class="line"><a id="l01476" name="l01476"></a><span class="lineno"> 1476</span>        lwork = int(temp(1), int32) + mn</div>
-<div class="line"><a id="l01477" name="l01477"></a><span class="lineno"> 1477</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(olwork)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01478" name="l01478"></a><span class="lineno"> 1478</span>            olwork = lwork</div>
-<div class="line"><a id="l01479" name="l01479"></a><span class="lineno"> 1479</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01480" name="l01480"></a><span class="lineno"> 1480</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01481" name="l01481"></a><span class="lineno"> 1481</span> </div>
-<div class="line"><a id="l01482" name="l01482"></a><span class="lineno"> 1482</span>        <span class="comment">! Local Memory Allocation</span></div>
-<div class="line"><a id="l01483" name="l01483"></a><span class="lineno"> 1483</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(work)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01484" name="l01484"></a><span class="lineno"> 1484</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(work) &lt; lwork) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01485" name="l01485"></a><span class="lineno"> 1485</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
-<div class="line"><a id="l01486" name="l01486"></a><span class="lineno"> 1486</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank&quot;</span>, &amp;</div>
-<div class="line"><a id="l01487" name="l01487"></a><span class="lineno"> 1487</span>                    <span class="stringliteral">&quot;Incorrectly sized input array WORK, argument 5.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01488" name="l01488"></a><span class="lineno"> 1488</span>                    la_array_size_error)</div>
-<div class="line"><a id="l01489" name="l01489"></a><span class="lineno"> 1489</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01490" name="l01490"></a><span class="lineno"> 1490</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01491" name="l01491"></a><span class="lineno"> 1491</span>            wptr =&gt; work(1:lwork)</div>
-<div class="line"><a id="l01492" name="l01492"></a><span class="lineno"> 1492</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01493" name="l01493"></a><span class="lineno"> 1493</span>            <span class="keyword">allocate</span>(wrk(lwork), stat = istat)</div>
-<div class="line"><a id="l01494" name="l01494"></a><span class="lineno"> 1494</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01495" name="l01495"></a><span class="lineno"> 1495</span>                <span class="comment">! ERROR: Out of memory</span></div>
-<div class="line"><a id="l01496" name="l01496"></a><span class="lineno"> 1496</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank&quot;</span>, &amp;</div>
-<div class="line"><a id="l01497" name="l01497"></a><span class="lineno"> 1497</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01498" name="l01498"></a><span class="lineno"> 1498</span>                    la_out_of_memory_error)</div>
-<div class="line"><a id="l01499" name="l01499"></a><span class="lineno"> 1499</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01500" name="l01500"></a><span class="lineno"> 1500</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01501" name="l01501"></a><span class="lineno"> 1501</span>            wptr =&gt; wrk</div>
-<div class="line"><a id="l01502" name="l01502"></a><span class="lineno"> 1502</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01503" name="l01503"></a><span class="lineno"> 1503</span>        s =&gt; wptr(1:mn)</div>
-<div class="line"><a id="l01504" name="l01504"></a><span class="lineno"> 1504</span>        w =&gt; wptr(mn+1:lwork)</div>
-<div class="line"><a id="l01505" name="l01505"></a><span class="lineno"> 1505</span> </div>
-<div class="line"><a id="l01506" name="l01506"></a><span class="lineno"> 1506</span>        <span class="comment">! Compute the singular values of A</span></div>
-<div class="line"><a id="l01507" name="l01507"></a><span class="lineno"> 1507</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgesvd.html">dgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, s, dummy, m, dummy, n, w, &amp;</div>
-<div class="line"><a id="l01508" name="l01508"></a><span class="lineno"> 1508</span>            lwork - mn, flag)</div>
-<div class="line"><a id="l01509" name="l01509"></a><span class="lineno"> 1509</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01510" name="l01510"></a><span class="lineno"> 1510</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
-<div class="line"><a id="l01511" name="l01511"></a><span class="lineno"> 1511</span>            <span class="keyword">write</span>(errmsg, 100) flag, <span class="stringliteral">&quot; superdiagonals could not &quot;</span> // &amp;</div>
-<div class="line"><a id="l01512" name="l01512"></a><span class="lineno"> 1512</span>                <span class="stringliteral">&quot;converge to zero as part of the QR iteration process.&quot;</span></div>
-<div class="line"><a id="l01513" name="l01513"></a><span class="lineno"> 1513</span>            <span class="keyword">call </span>errmgr%report_warning(<span class="stringliteral">&quot;mtx_rank&quot;</span>, errmsg, la_convergence_error)</div>
-<div class="line"><a id="l01514" name="l01514"></a><span class="lineno"> 1514</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01515" name="l01515"></a><span class="lineno"> 1515</span> </div>
-<div class="line"><a id="l01516" name="l01516"></a><span class="lineno"> 1516</span>        <span class="comment">! Determine the threshold tolerance for the singular values such that</span></div>
-<div class="line"><a id="l01517" name="l01517"></a><span class="lineno"> 1517</span>        <span class="comment">! singular values less than the threshold result in zero when inverted.</span></div>
-<div class="line"><a id="l01518" name="l01518"></a><span class="lineno"> 1518</span>        tref = max(m, n) * epsilon(t) * s(1)</div>
-<div class="line"><a id="l01519" name="l01519"></a><span class="lineno"> 1519</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(tol)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01520" name="l01520"></a><span class="lineno"> 1520</span>            t = tol</div>
-<div class="line"><a id="l01521" name="l01521"></a><span class="lineno"> 1521</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01522" name="l01522"></a><span class="lineno"> 1522</span>            t = tref</div>
-<div class="line"><a id="l01523" name="l01523"></a><span class="lineno"> 1523</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01524" name="l01524"></a><span class="lineno"> 1524</span>        <span class="keywordflow">if</span> (t &lt; smlnum) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01525" name="l01525"></a><span class="lineno"> 1525</span>            <span class="comment">! ! The supplied tolerance is too small, simply fall back to the</span></div>
-<div class="line"><a id="l01526" name="l01526"></a><span class="lineno"> 1526</span>            <span class="comment">! ! default, but issue a warning to the user</span></div>
-<div class="line"><a id="l01527" name="l01527"></a><span class="lineno"> 1527</span>            <span class="comment">! t = tref</span></div>
-<div class="line"><a id="l01528" name="l01528"></a><span class="lineno"> 1528</span>            <span class="comment">! call report_warning(&quot;mtx_rank&quot;, &quot;The supplied tolerance was &quot; // &amp;</span></div>
-<div class="line"><a id="l01529" name="l01529"></a><span class="lineno"> 1529</span>            <span class="comment">!     &quot;smaller than a value that would result in an overflow &quot; // &amp;</span></div>
-<div class="line"><a id="l01530" name="l01530"></a><span class="lineno"> 1530</span>            <span class="comment">!     &quot;condition, or is negative; therefore, the tolerance has &quot; // &amp;</span></div>
-<div class="line"><a id="l01531" name="l01531"></a><span class="lineno"> 1531</span>            <span class="comment">!     &quot;been reset to its default value.&quot;)</span></div>
-<div class="line"><a id="l01532" name="l01532"></a><span class="lineno"> 1532</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01533" name="l01533"></a><span class="lineno"> 1533</span> </div>
-<div class="line"><a id="l01534" name="l01534"></a><span class="lineno"> 1534</span>        <span class="comment">! Count the singular values that are larger than the tolerance value</span></div>
-<div class="line"><a id="l01535" name="l01535"></a><span class="lineno"> 1535</span>        <span class="keywordflow">do</span> i = 1, mn</div>
-<div class="line"><a id="l01536" name="l01536"></a><span class="lineno"> 1536</span>            <span class="keywordflow">if</span> (s(i) &lt; t) <span class="keywordflow">exit</span></div>
-<div class="line"><a id="l01537" name="l01537"></a><span class="lineno"> 1537</span>            rnk = rnk + 1</div>
-<div class="line"><a id="l01538" name="l01538"></a><span class="lineno"> 1538</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01539" name="l01539"></a><span class="lineno"> 1539</span> </div>
-<div class="line"><a id="l01540" name="l01540"></a><span class="lineno"> 1540</span>        <span class="comment">! Formatting</span></div>
-<div class="line"><a id="l01541" name="l01541"></a><span class="lineno"> 1541</span>100     <span class="keyword">format</span>(i0, a)</div>
-<div class="line"><a id="l01542" name="l01542"></a><span class="lineno"> 1542</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l01543" name="l01543"></a><span class="lineno"> 1543</span> </div>
-<div class="line"><a id="l01544" name="l01544"></a><span class="lineno"> 1544</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01545" name="l01545"></a><span class="lineno"> 1545</span>    <span class="keyword">module</span> function mtx_rank_cmplx(a, tol, work, olwork, rwork, err) result(rnk)</div>
-<div class="line"><a id="l01546" name="l01546"></a><span class="lineno"> 1546</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01547" name="l01547"></a><span class="lineno"> 1547</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l01548" name="l01548"></a><span class="lineno"> 1548</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
-<div class="line"><a id="l01549" name="l01549"></a><span class="lineno"> 1549</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
-<div class="line"><a id="l01550" name="l01550"></a><span class="lineno"> 1550</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
-<div class="line"><a id="l01551" name="l01551"></a><span class="lineno"> 1551</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
-<div class="line"><a id="l01552" name="l01552"></a><span class="lineno"> 1552</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01553" name="l01553"></a><span class="lineno"> 1553</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
-<div class="line"><a id="l01554" name="l01554"></a><span class="lineno"> 1554</span> </div>
-<div class="line"><a id="l01555" name="l01555"></a><span class="lineno"> 1555</span>        <span class="comment">! External Function Interfaces</span></div>
-<div class="line"><a id="l01556" name="l01556"></a><span class="lineno"> 1556</span>        <span class="keyword">interface</span></div>
-<div class="line"><a id="l01557" name="l01557"></a><span class="lineno"> 1557</span>            <span class="keyword">function </span><a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(cmach) <span class="keyword">result</span>(x)</div>
-<div class="line"><a id="l01558" name="l01558"></a><span class="lineno"> 1558</span>                use, <span class="keywordtype">intrinsic</span> :: iso_fortran_env, only : real64</div>
-<div class="line"><a id="l01559" name="l01559"></a><span class="lineno"> 1559</span>                <span class="keywordtype">character</span>, <span class="keywordtype">intent(in)</span> :: cmach</div>
-<div class="line"><a id="l01560" name="l01560"></a><span class="lineno"> 1560</span><span class="keywordtype">                real</span>(real64) :: x</div>
-<div class="line"><a id="l01561" name="l01561"></a><span class="lineno"> 1561</span>            <span class="keyword">end function</span></div>
-<div class="line"><a id="l01562" name="l01562"></a><span class="lineno"> 1562</span>        <span class="keyword">end interface</span></div>
-<div class="line"><a id="l01563" name="l01563"></a><span class="lineno"> 1563</span> </div>
-<div class="line"><a id="l01564" name="l01564"></a><span class="lineno"> 1564</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01565" name="l01565"></a><span class="lineno"> 1565</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn, istat, lwork, flag, lrwork</div>
-<div class="line"><a id="l01566" name="l01566"></a><span class="lineno"> 1566</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: s, rwptr, rw</div>
-<div class="line"><a id="l01567" name="l01567"></a><span class="lineno"> 1567</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: rwrk</div>
-<div class="line"><a id="l01568" name="l01568"></a><span class="lineno"> 1568</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: wrk</div>
-<div class="line"><a id="l01569" name="l01569"></a><span class="lineno"> 1569</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: wptr</div>
-<div class="line"><a id="l01570" name="l01570"></a><span class="lineno"> 1570</span><span class="keywordtype">        real</span>(real64) :: t, tref, smlnum</div>
-<div class="line"><a id="l01571" name="l01571"></a><span class="lineno"> 1571</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">dimension(1)</span> :: dummy</div>
-<div class="line"><a id="l01572" name="l01572"></a><span class="lineno"> 1572</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">dimension(1)</span> :: cdummy, temp</div>
-<div class="line"><a id="l01573" name="l01573"></a><span class="lineno"> 1573</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01574" name="l01574"></a><span class="lineno"> 1574</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01575" name="l01575"></a><span class="lineno"> 1575</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
+<div class="line"><a id="l01472" name="l01472"></a><span class="lineno"> 1472</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01473" name="l01473"></a><span class="lineno"> 1473</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
+<div class="line"><a id="l01474" name="l01474"></a><span class="lineno"> 1474</span> </div>
+<div class="line"><a id="l01475" name="l01475"></a><span class="lineno"> 1475</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01476" name="l01476"></a><span class="lineno"> 1476</span>        y = zero</div>
+<div class="line"><a id="l01477" name="l01477"></a><span class="lineno"> 1477</span>        m = <span class="keyword">size</span>(x, 1)</div>
+<div class="line"><a id="l01478" name="l01478"></a><span class="lineno"> 1478</span>        n = <span class="keyword">size</span>(x, 2)</div>
+<div class="line"><a id="l01479" name="l01479"></a><span class="lineno"> 1479</span>        mn = min(m, n)</div>
+<div class="line"><a id="l01480" name="l01480"></a><span class="lineno"> 1480</span> </div>
+<div class="line"><a id="l01481" name="l01481"></a><span class="lineno"> 1481</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l01482" name="l01482"></a><span class="lineno"> 1482</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l01483" name="l01483"></a><span class="lineno"> 1483</span>            y = y + x(i,i)</div>
+<div class="line"><a id="l01484" name="l01484"></a><span class="lineno"> 1484</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01485" name="l01485"></a><span class="lineno"> 1485</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01486" name="l01486"></a><span class="lineno"> 1486</span> </div>
+<div class="line"><a id="l01487" name="l01487"></a><span class="lineno"> 1487</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01488" name="l01488"></a><span class="lineno"> 1488</span>    <span class="keywordtype">pure</span> <span class="keyword">module</span> function trace_cmplx(x) result(y)</div>
+<div class="line"><a id="l01489" name="l01489"></a><span class="lineno"> 1489</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01490" name="l01490"></a><span class="lineno"> 1490</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l01491" name="l01491"></a><span class="lineno"> 1491</span>        <span class="keywordtype">complex(real64)</span> :: y</div>
+<div class="line"><a id="l01492" name="l01492"></a><span class="lineno"> 1492</span> </div>
+<div class="line"><a id="l01493" name="l01493"></a><span class="lineno"> 1493</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l01494" name="l01494"></a><span class="lineno"> 1494</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
+<div class="line"><a id="l01495" name="l01495"></a><span class="lineno"> 1495</span> </div>
+<div class="line"><a id="l01496" name="l01496"></a><span class="lineno"> 1496</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01497" name="l01497"></a><span class="lineno"> 1497</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
+<div class="line"><a id="l01498" name="l01498"></a><span class="lineno"> 1498</span> </div>
+<div class="line"><a id="l01499" name="l01499"></a><span class="lineno"> 1499</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01500" name="l01500"></a><span class="lineno"> 1500</span>        y = zero</div>
+<div class="line"><a id="l01501" name="l01501"></a><span class="lineno"> 1501</span>        m = <span class="keyword">size</span>(x, 1)</div>
+<div class="line"><a id="l01502" name="l01502"></a><span class="lineno"> 1502</span>        n = <span class="keyword">size</span>(x, 2)</div>
+<div class="line"><a id="l01503" name="l01503"></a><span class="lineno"> 1503</span>        mn = min(m, n)</div>
+<div class="line"><a id="l01504" name="l01504"></a><span class="lineno"> 1504</span> </div>
+<div class="line"><a id="l01505" name="l01505"></a><span class="lineno"> 1505</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l01506" name="l01506"></a><span class="lineno"> 1506</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l01507" name="l01507"></a><span class="lineno"> 1507</span>            y = y + x(i,i)</div>
+<div class="line"><a id="l01508" name="l01508"></a><span class="lineno"> 1508</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01509" name="l01509"></a><span class="lineno"> 1509</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01510" name="l01510"></a><span class="lineno"> 1510</span> </div>
+<div class="line"><a id="l01511" name="l01511"></a><span class="lineno"> 1511</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01512" name="l01512"></a><span class="lineno"> 1512</span>    <span class="keyword">module</span> function mtx_rank_dbl(a, tol, work, olwork, err) result(rnk)</div>
+<div class="line"><a id="l01513" name="l01513"></a><span class="lineno"> 1513</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01514" name="l01514"></a><span class="lineno"> 1514</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l01515" name="l01515"></a><span class="lineno"> 1515</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l01516" name="l01516"></a><span class="lineno"> 1516</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l01517" name="l01517"></a><span class="lineno"> 1517</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l01518" name="l01518"></a><span class="lineno"> 1518</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01519" name="l01519"></a><span class="lineno"> 1519</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
+<div class="line"><a id="l01520" name="l01520"></a><span class="lineno"> 1520</span> </div>
+<div class="line"><a id="l01521" name="l01521"></a><span class="lineno"> 1521</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01522" name="l01522"></a><span class="lineno"> 1522</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn, istat, lwork, flag</div>
+<div class="line"><a id="l01523" name="l01523"></a><span class="lineno"> 1523</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: wptr, s, w</div>
+<div class="line"><a id="l01524" name="l01524"></a><span class="lineno"> 1524</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: wrk</div>
+<div class="line"><a id="l01525" name="l01525"></a><span class="lineno"> 1525</span><span class="keywordtype">        real</span>(real64) :: t, tref, smlnum</div>
+<div class="line"><a id="l01526" name="l01526"></a><span class="lineno"> 1526</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">dimension(1)</span> :: dummy, temp</div>
+<div class="line"><a id="l01527" name="l01527"></a><span class="lineno"> 1527</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01528" name="l01528"></a><span class="lineno"> 1528</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01529" name="l01529"></a><span class="lineno"> 1529</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
+<div class="line"><a id="l01530" name="l01530"></a><span class="lineno"> 1530</span> </div>
+<div class="line"><a id="l01531" name="l01531"></a><span class="lineno"> 1531</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01532" name="l01532"></a><span class="lineno"> 1532</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01533" name="l01533"></a><span class="lineno"> 1533</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l01534" name="l01534"></a><span class="lineno"> 1534</span>        mn = min(m, n)</div>
+<div class="line"><a id="l01535" name="l01535"></a><span class="lineno"> 1535</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
+<div class="line"><a id="l01536" name="l01536"></a><span class="lineno"> 1536</span>        rnk = 0</div>
+<div class="line"><a id="l01537" name="l01537"></a><span class="lineno"> 1537</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01538" name="l01538"></a><span class="lineno"> 1538</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01539" name="l01539"></a><span class="lineno"> 1539</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01540" name="l01540"></a><span class="lineno"> 1540</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01541" name="l01541"></a><span class="lineno"> 1541</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01542" name="l01542"></a><span class="lineno"> 1542</span> </div>
+<div class="line"><a id="l01543" name="l01543"></a><span class="lineno"> 1543</span>        <span class="comment">! Workspace Query</span></div>
+<div class="line"><a id="l01544" name="l01544"></a><span class="lineno"> 1544</span>        <span class="comment">!call svd(a, a(1:mn,1), olwork = lwork)</span></div>
+<div class="line"><a id="l01545" name="l01545"></a><span class="lineno"> 1545</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgesvd.html">dgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, dummy, dummy, m, dummy, n, temp, &amp;</div>
+<div class="line"><a id="l01546" name="l01546"></a><span class="lineno"> 1546</span>            -1, flag)</div>
+<div class="line"><a id="l01547" name="l01547"></a><span class="lineno"> 1547</span>        lwork = int(temp(1), int32) + mn</div>
+<div class="line"><a id="l01548" name="l01548"></a><span class="lineno"> 1548</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(olwork)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01549" name="l01549"></a><span class="lineno"> 1549</span>            olwork = lwork</div>
+<div class="line"><a id="l01550" name="l01550"></a><span class="lineno"> 1550</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01551" name="l01551"></a><span class="lineno"> 1551</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01552" name="l01552"></a><span class="lineno"> 1552</span> </div>
+<div class="line"><a id="l01553" name="l01553"></a><span class="lineno"> 1553</span>        <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l01554" name="l01554"></a><span class="lineno"> 1554</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(work)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01555" name="l01555"></a><span class="lineno"> 1555</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(work) &lt; lwork) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01556" name="l01556"></a><span class="lineno"> 1556</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
+<div class="line"><a id="l01557" name="l01557"></a><span class="lineno"> 1557</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank&quot;</span>, &amp;</div>
+<div class="line"><a id="l01558" name="l01558"></a><span class="lineno"> 1558</span>                    <span class="stringliteral">&quot;Incorrectly sized input array WORK, argument 5.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01559" name="l01559"></a><span class="lineno"> 1559</span>                    la_array_size_error)</div>
+<div class="line"><a id="l01560" name="l01560"></a><span class="lineno"> 1560</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01561" name="l01561"></a><span class="lineno"> 1561</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01562" name="l01562"></a><span class="lineno"> 1562</span>            wptr =&gt; work(1:lwork)</div>
+<div class="line"><a id="l01563" name="l01563"></a><span class="lineno"> 1563</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01564" name="l01564"></a><span class="lineno"> 1564</span>            <span class="keyword">allocate</span>(wrk(lwork), stat = istat)</div>
+<div class="line"><a id="l01565" name="l01565"></a><span class="lineno"> 1565</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01566" name="l01566"></a><span class="lineno"> 1566</span>                <span class="comment">! ERROR: Out of memory</span></div>
+<div class="line"><a id="l01567" name="l01567"></a><span class="lineno"> 1567</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank&quot;</span>, &amp;</div>
+<div class="line"><a id="l01568" name="l01568"></a><span class="lineno"> 1568</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01569" name="l01569"></a><span class="lineno"> 1569</span>                    la_out_of_memory_error)</div>
+<div class="line"><a id="l01570" name="l01570"></a><span class="lineno"> 1570</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01571" name="l01571"></a><span class="lineno"> 1571</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01572" name="l01572"></a><span class="lineno"> 1572</span>            wptr =&gt; wrk</div>
+<div class="line"><a id="l01573" name="l01573"></a><span class="lineno"> 1573</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01574" name="l01574"></a><span class="lineno"> 1574</span>        s =&gt; wptr(1:mn)</div>
+<div class="line"><a id="l01575" name="l01575"></a><span class="lineno"> 1575</span>        w =&gt; wptr(mn+1:lwork)</div>
 <div class="line"><a id="l01576" name="l01576"></a><span class="lineno"> 1576</span> </div>
-<div class="line"><a id="l01577" name="l01577"></a><span class="lineno"> 1577</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01578" name="l01578"></a><span class="lineno"> 1578</span>        m = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l01579" name="l01579"></a><span class="lineno"> 1579</span>        n = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l01580" name="l01580"></a><span class="lineno"> 1580</span>        mn = min(m, n)</div>
-<div class="line"><a id="l01581" name="l01581"></a><span class="lineno"> 1581</span>        lrwork = 6 * mn</div>
-<div class="line"><a id="l01582" name="l01582"></a><span class="lineno"> 1582</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
-<div class="line"><a id="l01583" name="l01583"></a><span class="lineno"> 1583</span>        rnk = 0</div>
-<div class="line"><a id="l01584" name="l01584"></a><span class="lineno"> 1584</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01585" name="l01585"></a><span class="lineno"> 1585</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01586" name="l01586"></a><span class="lineno"> 1586</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01587" name="l01587"></a><span class="lineno"> 1587</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l01588" name="l01588"></a><span class="lineno"> 1588</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01589" name="l01589"></a><span class="lineno"> 1589</span> </div>
-<div class="line"><a id="l01590" name="l01590"></a><span class="lineno"> 1590</span>        <span class="comment">! Workspace Query</span></div>
-<div class="line"><a id="l01591" name="l01591"></a><span class="lineno"> 1591</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgesvd.html">zgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, dummy, cdummy, m, cdummy, n, temp, &amp;</div>
-<div class="line"><a id="l01592" name="l01592"></a><span class="lineno"> 1592</span>            -1, dummy, flag)</div>
-<div class="line"><a id="l01593" name="l01593"></a><span class="lineno"> 1593</span>        lwork = int(temp(1), int32)</div>
-<div class="line"><a id="l01594" name="l01594"></a><span class="lineno"> 1594</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(olwork)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01595" name="l01595"></a><span class="lineno"> 1595</span>            olwork = lwork</div>
-<div class="line"><a id="l01596" name="l01596"></a><span class="lineno"> 1596</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01597" name="l01597"></a><span class="lineno"> 1597</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01598" name="l01598"></a><span class="lineno"> 1598</span> </div>
-<div class="line"><a id="l01599" name="l01599"></a><span class="lineno"> 1599</span>        <span class="comment">! Local Memory Allocation</span></div>
-<div class="line"><a id="l01600" name="l01600"></a><span class="lineno"> 1600</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(work)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01601" name="l01601"></a><span class="lineno"> 1601</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(work) &lt; lwork) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01602" name="l01602"></a><span class="lineno"> 1602</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
-<div class="line"><a id="l01603" name="l01603"></a><span class="lineno"> 1603</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01604" name="l01604"></a><span class="lineno"> 1604</span>                    <span class="stringliteral">&quot;Incorrectly sized input array WORK, argument 5.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01605" name="l01605"></a><span class="lineno"> 1605</span>                    la_array_size_error)</div>
-<div class="line"><a id="l01606" name="l01606"></a><span class="lineno"> 1606</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01607" name="l01607"></a><span class="lineno"> 1607</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01608" name="l01608"></a><span class="lineno"> 1608</span>            wptr =&gt; work(1:lwork)</div>
-<div class="line"><a id="l01609" name="l01609"></a><span class="lineno"> 1609</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01610" name="l01610"></a><span class="lineno"> 1610</span>            <span class="keyword">allocate</span>(wrk(lwork), stat = istat)</div>
-<div class="line"><a id="l01611" name="l01611"></a><span class="lineno"> 1611</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01612" name="l01612"></a><span class="lineno"> 1612</span>                <span class="comment">! ERROR: Out of memory</span></div>
-<div class="line"><a id="l01613" name="l01613"></a><span class="lineno"> 1613</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01614" name="l01614"></a><span class="lineno"> 1614</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01615" name="l01615"></a><span class="lineno"> 1615</span>                    la_out_of_memory_error)</div>
-<div class="line"><a id="l01616" name="l01616"></a><span class="lineno"> 1616</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01617" name="l01617"></a><span class="lineno"> 1617</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01618" name="l01618"></a><span class="lineno"> 1618</span>            wptr =&gt; wrk</div>
-<div class="line"><a id="l01619" name="l01619"></a><span class="lineno"> 1619</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01620" name="l01620"></a><span class="lineno"> 1620</span> </div>
-<div class="line"><a id="l01621" name="l01621"></a><span class="lineno"> 1621</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(rwork)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01622" name="l01622"></a><span class="lineno"> 1622</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(rwork) &lt; lrwork) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01623" name="l01623"></a><span class="lineno"> 1623</span>                <span class="comment">! ERROR: RWORK not sized correctly</span></div>
-<div class="line"><a id="l01624" name="l01624"></a><span class="lineno"> 1624</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01625" name="l01625"></a><span class="lineno"> 1625</span>                    <span class="stringliteral">&quot;Incorrectly sized input array RWORK.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01626" name="l01626"></a><span class="lineno"> 1626</span>                    la_array_size_error)</div>
-<div class="line"><a id="l01627" name="l01627"></a><span class="lineno"> 1627</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01628" name="l01628"></a><span class="lineno"> 1628</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01629" name="l01629"></a><span class="lineno"> 1629</span>            rwptr =&gt; rwork(1:lrwork)</div>
-<div class="line"><a id="l01630" name="l01630"></a><span class="lineno"> 1630</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01631" name="l01631"></a><span class="lineno"> 1631</span>            <span class="keyword">allocate</span>(rwrk(lrwork), stat = istat)</div>
-<div class="line"><a id="l01632" name="l01632"></a><span class="lineno"> 1632</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01633" name="l01633"></a><span class="lineno"> 1633</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01634" name="l01634"></a><span class="lineno"> 1634</span>            rwptr =&gt; rwrk</div>
-<div class="line"><a id="l01635" name="l01635"></a><span class="lineno"> 1635</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01636" name="l01636"></a><span class="lineno"> 1636</span>        s =&gt; rwptr(1:mn)</div>
-<div class="line"><a id="l01637" name="l01637"></a><span class="lineno"> 1637</span>        rw =&gt; rwptr(mn+1:lrwork)</div>
-<div class="line"><a id="l01638" name="l01638"></a><span class="lineno"> 1638</span> </div>
-<div class="line"><a id="l01639" name="l01639"></a><span class="lineno"> 1639</span>        <span class="comment">! Compute the singular values of A</span></div>
-<div class="line"><a id="l01640" name="l01640"></a><span class="lineno"> 1640</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgesvd.html">zgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, s, cdummy, m, cdummy, n, wptr, &amp;</div>
-<div class="line"><a id="l01641" name="l01641"></a><span class="lineno"> 1641</span>            lwork - mn, rw, flag)</div>
-<div class="line"><a id="l01642" name="l01642"></a><span class="lineno"> 1642</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01643" name="l01643"></a><span class="lineno"> 1643</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
-<div class="line"><a id="l01644" name="l01644"></a><span class="lineno"> 1644</span>            <span class="keyword">write</span>(errmsg, 100) flag, <span class="stringliteral">&quot; superdiagonals could not &quot;</span> // &amp;</div>
-<div class="line"><a id="l01645" name="l01645"></a><span class="lineno"> 1645</span>                <span class="stringliteral">&quot;converge to zero as part of the QR iteration process.&quot;</span></div>
-<div class="line"><a id="l01646" name="l01646"></a><span class="lineno"> 1646</span>            <span class="keyword">call </span>errmgr%report_warning(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, errmsg, la_convergence_error)</div>
-<div class="line"><a id="l01647" name="l01647"></a><span class="lineno"> 1647</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01648" name="l01648"></a><span class="lineno"> 1648</span> </div>
-<div class="line"><a id="l01649" name="l01649"></a><span class="lineno"> 1649</span>        <span class="comment">! Determine the threshold tolerance for the singular values such that</span></div>
-<div class="line"><a id="l01650" name="l01650"></a><span class="lineno"> 1650</span>        <span class="comment">! singular values less than the threshold result in zero when inverted.</span></div>
-<div class="line"><a id="l01651" name="l01651"></a><span class="lineno"> 1651</span>        tref = max(m, n) * epsilon(t) * s(1)</div>
-<div class="line"><a id="l01652" name="l01652"></a><span class="lineno"> 1652</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(tol)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01653" name="l01653"></a><span class="lineno"> 1653</span>            t = tol</div>
-<div class="line"><a id="l01654" name="l01654"></a><span class="lineno"> 1654</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01655" name="l01655"></a><span class="lineno"> 1655</span>            t = tref</div>
-<div class="line"><a id="l01656" name="l01656"></a><span class="lineno"> 1656</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01657" name="l01657"></a><span class="lineno"> 1657</span>        <span class="keywordflow">if</span> (t &lt; smlnum) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01658" name="l01658"></a><span class="lineno"> 1658</span>            <span class="comment">! ! The supplied tolerance is too small, simply fall back to the</span></div>
-<div class="line"><a id="l01659" name="l01659"></a><span class="lineno"> 1659</span>            <span class="comment">! ! default, but issue a warning to the user</span></div>
-<div class="line"><a id="l01660" name="l01660"></a><span class="lineno"> 1660</span>            <span class="comment">! t = tref</span></div>
-<div class="line"><a id="l01661" name="l01661"></a><span class="lineno"> 1661</span>            <span class="comment">! call report_warning(&quot;mtx_rank&quot;, &quot;The supplied tolerance was &quot; // &amp;</span></div>
-<div class="line"><a id="l01662" name="l01662"></a><span class="lineno"> 1662</span>            <span class="comment">!     &quot;smaller than a value that would result in an overflow &quot; // &amp;</span></div>
-<div class="line"><a id="l01663" name="l01663"></a><span class="lineno"> 1663</span>            <span class="comment">!     &quot;condition, or is negative; therefore, the tolerance has &quot; // &amp;</span></div>
-<div class="line"><a id="l01664" name="l01664"></a><span class="lineno"> 1664</span>            <span class="comment">!     &quot;been reset to its default value.&quot;)</span></div>
-<div class="line"><a id="l01665" name="l01665"></a><span class="lineno"> 1665</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01666" name="l01666"></a><span class="lineno"> 1666</span> </div>
-<div class="line"><a id="l01667" name="l01667"></a><span class="lineno"> 1667</span>        <span class="comment">! Count the singular values that are larger than the tolerance value</span></div>
-<div class="line"><a id="l01668" name="l01668"></a><span class="lineno"> 1668</span>        <span class="keywordflow">do</span> i = 1, mn</div>
-<div class="line"><a id="l01669" name="l01669"></a><span class="lineno"> 1669</span>            <span class="keywordflow">if</span> (s(i) &lt; t) <span class="keywordflow">exit</span></div>
-<div class="line"><a id="l01670" name="l01670"></a><span class="lineno"> 1670</span>            rnk = rnk + 1</div>
-<div class="line"><a id="l01671" name="l01671"></a><span class="lineno"> 1671</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01672" name="l01672"></a><span class="lineno"> 1672</span> </div>
-<div class="line"><a id="l01673" name="l01673"></a><span class="lineno"> 1673</span>        <span class="comment">! Formatting</span></div>
-<div class="line"><a id="l01674" name="l01674"></a><span class="lineno"> 1674</span>100     <span class="keyword">format</span>(i0, a)</div>
-<div class="line"><a id="l01675" name="l01675"></a><span class="lineno"> 1675</span>    <span class="keyword">end function</span></div>
-<div class="line"><a id="l01676" name="l01676"></a><span class="lineno"> 1676</span> </div>
-<div class="line"><a id="l01677" name="l01677"></a><span class="lineno"> 1677</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01678" name="l01678"></a><span class="lineno"> 1678</span>    <span class="keyword">module</span> function det_dbl(a, iwork, err) result(x)</div>
-<div class="line"><a id="l01679" name="l01679"></a><span class="lineno"> 1679</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01680" name="l01680"></a><span class="lineno"> 1680</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l01681" name="l01681"></a><span class="lineno"> 1681</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l01682" name="l01682"></a><span class="lineno"> 1682</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01683" name="l01683"></a><span class="lineno"> 1683</span><span class="keywordtype">        real</span>(real64) :: x</div>
-<div class="line"><a id="l01684" name="l01684"></a><span class="lineno"> 1684</span> </div>
-<div class="line"><a id="l01685" name="l01685"></a><span class="lineno"> 1685</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l01686" name="l01686"></a><span class="lineno"> 1686</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
-<div class="line"><a id="l01687" name="l01687"></a><span class="lineno"> 1687</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
-<div class="line"><a id="l01688" name="l01688"></a><span class="lineno"> 1688</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: ten = 1.0d1</div>
-<div class="line"><a id="l01689" name="l01689"></a><span class="lineno"> 1689</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: p1 = 1.0d-1</div>
-<div class="line"><a id="l01690" name="l01690"></a><span class="lineno"> 1690</span> </div>
-<div class="line"><a id="l01691" name="l01691"></a><span class="lineno"> 1691</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01692" name="l01692"></a><span class="lineno"> 1692</span>        <span class="keywordtype">integer(int32)</span> :: i, ep, n, istat, flag</div>
-<div class="line"><a id="l01693" name="l01693"></a><span class="lineno"> 1693</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l01694" name="l01694"></a><span class="lineno"> 1694</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: iwrk</div>
-<div class="line"><a id="l01695" name="l01695"></a><span class="lineno"> 1695</span><span class="keywordtype">        real</span>(real64) :: temp</div>
-<div class="line"><a id="l01696" name="l01696"></a><span class="lineno"> 1696</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01697" name="l01697"></a><span class="lineno"> 1697</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01698" name="l01698"></a><span class="lineno"> 1698</span> </div>
-<div class="line"><a id="l01699" name="l01699"></a><span class="lineno"> 1699</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01700" name="l01700"></a><span class="lineno"> 1700</span>        n = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l01701" name="l01701"></a><span class="lineno"> 1701</span>        x = zero</div>
-<div class="line"><a id="l01702" name="l01702"></a><span class="lineno"> 1702</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01703" name="l01703"></a><span class="lineno"> 1703</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01704" name="l01704"></a><span class="lineno"> 1704</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01705" name="l01705"></a><span class="lineno"> 1705</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01577" name="l01577"></a><span class="lineno"> 1577</span>        <span class="comment">! Compute the singular values of A</span></div>
+<div class="line"><a id="l01578" name="l01578"></a><span class="lineno"> 1578</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgesvd.html">dgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, s, dummy, m, dummy, n, w, &amp;</div>
+<div class="line"><a id="l01579" name="l01579"></a><span class="lineno"> 1579</span>            lwork - mn, flag)</div>
+<div class="line"><a id="l01580" name="l01580"></a><span class="lineno"> 1580</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01581" name="l01581"></a><span class="lineno"> 1581</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
+<div class="line"><a id="l01582" name="l01582"></a><span class="lineno"> 1582</span>            <span class="keyword">write</span>(errmsg, 100) flag, <span class="stringliteral">&quot; superdiagonals could not &quot;</span> // &amp;</div>
+<div class="line"><a id="l01583" name="l01583"></a><span class="lineno"> 1583</span>                <span class="stringliteral">&quot;converge to zero as part of the QR iteration process.&quot;</span></div>
+<div class="line"><a id="l01584" name="l01584"></a><span class="lineno"> 1584</span>            <span class="keyword">call </span>errmgr%report_warning(<span class="stringliteral">&quot;mtx_rank&quot;</span>, errmsg, la_convergence_error)</div>
+<div class="line"><a id="l01585" name="l01585"></a><span class="lineno"> 1585</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01586" name="l01586"></a><span class="lineno"> 1586</span> </div>
+<div class="line"><a id="l01587" name="l01587"></a><span class="lineno"> 1587</span>        <span class="comment">! Determine the threshold tolerance for the singular values such that</span></div>
+<div class="line"><a id="l01588" name="l01588"></a><span class="lineno"> 1588</span>        <span class="comment">! singular values less than the threshold result in zero when inverted.</span></div>
+<div class="line"><a id="l01589" name="l01589"></a><span class="lineno"> 1589</span>        tref = max(m, n) * epsilon(t) * s(1)</div>
+<div class="line"><a id="l01590" name="l01590"></a><span class="lineno"> 1590</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(tol)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01591" name="l01591"></a><span class="lineno"> 1591</span>            t = tol</div>
+<div class="line"><a id="l01592" name="l01592"></a><span class="lineno"> 1592</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01593" name="l01593"></a><span class="lineno"> 1593</span>            t = tref</div>
+<div class="line"><a id="l01594" name="l01594"></a><span class="lineno"> 1594</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01595" name="l01595"></a><span class="lineno"> 1595</span>        <span class="keywordflow">if</span> (t &lt; smlnum) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01596" name="l01596"></a><span class="lineno"> 1596</span>            <span class="comment">! ! The supplied tolerance is too small, simply fall back to the</span></div>
+<div class="line"><a id="l01597" name="l01597"></a><span class="lineno"> 1597</span>            <span class="comment">! ! default, but issue a warning to the user</span></div>
+<div class="line"><a id="l01598" name="l01598"></a><span class="lineno"> 1598</span>            <span class="comment">! t = tref</span></div>
+<div class="line"><a id="l01599" name="l01599"></a><span class="lineno"> 1599</span>            <span class="comment">! call report_warning(&quot;mtx_rank&quot;, &quot;The supplied tolerance was &quot; // &amp;</span></div>
+<div class="line"><a id="l01600" name="l01600"></a><span class="lineno"> 1600</span>            <span class="comment">!     &quot;smaller than a value that would result in an overflow &quot; // &amp;</span></div>
+<div class="line"><a id="l01601" name="l01601"></a><span class="lineno"> 1601</span>            <span class="comment">!     &quot;condition, or is negative; therefore, the tolerance has &quot; // &amp;</span></div>
+<div class="line"><a id="l01602" name="l01602"></a><span class="lineno"> 1602</span>            <span class="comment">!     &quot;been reset to its default value.&quot;)</span></div>
+<div class="line"><a id="l01603" name="l01603"></a><span class="lineno"> 1603</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01604" name="l01604"></a><span class="lineno"> 1604</span> </div>
+<div class="line"><a id="l01605" name="l01605"></a><span class="lineno"> 1605</span>        <span class="comment">! Count the singular values that are larger than the tolerance value</span></div>
+<div class="line"><a id="l01606" name="l01606"></a><span class="lineno"> 1606</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l01607" name="l01607"></a><span class="lineno"> 1607</span>            <span class="keywordflow">if</span> (s(i) &lt; t) <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l01608" name="l01608"></a><span class="lineno"> 1608</span>            rnk = rnk + 1</div>
+<div class="line"><a id="l01609" name="l01609"></a><span class="lineno"> 1609</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01610" name="l01610"></a><span class="lineno"> 1610</span> </div>
+<div class="line"><a id="l01611" name="l01611"></a><span class="lineno"> 1611</span>        <span class="comment">! Formatting</span></div>
+<div class="line"><a id="l01612" name="l01612"></a><span class="lineno"> 1612</span>100     <span class="keyword">format</span>(i0, a)</div>
+<div class="line"><a id="l01613" name="l01613"></a><span class="lineno"> 1613</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01614" name="l01614"></a><span class="lineno"> 1614</span> </div>
+<div class="line"><a id="l01615" name="l01615"></a><span class="lineno"> 1615</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01616" name="l01616"></a><span class="lineno"> 1616</span>    <span class="keyword">module</span> function mtx_rank_cmplx(a, tol, work, olwork, rwork, err) result(rnk)</div>
+<div class="line"><a id="l01617" name="l01617"></a><span class="lineno"> 1617</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01618" name="l01618"></a><span class="lineno"> 1618</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l01619" name="l01619"></a><span class="lineno"> 1619</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l01620" name="l01620"></a><span class="lineno"> 1620</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l01621" name="l01621"></a><span class="lineno"> 1621</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">optional</span> :: olwork</div>
+<div class="line"><a id="l01622" name="l01622"></a><span class="lineno"> 1622</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: rwork</div>
+<div class="line"><a id="l01623" name="l01623"></a><span class="lineno"> 1623</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01624" name="l01624"></a><span class="lineno"> 1624</span>        <span class="keywordtype">integer(int32)</span> :: rnk</div>
+<div class="line"><a id="l01625" name="l01625"></a><span class="lineno"> 1625</span> </div>
+<div class="line"><a id="l01626" name="l01626"></a><span class="lineno"> 1626</span>        <span class="comment">! External Function Interfaces</span></div>
+<div class="line"><a id="l01627" name="l01627"></a><span class="lineno"> 1627</span>        <span class="keyword">interface</span></div>
+<div class="line"><a id="l01628" name="l01628"></a><span class="lineno"> 1628</span>            <span class="keyword">function </span><a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(cmach) <span class="keyword">result</span>(x)</div>
+<div class="line"><a id="l01629" name="l01629"></a><span class="lineno"> 1629</span>                use, <span class="keywordtype">intrinsic</span> :: iso_fortran_env, only : real64</div>
+<div class="line"><a id="l01630" name="l01630"></a><span class="lineno"> 1630</span>                <span class="keywordtype">character</span>, <span class="keywordtype">intent(in)</span> :: cmach</div>
+<div class="line"><a id="l01631" name="l01631"></a><span class="lineno"> 1631</span><span class="keywordtype">                real</span>(real64) :: x</div>
+<div class="line"><a id="l01632" name="l01632"></a><span class="lineno"> 1632</span>            <span class="keyword">end function</span></div>
+<div class="line"><a id="l01633" name="l01633"></a><span class="lineno"> 1633</span>        <span class="keyword">end interface</span></div>
+<div class="line"><a id="l01634" name="l01634"></a><span class="lineno"> 1634</span> </div>
+<div class="line"><a id="l01635" name="l01635"></a><span class="lineno"> 1635</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01636" name="l01636"></a><span class="lineno"> 1636</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn, istat, lwork, flag, lrwork</div>
+<div class="line"><a id="l01637" name="l01637"></a><span class="lineno"> 1637</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: s, rwptr, rw</div>
+<div class="line"><a id="l01638" name="l01638"></a><span class="lineno"> 1638</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: rwrk</div>
+<div class="line"><a id="l01639" name="l01639"></a><span class="lineno"> 1639</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: wrk</div>
+<div class="line"><a id="l01640" name="l01640"></a><span class="lineno"> 1640</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: wptr</div>
+<div class="line"><a id="l01641" name="l01641"></a><span class="lineno"> 1641</span><span class="keywordtype">        real</span>(real64) :: t, tref, smlnum</div>
+<div class="line"><a id="l01642" name="l01642"></a><span class="lineno"> 1642</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">dimension(1)</span> :: dummy</div>
+<div class="line"><a id="l01643" name="l01643"></a><span class="lineno"> 1643</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">dimension(1)</span> :: cdummy, temp</div>
+<div class="line"><a id="l01644" name="l01644"></a><span class="lineno"> 1644</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01645" name="l01645"></a><span class="lineno"> 1645</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01646" name="l01646"></a><span class="lineno"> 1646</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
+<div class="line"><a id="l01647" name="l01647"></a><span class="lineno"> 1647</span> </div>
+<div class="line"><a id="l01648" name="l01648"></a><span class="lineno"> 1648</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01649" name="l01649"></a><span class="lineno"> 1649</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01650" name="l01650"></a><span class="lineno"> 1650</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l01651" name="l01651"></a><span class="lineno"> 1651</span>        mn = min(m, n)</div>
+<div class="line"><a id="l01652" name="l01652"></a><span class="lineno"> 1652</span>        lrwork = 6 * mn</div>
+<div class="line"><a id="l01653" name="l01653"></a><span class="lineno"> 1653</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
+<div class="line"><a id="l01654" name="l01654"></a><span class="lineno"> 1654</span>        rnk = 0</div>
+<div class="line"><a id="l01655" name="l01655"></a><span class="lineno"> 1655</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01656" name="l01656"></a><span class="lineno"> 1656</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01657" name="l01657"></a><span class="lineno"> 1657</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01658" name="l01658"></a><span class="lineno"> 1658</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01659" name="l01659"></a><span class="lineno"> 1659</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01660" name="l01660"></a><span class="lineno"> 1660</span> </div>
+<div class="line"><a id="l01661" name="l01661"></a><span class="lineno"> 1661</span>        <span class="comment">! Workspace Query</span></div>
+<div class="line"><a id="l01662" name="l01662"></a><span class="lineno"> 1662</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgesvd.html">zgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, dummy, cdummy, m, cdummy, n, temp, &amp;</div>
+<div class="line"><a id="l01663" name="l01663"></a><span class="lineno"> 1663</span>            -1, dummy, flag)</div>
+<div class="line"><a id="l01664" name="l01664"></a><span class="lineno"> 1664</span>        lwork = int(temp(1), int32)</div>
+<div class="line"><a id="l01665" name="l01665"></a><span class="lineno"> 1665</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(olwork)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01666" name="l01666"></a><span class="lineno"> 1666</span>            olwork = lwork</div>
+<div class="line"><a id="l01667" name="l01667"></a><span class="lineno"> 1667</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01668" name="l01668"></a><span class="lineno"> 1668</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01669" name="l01669"></a><span class="lineno"> 1669</span> </div>
+<div class="line"><a id="l01670" name="l01670"></a><span class="lineno"> 1670</span>        <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l01671" name="l01671"></a><span class="lineno"> 1671</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(work)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01672" name="l01672"></a><span class="lineno"> 1672</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(work) &lt; lwork) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01673" name="l01673"></a><span class="lineno"> 1673</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
+<div class="line"><a id="l01674" name="l01674"></a><span class="lineno"> 1674</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01675" name="l01675"></a><span class="lineno"> 1675</span>                    <span class="stringliteral">&quot;Incorrectly sized input array WORK, argument 5.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01676" name="l01676"></a><span class="lineno"> 1676</span>                    la_array_size_error)</div>
+<div class="line"><a id="l01677" name="l01677"></a><span class="lineno"> 1677</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01678" name="l01678"></a><span class="lineno"> 1678</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01679" name="l01679"></a><span class="lineno"> 1679</span>            wptr =&gt; work(1:lwork)</div>
+<div class="line"><a id="l01680" name="l01680"></a><span class="lineno"> 1680</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01681" name="l01681"></a><span class="lineno"> 1681</span>            <span class="keyword">allocate</span>(wrk(lwork), stat = istat)</div>
+<div class="line"><a id="l01682" name="l01682"></a><span class="lineno"> 1682</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01683" name="l01683"></a><span class="lineno"> 1683</span>                <span class="comment">! ERROR: Out of memory</span></div>
+<div class="line"><a id="l01684" name="l01684"></a><span class="lineno"> 1684</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01685" name="l01685"></a><span class="lineno"> 1685</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01686" name="l01686"></a><span class="lineno"> 1686</span>                    la_out_of_memory_error)</div>
+<div class="line"><a id="l01687" name="l01687"></a><span class="lineno"> 1687</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01688" name="l01688"></a><span class="lineno"> 1688</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01689" name="l01689"></a><span class="lineno"> 1689</span>            wptr =&gt; wrk</div>
+<div class="line"><a id="l01690" name="l01690"></a><span class="lineno"> 1690</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01691" name="l01691"></a><span class="lineno"> 1691</span> </div>
+<div class="line"><a id="l01692" name="l01692"></a><span class="lineno"> 1692</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(rwork)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01693" name="l01693"></a><span class="lineno"> 1693</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(rwork) &lt; lrwork) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01694" name="l01694"></a><span class="lineno"> 1694</span>                <span class="comment">! ERROR: RWORK not sized correctly</span></div>
+<div class="line"><a id="l01695" name="l01695"></a><span class="lineno"> 1695</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01696" name="l01696"></a><span class="lineno"> 1696</span>                    <span class="stringliteral">&quot;Incorrectly sized input array RWORK.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01697" name="l01697"></a><span class="lineno"> 1697</span>                    la_array_size_error)</div>
+<div class="line"><a id="l01698" name="l01698"></a><span class="lineno"> 1698</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01699" name="l01699"></a><span class="lineno"> 1699</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01700" name="l01700"></a><span class="lineno"> 1700</span>            rwptr =&gt; rwork(1:lrwork)</div>
+<div class="line"><a id="l01701" name="l01701"></a><span class="lineno"> 1701</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01702" name="l01702"></a><span class="lineno"> 1702</span>            <span class="keyword">allocate</span>(rwrk(lrwork), stat = istat)</div>
+<div class="line"><a id="l01703" name="l01703"></a><span class="lineno"> 1703</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01704" name="l01704"></a><span class="lineno"> 1704</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01705" name="l01705"></a><span class="lineno"> 1705</span>            rwptr =&gt; rwrk</div>
 <div class="line"><a id="l01706" name="l01706"></a><span class="lineno"> 1706</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01707" name="l01707"></a><span class="lineno"> 1707</span> </div>
-<div class="line"><a id="l01708" name="l01708"></a><span class="lineno"> 1708</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l01709" name="l01709"></a><span class="lineno"> 1709</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01710" name="l01710"></a><span class="lineno"> 1710</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
-<div class="line"><a id="l01711" name="l01711"></a><span class="lineno"> 1711</span>                <span class="stringliteral">&quot;The supplied matrix must be square.&quot;</span>, la_array_size_error)</div>
-<div class="line"><a id="l01712" name="l01712"></a><span class="lineno"> 1712</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01713" name="l01713"></a><span class="lineno"> 1713</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01714" name="l01714"></a><span class="lineno"> 1714</span> </div>
-<div class="line"><a id="l01715" name="l01715"></a><span class="lineno"> 1715</span>        <span class="comment">! Local Memory Allocation</span></div>
-<div class="line"><a id="l01716" name="l01716"></a><span class="lineno"> 1716</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(iwork)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01717" name="l01717"></a><span class="lineno"> 1717</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(iwork) &lt; n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01718" name="l01718"></a><span class="lineno"> 1718</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
-<div class="line"><a id="l01719" name="l01719"></a><span class="lineno"> 1719</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
-<div class="line"><a id="l01720" name="l01720"></a><span class="lineno"> 1720</span>                    <span class="stringliteral">&quot;Incorrectly sized input array IWORK, argument 2.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01721" name="l01721"></a><span class="lineno"> 1721</span>                    la_array_size_error)</div>
-<div class="line"><a id="l01722" name="l01722"></a><span class="lineno"> 1722</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01723" name="l01723"></a><span class="lineno"> 1723</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01724" name="l01724"></a><span class="lineno"> 1724</span>            ipvt =&gt; iwork(1:n)</div>
+<div class="line"><a id="l01707" name="l01707"></a><span class="lineno"> 1707</span>        s =&gt; rwptr(1:mn)</div>
+<div class="line"><a id="l01708" name="l01708"></a><span class="lineno"> 1708</span>        rw =&gt; rwptr(mn+1:lrwork)</div>
+<div class="line"><a id="l01709" name="l01709"></a><span class="lineno"> 1709</span> </div>
+<div class="line"><a id="l01710" name="l01710"></a><span class="lineno"> 1710</span>        <span class="comment">! Compute the singular values of A</span></div>
+<div class="line"><a id="l01711" name="l01711"></a><span class="lineno"> 1711</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgesvd.html">zgesvd</a>(<span class="stringliteral">&#39;N&#39;</span>, <span class="stringliteral">&#39;N&#39;</span>, m, n, a, m, s, cdummy, m, cdummy, n, wptr, &amp;</div>
+<div class="line"><a id="l01712" name="l01712"></a><span class="lineno"> 1712</span>            lwork - mn, rw, flag)</div>
+<div class="line"><a id="l01713" name="l01713"></a><span class="lineno"> 1713</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01714" name="l01714"></a><span class="lineno"> 1714</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
+<div class="line"><a id="l01715" name="l01715"></a><span class="lineno"> 1715</span>            <span class="keyword">write</span>(errmsg, 100) flag, <span class="stringliteral">&quot; superdiagonals could not &quot;</span> // &amp;</div>
+<div class="line"><a id="l01716" name="l01716"></a><span class="lineno"> 1716</span>                <span class="stringliteral">&quot;converge to zero as part of the QR iteration process.&quot;</span></div>
+<div class="line"><a id="l01717" name="l01717"></a><span class="lineno"> 1717</span>            <span class="keyword">call </span>errmgr%report_warning(<span class="stringliteral">&quot;mtx_rank_cmplx&quot;</span>, errmsg, la_convergence_error)</div>
+<div class="line"><a id="l01718" name="l01718"></a><span class="lineno"> 1718</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01719" name="l01719"></a><span class="lineno"> 1719</span> </div>
+<div class="line"><a id="l01720" name="l01720"></a><span class="lineno"> 1720</span>        <span class="comment">! Determine the threshold tolerance for the singular values such that</span></div>
+<div class="line"><a id="l01721" name="l01721"></a><span class="lineno"> 1721</span>        <span class="comment">! singular values less than the threshold result in zero when inverted.</span></div>
+<div class="line"><a id="l01722" name="l01722"></a><span class="lineno"> 1722</span>        tref = max(m, n) * epsilon(t) * s(1)</div>
+<div class="line"><a id="l01723" name="l01723"></a><span class="lineno"> 1723</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(tol)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01724" name="l01724"></a><span class="lineno"> 1724</span>            t = tol</div>
 <div class="line"><a id="l01725" name="l01725"></a><span class="lineno"> 1725</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01726" name="l01726"></a><span class="lineno"> 1726</span>            <span class="keyword">allocate</span>(iwrk(n), stat = istat)</div>
-<div class="line"><a id="l01727" name="l01727"></a><span class="lineno"> 1727</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01728" name="l01728"></a><span class="lineno"> 1728</span>                <span class="comment">! ERROR: Out of memory</span></div>
-<div class="line"><a id="l01729" name="l01729"></a><span class="lineno"> 1729</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
-<div class="line"><a id="l01730" name="l01730"></a><span class="lineno"> 1730</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01731" name="l01731"></a><span class="lineno"> 1731</span>                    la_out_of_memory_error)</div>
-<div class="line"><a id="l01732" name="l01732"></a><span class="lineno"> 1732</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01733" name="l01733"></a><span class="lineno"> 1733</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01734" name="l01734"></a><span class="lineno"> 1734</span>            ipvt =&gt; iwrk</div>
-<div class="line"><a id="l01735" name="l01735"></a><span class="lineno"> 1735</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01736" name="l01736"></a><span class="lineno"> 1736</span> </div>
-<div class="line"><a id="l01737" name="l01737"></a><span class="lineno"> 1737</span>        <span class="comment">! Compute the LU factorization of A</span></div>
-<div class="line"><a id="l01738" name="l01738"></a><span class="lineno"> 1738</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgetrf.html">dgetrf</a>(n, n, a, n, ipvt, flag)</div>
-<div class="line"><a id="l01739" name="l01739"></a><span class="lineno"> 1739</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01740" name="l01740"></a><span class="lineno"> 1740</span>            <span class="comment">! A singular matrix has a determinant of zero</span></div>
-<div class="line"><a id="l01741" name="l01741"></a><span class="lineno"> 1741</span>            x = zero</div>
-<div class="line"><a id="l01742" name="l01742"></a><span class="lineno"> 1742</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01743" name="l01743"></a><span class="lineno"> 1743</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01744" name="l01744"></a><span class="lineno"> 1744</span> </div>
-<div class="line"><a id="l01745" name="l01745"></a><span class="lineno"> 1745</span>        <span class="comment">! Compute the product of the diagonal of A</span></div>
-<div class="line"><a id="l01746" name="l01746"></a><span class="lineno"> 1746</span>        temp = one</div>
-<div class="line"><a id="l01747" name="l01747"></a><span class="lineno"> 1747</span>        ep = 0</div>
-<div class="line"><a id="l01748" name="l01748"></a><span class="lineno"> 1748</span>        <span class="keywordflow">do</span> i = 1, n</div>
-<div class="line"><a id="l01749" name="l01749"></a><span class="lineno"> 1749</span>            <span class="keywordflow">if</span> (ipvt(i) /= i) temp = -temp</div>
-<div class="line"><a id="l01750" name="l01750"></a><span class="lineno"> 1750</span> </div>
-<div class="line"><a id="l01751" name="l01751"></a><span class="lineno"> 1751</span>            temp = a(i,i) * temp</div>
-<div class="line"><a id="l01752" name="l01752"></a><span class="lineno"> 1752</span>            <span class="keywordflow">if</span> (temp == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01753" name="l01753"></a><span class="lineno"> 1753</span>                x = zero</div>
-<div class="line"><a id="l01754" name="l01754"></a><span class="lineno"> 1754</span>                <span class="keywordflow">exit</span></div>
-<div class="line"><a id="l01755" name="l01755"></a><span class="lineno"> 1755</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01756" name="l01756"></a><span class="lineno"> 1756</span> </div>
-<div class="line"><a id="l01757" name="l01757"></a><span class="lineno"> 1757</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &lt; one)</div>
-<div class="line"><a id="l01758" name="l01758"></a><span class="lineno"> 1758</span>                temp = ten * temp</div>
-<div class="line"><a id="l01759" name="l01759"></a><span class="lineno"> 1759</span>                ep = ep - 1</div>
-<div class="line"><a id="l01760" name="l01760"></a><span class="lineno"> 1760</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01726" name="l01726"></a><span class="lineno"> 1726</span>            t = tref</div>
+<div class="line"><a id="l01727" name="l01727"></a><span class="lineno"> 1727</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01728" name="l01728"></a><span class="lineno"> 1728</span>        <span class="keywordflow">if</span> (t &lt; smlnum) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01729" name="l01729"></a><span class="lineno"> 1729</span>            <span class="comment">! ! The supplied tolerance is too small, simply fall back to the</span></div>
+<div class="line"><a id="l01730" name="l01730"></a><span class="lineno"> 1730</span>            <span class="comment">! ! default, but issue a warning to the user</span></div>
+<div class="line"><a id="l01731" name="l01731"></a><span class="lineno"> 1731</span>            <span class="comment">! t = tref</span></div>
+<div class="line"><a id="l01732" name="l01732"></a><span class="lineno"> 1732</span>            <span class="comment">! call report_warning(&quot;mtx_rank&quot;, &quot;The supplied tolerance was &quot; // &amp;</span></div>
+<div class="line"><a id="l01733" name="l01733"></a><span class="lineno"> 1733</span>            <span class="comment">!     &quot;smaller than a value that would result in an overflow &quot; // &amp;</span></div>
+<div class="line"><a id="l01734" name="l01734"></a><span class="lineno"> 1734</span>            <span class="comment">!     &quot;condition, or is negative; therefore, the tolerance has &quot; // &amp;</span></div>
+<div class="line"><a id="l01735" name="l01735"></a><span class="lineno"> 1735</span>            <span class="comment">!     &quot;been reset to its default value.&quot;)</span></div>
+<div class="line"><a id="l01736" name="l01736"></a><span class="lineno"> 1736</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01737" name="l01737"></a><span class="lineno"> 1737</span> </div>
+<div class="line"><a id="l01738" name="l01738"></a><span class="lineno"> 1738</span>        <span class="comment">! Count the singular values that are larger than the tolerance value</span></div>
+<div class="line"><a id="l01739" name="l01739"></a><span class="lineno"> 1739</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l01740" name="l01740"></a><span class="lineno"> 1740</span>            <span class="keywordflow">if</span> (s(i) &lt; t) <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l01741" name="l01741"></a><span class="lineno"> 1741</span>            rnk = rnk + 1</div>
+<div class="line"><a id="l01742" name="l01742"></a><span class="lineno"> 1742</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01743" name="l01743"></a><span class="lineno"> 1743</span> </div>
+<div class="line"><a id="l01744" name="l01744"></a><span class="lineno"> 1744</span>        <span class="comment">! Formatting</span></div>
+<div class="line"><a id="l01745" name="l01745"></a><span class="lineno"> 1745</span>100     <span class="keyword">format</span>(i0, a)</div>
+<div class="line"><a id="l01746" name="l01746"></a><span class="lineno"> 1746</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01747" name="l01747"></a><span class="lineno"> 1747</span> </div>
+<div class="line"><a id="l01748" name="l01748"></a><span class="lineno"> 1748</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01749" name="l01749"></a><span class="lineno"> 1749</span>    <span class="keyword">module</span> function det_dbl(a, iwork, err) result(x)</div>
+<div class="line"><a id="l01750" name="l01750"></a><span class="lineno"> 1750</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01751" name="l01751"></a><span class="lineno"> 1751</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l01752" name="l01752"></a><span class="lineno"> 1752</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l01753" name="l01753"></a><span class="lineno"> 1753</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01754" name="l01754"></a><span class="lineno"> 1754</span><span class="keywordtype">        real</span>(real64) :: x</div>
+<div class="line"><a id="l01755" name="l01755"></a><span class="lineno"> 1755</span> </div>
+<div class="line"><a id="l01756" name="l01756"></a><span class="lineno"> 1756</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l01757" name="l01757"></a><span class="lineno"> 1757</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
+<div class="line"><a id="l01758" name="l01758"></a><span class="lineno"> 1758</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
+<div class="line"><a id="l01759" name="l01759"></a><span class="lineno"> 1759</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: ten = 1.0d1</div>
+<div class="line"><a id="l01760" name="l01760"></a><span class="lineno"> 1760</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: p1 = 1.0d-1</div>
 <div class="line"><a id="l01761" name="l01761"></a><span class="lineno"> 1761</span> </div>
-<div class="line"><a id="l01762" name="l01762"></a><span class="lineno"> 1762</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &gt; ten)</div>
-<div class="line"><a id="l01763" name="l01763"></a><span class="lineno"> 1763</span>                temp = p1 * temp</div>
-<div class="line"><a id="l01764" name="l01764"></a><span class="lineno"> 1764</span>                ep = ep + 1</div>
-<div class="line"><a id="l01765" name="l01765"></a><span class="lineno"> 1765</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l01766" name="l01766"></a><span class="lineno"> 1766</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01767" name="l01767"></a><span class="lineno"> 1767</span>        x = temp * ten**ep</div>
-<div class="line"><a id="l01768" name="l01768"></a><span class="lineno"> 1768</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01762" name="l01762"></a><span class="lineno"> 1762</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01763" name="l01763"></a><span class="lineno"> 1763</span>        <span class="keywordtype">integer(int32)</span> :: i, ep, n, istat, flag</div>
+<div class="line"><a id="l01764" name="l01764"></a><span class="lineno"> 1764</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l01765" name="l01765"></a><span class="lineno"> 1765</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: iwrk</div>
+<div class="line"><a id="l01766" name="l01766"></a><span class="lineno"> 1766</span><span class="keywordtype">        real</span>(real64) :: temp</div>
+<div class="line"><a id="l01767" name="l01767"></a><span class="lineno"> 1767</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01768" name="l01768"></a><span class="lineno"> 1768</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
 <div class="line"><a id="l01769" name="l01769"></a><span class="lineno"> 1769</span> </div>
-<div class="line"><a id="l01770" name="l01770"></a><span class="lineno"> 1770</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01771" name="l01771"></a><span class="lineno"> 1771</span>    <span class="keyword">module</span> function det_cmplx(a, iwork, err) result(x)</div>
-<div class="line"><a id="l01772" name="l01772"></a><span class="lineno"> 1772</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01773" name="l01773"></a><span class="lineno"> 1773</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l01774" name="l01774"></a><span class="lineno"> 1774</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
-<div class="line"><a id="l01775" name="l01775"></a><span class="lineno"> 1775</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01776" name="l01776"></a><span class="lineno"> 1776</span>        <span class="keywordtype">complex(real64)</span> :: x</div>
-<div class="line"><a id="l01777" name="l01777"></a><span class="lineno"> 1777</span> </div>
-<div class="line"><a id="l01778" name="l01778"></a><span class="lineno"> 1778</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l01779" name="l01779"></a><span class="lineno"> 1779</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
-<div class="line"><a id="l01780" name="l01780"></a><span class="lineno"> 1780</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: one = (1.0d0, 0.0d0)</div>
-<div class="line"><a id="l01781" name="l01781"></a><span class="lineno"> 1781</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: ten = (1.0d1, 0.0d0)</div>
-<div class="line"><a id="l01782" name="l01782"></a><span class="lineno"> 1782</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: p1 = (1.0d-1, 0.0d0)</div>
-<div class="line"><a id="l01783" name="l01783"></a><span class="lineno"> 1783</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: real_one = 1.0d0</div>
-<div class="line"><a id="l01784" name="l01784"></a><span class="lineno"> 1784</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: real_ten = 1.0d1</div>
+<div class="line"><a id="l01770" name="l01770"></a><span class="lineno"> 1770</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01771" name="l01771"></a><span class="lineno"> 1771</span>        n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01772" name="l01772"></a><span class="lineno"> 1772</span>        x = zero</div>
+<div class="line"><a id="l01773" name="l01773"></a><span class="lineno"> 1773</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01774" name="l01774"></a><span class="lineno"> 1774</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01775" name="l01775"></a><span class="lineno"> 1775</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01776" name="l01776"></a><span class="lineno"> 1776</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01777" name="l01777"></a><span class="lineno"> 1777</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01778" name="l01778"></a><span class="lineno"> 1778</span> </div>
+<div class="line"><a id="l01779" name="l01779"></a><span class="lineno"> 1779</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01780" name="l01780"></a><span class="lineno"> 1780</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01781" name="l01781"></a><span class="lineno"> 1781</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
+<div class="line"><a id="l01782" name="l01782"></a><span class="lineno"> 1782</span>                <span class="stringliteral">&quot;The supplied matrix must be square.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01783" name="l01783"></a><span class="lineno"> 1783</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01784" name="l01784"></a><span class="lineno"> 1784</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l01785" name="l01785"></a><span class="lineno"> 1785</span> </div>
-<div class="line"><a id="l01786" name="l01786"></a><span class="lineno"> 1786</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01787" name="l01787"></a><span class="lineno"> 1787</span>        <span class="keywordtype">integer(int32)</span> :: i, ep, n, istat, flag</div>
-<div class="line"><a id="l01788" name="l01788"></a><span class="lineno"> 1788</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
-<div class="line"><a id="l01789" name="l01789"></a><span class="lineno"> 1789</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: iwrk</div>
-<div class="line"><a id="l01790" name="l01790"></a><span class="lineno"> 1790</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
-<div class="line"><a id="l01791" name="l01791"></a><span class="lineno"> 1791</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01792" name="l01792"></a><span class="lineno"> 1792</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01793" name="l01793"></a><span class="lineno"> 1793</span> </div>
-<div class="line"><a id="l01794" name="l01794"></a><span class="lineno"> 1794</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01795" name="l01795"></a><span class="lineno"> 1795</span>        n = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l01796" name="l01796"></a><span class="lineno"> 1796</span>        x = zero</div>
-<div class="line"><a id="l01797" name="l01797"></a><span class="lineno"> 1797</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01798" name="l01798"></a><span class="lineno"> 1798</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01799" name="l01799"></a><span class="lineno"> 1799</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01800" name="l01800"></a><span class="lineno"> 1800</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l01801" name="l01801"></a><span class="lineno"> 1801</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01802" name="l01802"></a><span class="lineno"> 1802</span> </div>
-<div class="line"><a id="l01803" name="l01803"></a><span class="lineno"> 1803</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l01804" name="l01804"></a><span class="lineno"> 1804</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01805" name="l01805"></a><span class="lineno"> 1805</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01806" name="l01806"></a><span class="lineno"> 1806</span>                <span class="stringliteral">&quot;The supplied matrix must be square.&quot;</span>, la_array_size_error)</div>
-<div class="line"><a id="l01807" name="l01807"></a><span class="lineno"> 1807</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01808" name="l01808"></a><span class="lineno"> 1808</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01809" name="l01809"></a><span class="lineno"> 1809</span> </div>
-<div class="line"><a id="l01810" name="l01810"></a><span class="lineno"> 1810</span>        <span class="comment">! Local Memory Allocation</span></div>
-<div class="line"><a id="l01811" name="l01811"></a><span class="lineno"> 1811</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(iwork)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01812" name="l01812"></a><span class="lineno"> 1812</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(iwork) &lt; n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01813" name="l01813"></a><span class="lineno"> 1813</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
-<div class="line"><a id="l01814" name="l01814"></a><span class="lineno"> 1814</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01815" name="l01815"></a><span class="lineno"> 1815</span>                    <span class="stringliteral">&quot;Incorrectly sized input array IWORK, argument 2.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01816" name="l01816"></a><span class="lineno"> 1816</span>                    la_array_size_error)</div>
-<div class="line"><a id="l01817" name="l01817"></a><span class="lineno"> 1817</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01818" name="l01818"></a><span class="lineno"> 1818</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01819" name="l01819"></a><span class="lineno"> 1819</span>            ipvt =&gt; iwork(1:n)</div>
-<div class="line"><a id="l01820" name="l01820"></a><span class="lineno"> 1820</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01821" name="l01821"></a><span class="lineno"> 1821</span>            <span class="keyword">allocate</span>(iwrk(n), stat = istat)</div>
-<div class="line"><a id="l01822" name="l01822"></a><span class="lineno"> 1822</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01823" name="l01823"></a><span class="lineno"> 1823</span>                <span class="comment">! ERROR: Out of memory</span></div>
-<div class="line"><a id="l01824" name="l01824"></a><span class="lineno"> 1824</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01825" name="l01825"></a><span class="lineno"> 1825</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01826" name="l01826"></a><span class="lineno"> 1826</span>                    la_out_of_memory_error)</div>
-<div class="line"><a id="l01827" name="l01827"></a><span class="lineno"> 1827</span>                <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01828" name="l01828"></a><span class="lineno"> 1828</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01829" name="l01829"></a><span class="lineno"> 1829</span>            ipvt =&gt; iwrk</div>
-<div class="line"><a id="l01830" name="l01830"></a><span class="lineno"> 1830</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01831" name="l01831"></a><span class="lineno"> 1831</span> </div>
-<div class="line"><a id="l01832" name="l01832"></a><span class="lineno"> 1832</span>        <span class="comment">! Compute the LU factorization of A</span></div>
-<div class="line"><a id="l01833" name="l01833"></a><span class="lineno"> 1833</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgetrf.html">zgetrf</a>(n, n, a, n, ipvt, flag)</div>
-<div class="line"><a id="l01834" name="l01834"></a><span class="lineno"> 1834</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01835" name="l01835"></a><span class="lineno"> 1835</span>            <span class="comment">! A singular matrix has a determinant of zero</span></div>
-<div class="line"><a id="l01836" name="l01836"></a><span class="lineno"> 1836</span>            x = zero</div>
-<div class="line"><a id="l01837" name="l01837"></a><span class="lineno"> 1837</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01838" name="l01838"></a><span class="lineno"> 1838</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01839" name="l01839"></a><span class="lineno"> 1839</span> </div>
-<div class="line"><a id="l01840" name="l01840"></a><span class="lineno"> 1840</span>        <span class="comment">! Compute the product of the diagonal of A</span></div>
-<div class="line"><a id="l01841" name="l01841"></a><span class="lineno"> 1841</span>        temp = one</div>
-<div class="line"><a id="l01842" name="l01842"></a><span class="lineno"> 1842</span>        ep = 0</div>
-<div class="line"><a id="l01843" name="l01843"></a><span class="lineno"> 1843</span>        <span class="keywordflow">do</span> i = 1, n</div>
-<div class="line"><a id="l01844" name="l01844"></a><span class="lineno"> 1844</span>            <span class="keywordflow">if</span> (ipvt(i) /= i) temp = -temp</div>
-<div class="line"><a id="l01845" name="l01845"></a><span class="lineno"> 1845</span> </div>
-<div class="line"><a id="l01846" name="l01846"></a><span class="lineno"> 1846</span>            temp = a(i,i) * temp</div>
-<div class="line"><a id="l01847" name="l01847"></a><span class="lineno"> 1847</span>            <span class="keywordflow">if</span> (temp == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01848" name="l01848"></a><span class="lineno"> 1848</span>                x = zero</div>
-<div class="line"><a id="l01849" name="l01849"></a><span class="lineno"> 1849</span>                <span class="keywordflow">exit</span></div>
-<div class="line"><a id="l01850" name="l01850"></a><span class="lineno"> 1850</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l01851" name="l01851"></a><span class="lineno"> 1851</span> </div>
-<div class="line"><a id="l01852" name="l01852"></a><span class="lineno"> 1852</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &lt; real_one)</div>
-<div class="line"><a id="l01853" name="l01853"></a><span class="lineno"> 1853</span>                temp = ten * temp</div>
-<div class="line"><a id="l01854" name="l01854"></a><span class="lineno"> 1854</span>                ep = ep - 1</div>
-<div class="line"><a id="l01855" name="l01855"></a><span class="lineno"> 1855</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01786" name="l01786"></a><span class="lineno"> 1786</span>        <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l01787" name="l01787"></a><span class="lineno"> 1787</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(iwork)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01788" name="l01788"></a><span class="lineno"> 1788</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(iwork) &lt; n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01789" name="l01789"></a><span class="lineno"> 1789</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
+<div class="line"><a id="l01790" name="l01790"></a><span class="lineno"> 1790</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
+<div class="line"><a id="l01791" name="l01791"></a><span class="lineno"> 1791</span>                    <span class="stringliteral">&quot;Incorrectly sized input array IWORK, argument 2.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01792" name="l01792"></a><span class="lineno"> 1792</span>                    la_array_size_error)</div>
+<div class="line"><a id="l01793" name="l01793"></a><span class="lineno"> 1793</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01794" name="l01794"></a><span class="lineno"> 1794</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01795" name="l01795"></a><span class="lineno"> 1795</span>            ipvt =&gt; iwork(1:n)</div>
+<div class="line"><a id="l01796" name="l01796"></a><span class="lineno"> 1796</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01797" name="l01797"></a><span class="lineno"> 1797</span>            <span class="keyword">allocate</span>(iwrk(n), stat = istat)</div>
+<div class="line"><a id="l01798" name="l01798"></a><span class="lineno"> 1798</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01799" name="l01799"></a><span class="lineno"> 1799</span>                <span class="comment">! ERROR: Out of memory</span></div>
+<div class="line"><a id="l01800" name="l01800"></a><span class="lineno"> 1800</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det&quot;</span>, &amp;</div>
+<div class="line"><a id="l01801" name="l01801"></a><span class="lineno"> 1801</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01802" name="l01802"></a><span class="lineno"> 1802</span>                    la_out_of_memory_error)</div>
+<div class="line"><a id="l01803" name="l01803"></a><span class="lineno"> 1803</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01804" name="l01804"></a><span class="lineno"> 1804</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01805" name="l01805"></a><span class="lineno"> 1805</span>            ipvt =&gt; iwrk</div>
+<div class="line"><a id="l01806" name="l01806"></a><span class="lineno"> 1806</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01807" name="l01807"></a><span class="lineno"> 1807</span> </div>
+<div class="line"><a id="l01808" name="l01808"></a><span class="lineno"> 1808</span>        <span class="comment">! Compute the LU factorization of A</span></div>
+<div class="line"><a id="l01809" name="l01809"></a><span class="lineno"> 1809</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1dgetrf.html">dgetrf</a>(n, n, a, n, ipvt, flag)</div>
+<div class="line"><a id="l01810" name="l01810"></a><span class="lineno"> 1810</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01811" name="l01811"></a><span class="lineno"> 1811</span>            <span class="comment">! A singular matrix has a determinant of zero</span></div>
+<div class="line"><a id="l01812" name="l01812"></a><span class="lineno"> 1812</span>            x = zero</div>
+<div class="line"><a id="l01813" name="l01813"></a><span class="lineno"> 1813</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01814" name="l01814"></a><span class="lineno"> 1814</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01815" name="l01815"></a><span class="lineno"> 1815</span> </div>
+<div class="line"><a id="l01816" name="l01816"></a><span class="lineno"> 1816</span>        <span class="comment">! Compute the product of the diagonal of A</span></div>
+<div class="line"><a id="l01817" name="l01817"></a><span class="lineno"> 1817</span>        temp = one</div>
+<div class="line"><a id="l01818" name="l01818"></a><span class="lineno"> 1818</span>        ep = 0</div>
+<div class="line"><a id="l01819" name="l01819"></a><span class="lineno"> 1819</span>        <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l01820" name="l01820"></a><span class="lineno"> 1820</span>            <span class="keywordflow">if</span> (ipvt(i) /= i) temp = -temp</div>
+<div class="line"><a id="l01821" name="l01821"></a><span class="lineno"> 1821</span> </div>
+<div class="line"><a id="l01822" name="l01822"></a><span class="lineno"> 1822</span>            temp = a(i,i) * temp</div>
+<div class="line"><a id="l01823" name="l01823"></a><span class="lineno"> 1823</span>            <span class="keywordflow">if</span> (temp == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01824" name="l01824"></a><span class="lineno"> 1824</span>                x = zero</div>
+<div class="line"><a id="l01825" name="l01825"></a><span class="lineno"> 1825</span>                <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l01826" name="l01826"></a><span class="lineno"> 1826</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01827" name="l01827"></a><span class="lineno"> 1827</span> </div>
+<div class="line"><a id="l01828" name="l01828"></a><span class="lineno"> 1828</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &lt; one)</div>
+<div class="line"><a id="l01829" name="l01829"></a><span class="lineno"> 1829</span>                temp = ten * temp</div>
+<div class="line"><a id="l01830" name="l01830"></a><span class="lineno"> 1830</span>                ep = ep - 1</div>
+<div class="line"><a id="l01831" name="l01831"></a><span class="lineno"> 1831</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01832" name="l01832"></a><span class="lineno"> 1832</span> </div>
+<div class="line"><a id="l01833" name="l01833"></a><span class="lineno"> 1833</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &gt; ten)</div>
+<div class="line"><a id="l01834" name="l01834"></a><span class="lineno"> 1834</span>                temp = p1 * temp</div>
+<div class="line"><a id="l01835" name="l01835"></a><span class="lineno"> 1835</span>                ep = ep + 1</div>
+<div class="line"><a id="l01836" name="l01836"></a><span class="lineno"> 1836</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01837" name="l01837"></a><span class="lineno"> 1837</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01838" name="l01838"></a><span class="lineno"> 1838</span>        x = temp * ten**ep</div>
+<div class="line"><a id="l01839" name="l01839"></a><span class="lineno"> 1839</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01840" name="l01840"></a><span class="lineno"> 1840</span> </div>
+<div class="line"><a id="l01841" name="l01841"></a><span class="lineno"> 1841</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01842" name="l01842"></a><span class="lineno"> 1842</span>    <span class="keyword">module</span> function det_cmplx(a, iwork, err) result(x)</div>
+<div class="line"><a id="l01843" name="l01843"></a><span class="lineno"> 1843</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01844" name="l01844"></a><span class="lineno"> 1844</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l01845" name="l01845"></a><span class="lineno"> 1845</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">target</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l01846" name="l01846"></a><span class="lineno"> 1846</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01847" name="l01847"></a><span class="lineno"> 1847</span>        <span class="keywordtype">complex(real64)</span> :: x</div>
+<div class="line"><a id="l01848" name="l01848"></a><span class="lineno"> 1848</span> </div>
+<div class="line"><a id="l01849" name="l01849"></a><span class="lineno"> 1849</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l01850" name="l01850"></a><span class="lineno"> 1850</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
+<div class="line"><a id="l01851" name="l01851"></a><span class="lineno"> 1851</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: one = (1.0d0, 0.0d0)</div>
+<div class="line"><a id="l01852" name="l01852"></a><span class="lineno"> 1852</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: ten = (1.0d1, 0.0d0)</div>
+<div class="line"><a id="l01853" name="l01853"></a><span class="lineno"> 1853</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: p1 = (1.0d-1, 0.0d0)</div>
+<div class="line"><a id="l01854" name="l01854"></a><span class="lineno"> 1854</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: real_one = 1.0d0</div>
+<div class="line"><a id="l01855" name="l01855"></a><span class="lineno"> 1855</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: real_ten = 1.0d1</div>
 <div class="line"><a id="l01856" name="l01856"></a><span class="lineno"> 1856</span> </div>
-<div class="line"><a id="l01857" name="l01857"></a><span class="lineno"> 1857</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &gt; real_ten)</div>
-<div class="line"><a id="l01858" name="l01858"></a><span class="lineno"> 1858</span>                temp = p1 * temp</div>
-<div class="line"><a id="l01859" name="l01859"></a><span class="lineno"> 1859</span>                ep = ep + 1</div>
-<div class="line"><a id="l01860" name="l01860"></a><span class="lineno"> 1860</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l01861" name="l01861"></a><span class="lineno"> 1861</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01862" name="l01862"></a><span class="lineno"> 1862</span>        x = temp * ten**ep</div>
-<div class="line"><a id="l01863" name="l01863"></a><span class="lineno"> 1863</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01857" name="l01857"></a><span class="lineno"> 1857</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01858" name="l01858"></a><span class="lineno"> 1858</span>        <span class="keywordtype">integer(int32)</span> :: i, ep, n, istat, flag</div>
+<div class="line"><a id="l01859" name="l01859"></a><span class="lineno"> 1859</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">pointer</span>, <span class="keywordtype">dimension(:)</span> :: ipvt</div>
+<div class="line"><a id="l01860" name="l01860"></a><span class="lineno"> 1860</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">target</span>, <span class="keywordtype">dimension(:)</span> :: iwrk</div>
+<div class="line"><a id="l01861" name="l01861"></a><span class="lineno"> 1861</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
+<div class="line"><a id="l01862" name="l01862"></a><span class="lineno"> 1862</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01863" name="l01863"></a><span class="lineno"> 1863</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
 <div class="line"><a id="l01864" name="l01864"></a><span class="lineno"> 1864</span> </div>
-<div class="line"><a id="l01865" name="l01865"></a><span class="lineno"> 1865</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l01866" name="l01866"></a><span class="lineno"> 1866</span><span class="comment">! ARRAY SWAPPING ROUTINE</span></div>
-<div class="line"><a id="l01867" name="l01867"></a><span class="lineno"> 1867</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01868" name="l01868"></a><span class="lineno"> 1868</span>    <span class="keyword">module</span> subroutine swap_dbl(x, y, err)</div>
-<div class="line"><a id="l01869" name="l01869"></a><span class="lineno"> 1869</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01870" name="l01870"></a><span class="lineno"> 1870</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l01871" name="l01871"></a><span class="lineno"> 1871</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01872" name="l01872"></a><span class="lineno"> 1872</span> </div>
-<div class="line"><a id="l01873" name="l01873"></a><span class="lineno"> 1873</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01874" name="l01874"></a><span class="lineno"> 1874</span>        <span class="keywordtype">integer(int32)</span> :: i, n</div>
-<div class="line"><a id="l01875" name="l01875"></a><span class="lineno"> 1875</span><span class="keywordtype">        real</span>(real64) :: temp</div>
-<div class="line"><a id="l01876" name="l01876"></a><span class="lineno"> 1876</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01877" name="l01877"></a><span class="lineno"> 1877</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01878" name="l01878"></a><span class="lineno"> 1878</span> </div>
-<div class="line"><a id="l01879" name="l01879"></a><span class="lineno"> 1879</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01880" name="l01880"></a><span class="lineno"> 1880</span>        n = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l01881" name="l01881"></a><span class="lineno"> 1881</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01882" name="l01882"></a><span class="lineno"> 1882</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01883" name="l01883"></a><span class="lineno"> 1883</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01884" name="l01884"></a><span class="lineno"> 1884</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l01885" name="l01885"></a><span class="lineno"> 1885</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01886" name="l01886"></a><span class="lineno"> 1886</span> </div>
-<div class="line"><a id="l01887" name="l01887"></a><span class="lineno"> 1887</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l01888" name="l01888"></a><span class="lineno"> 1888</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(y) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01889" name="l01889"></a><span class="lineno"> 1889</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;swap&quot;</span>, &amp;</div>
-<div class="line"><a id="l01890" name="l01890"></a><span class="lineno"> 1890</span>                <span class="stringliteral">&quot;The input arrays are not the same size.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01891" name="l01891"></a><span class="lineno"> 1891</span>                la_array_size_error)</div>
-<div class="line"><a id="l01892" name="l01892"></a><span class="lineno"> 1892</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01893" name="l01893"></a><span class="lineno"> 1893</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01894" name="l01894"></a><span class="lineno"> 1894</span> </div>
-<div class="line"><a id="l01895" name="l01895"></a><span class="lineno"> 1895</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l01896" name="l01896"></a><span class="lineno"> 1896</span>        <span class="keywordflow">do</span> i = 1, n</div>
-<div class="line"><a id="l01897" name="l01897"></a><span class="lineno"> 1897</span>            temp = x(i)</div>
-<div class="line"><a id="l01898" name="l01898"></a><span class="lineno"> 1898</span>            x(i) = y(i)</div>
-<div class="line"><a id="l01899" name="l01899"></a><span class="lineno"> 1899</span>            y(i) = temp</div>
-<div class="line"><a id="l01900" name="l01900"></a><span class="lineno"> 1900</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01901" name="l01901"></a><span class="lineno"> 1901</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01865" name="l01865"></a><span class="lineno"> 1865</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01866" name="l01866"></a><span class="lineno"> 1866</span>        n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01867" name="l01867"></a><span class="lineno"> 1867</span>        x = zero</div>
+<div class="line"><a id="l01868" name="l01868"></a><span class="lineno"> 1868</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01869" name="l01869"></a><span class="lineno"> 1869</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01870" name="l01870"></a><span class="lineno"> 1870</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01871" name="l01871"></a><span class="lineno"> 1871</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01872" name="l01872"></a><span class="lineno"> 1872</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01873" name="l01873"></a><span class="lineno"> 1873</span> </div>
+<div class="line"><a id="l01874" name="l01874"></a><span class="lineno"> 1874</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01875" name="l01875"></a><span class="lineno"> 1875</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01876" name="l01876"></a><span class="lineno"> 1876</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01877" name="l01877"></a><span class="lineno"> 1877</span>                <span class="stringliteral">&quot;The supplied matrix must be square.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01878" name="l01878"></a><span class="lineno"> 1878</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01879" name="l01879"></a><span class="lineno"> 1879</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01880" name="l01880"></a><span class="lineno"> 1880</span> </div>
+<div class="line"><a id="l01881" name="l01881"></a><span class="lineno"> 1881</span>        <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l01882" name="l01882"></a><span class="lineno"> 1882</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(iwork)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01883" name="l01883"></a><span class="lineno"> 1883</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(iwork) &lt; n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01884" name="l01884"></a><span class="lineno"> 1884</span>                <span class="comment">! ERROR: WORK not sized correctly</span></div>
+<div class="line"><a id="l01885" name="l01885"></a><span class="lineno"> 1885</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01886" name="l01886"></a><span class="lineno"> 1886</span>                    <span class="stringliteral">&quot;Incorrectly sized input array IWORK, argument 2.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01887" name="l01887"></a><span class="lineno"> 1887</span>                    la_array_size_error)</div>
+<div class="line"><a id="l01888" name="l01888"></a><span class="lineno"> 1888</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01889" name="l01889"></a><span class="lineno"> 1889</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01890" name="l01890"></a><span class="lineno"> 1890</span>            ipvt =&gt; iwork(1:n)</div>
+<div class="line"><a id="l01891" name="l01891"></a><span class="lineno"> 1891</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01892" name="l01892"></a><span class="lineno"> 1892</span>            <span class="keyword">allocate</span>(iwrk(n), stat = istat)</div>
+<div class="line"><a id="l01893" name="l01893"></a><span class="lineno"> 1893</span>            <span class="keywordflow">if</span> (istat /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01894" name="l01894"></a><span class="lineno"> 1894</span>                <span class="comment">! ERROR: Out of memory</span></div>
+<div class="line"><a id="l01895" name="l01895"></a><span class="lineno"> 1895</span>                <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;det_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01896" name="l01896"></a><span class="lineno"> 1896</span>                    <span class="stringliteral">&quot;Insufficient memory available.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01897" name="l01897"></a><span class="lineno"> 1897</span>                    la_out_of_memory_error)</div>
+<div class="line"><a id="l01898" name="l01898"></a><span class="lineno"> 1898</span>                <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01899" name="l01899"></a><span class="lineno"> 1899</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01900" name="l01900"></a><span class="lineno"> 1900</span>            ipvt =&gt; iwrk</div>
+<div class="line"><a id="l01901" name="l01901"></a><span class="lineno"> 1901</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l01902" name="l01902"></a><span class="lineno"> 1902</span> </div>
-<div class="line"><a id="l01903" name="l01903"></a><span class="lineno"> 1903</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01904" name="l01904"></a><span class="lineno"> 1904</span>    <span class="keyword">module</span> subroutine swap_cmplx(x, y, err)</div>
-<div class="line"><a id="l01905" name="l01905"></a><span class="lineno"> 1905</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01906" name="l01906"></a><span class="lineno"> 1906</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
-<div class="line"><a id="l01907" name="l01907"></a><span class="lineno"> 1907</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l01908" name="l01908"></a><span class="lineno"> 1908</span> </div>
-<div class="line"><a id="l01909" name="l01909"></a><span class="lineno"> 1909</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01910" name="l01910"></a><span class="lineno"> 1910</span>        <span class="keywordtype">integer(int32)</span> :: i, n</div>
-<div class="line"><a id="l01911" name="l01911"></a><span class="lineno"> 1911</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
-<div class="line"><a id="l01912" name="l01912"></a><span class="lineno"> 1912</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l01913" name="l01913"></a><span class="lineno"> 1913</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l01914" name="l01914"></a><span class="lineno"> 1914</span> </div>
-<div class="line"><a id="l01915" name="l01915"></a><span class="lineno"> 1915</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01916" name="l01916"></a><span class="lineno"> 1916</span>        n = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l01917" name="l01917"></a><span class="lineno"> 1917</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01918" name="l01918"></a><span class="lineno"> 1918</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l01919" name="l01919"></a><span class="lineno"> 1919</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01920" name="l01920"></a><span class="lineno"> 1920</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l01921" name="l01921"></a><span class="lineno"> 1921</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01903" name="l01903"></a><span class="lineno"> 1903</span>        <span class="comment">! Compute the LU factorization of A</span></div>
+<div class="line"><a id="l01904" name="l01904"></a><span class="lineno"> 1904</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacelapack_1_1zgetrf.html">zgetrf</a>(n, n, a, n, ipvt, flag)</div>
+<div class="line"><a id="l01905" name="l01905"></a><span class="lineno"> 1905</span>        <span class="keywordflow">if</span> (flag &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01906" name="l01906"></a><span class="lineno"> 1906</span>            <span class="comment">! A singular matrix has a determinant of zero</span></div>
+<div class="line"><a id="l01907" name="l01907"></a><span class="lineno"> 1907</span>            x = zero</div>
+<div class="line"><a id="l01908" name="l01908"></a><span class="lineno"> 1908</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01909" name="l01909"></a><span class="lineno"> 1909</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01910" name="l01910"></a><span class="lineno"> 1910</span> </div>
+<div class="line"><a id="l01911" name="l01911"></a><span class="lineno"> 1911</span>        <span class="comment">! Compute the product of the diagonal of A</span></div>
+<div class="line"><a id="l01912" name="l01912"></a><span class="lineno"> 1912</span>        temp = one</div>
+<div class="line"><a id="l01913" name="l01913"></a><span class="lineno"> 1913</span>        ep = 0</div>
+<div class="line"><a id="l01914" name="l01914"></a><span class="lineno"> 1914</span>        <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l01915" name="l01915"></a><span class="lineno"> 1915</span>            <span class="keywordflow">if</span> (ipvt(i) /= i) temp = -temp</div>
+<div class="line"><a id="l01916" name="l01916"></a><span class="lineno"> 1916</span> </div>
+<div class="line"><a id="l01917" name="l01917"></a><span class="lineno"> 1917</span>            temp = a(i,i) * temp</div>
+<div class="line"><a id="l01918" name="l01918"></a><span class="lineno"> 1918</span>            <span class="keywordflow">if</span> (temp == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01919" name="l01919"></a><span class="lineno"> 1919</span>                x = zero</div>
+<div class="line"><a id="l01920" name="l01920"></a><span class="lineno"> 1920</span>                <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l01921" name="l01921"></a><span class="lineno"> 1921</span><span class="keywordflow">            end if</span></div>
 <div class="line"><a id="l01922" name="l01922"></a><span class="lineno"> 1922</span> </div>
-<div class="line"><a id="l01923" name="l01923"></a><span class="lineno"> 1923</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l01924" name="l01924"></a><span class="lineno"> 1924</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(y) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01925" name="l01925"></a><span class="lineno"> 1925</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;swap_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l01926" name="l01926"></a><span class="lineno"> 1926</span>                <span class="stringliteral">&quot;The input arrays are not the same size.&quot;</span>, &amp;</div>
-<div class="line"><a id="l01927" name="l01927"></a><span class="lineno"> 1927</span>                la_array_size_error)</div>
-<div class="line"><a id="l01928" name="l01928"></a><span class="lineno"> 1928</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l01929" name="l01929"></a><span class="lineno"> 1929</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01930" name="l01930"></a><span class="lineno"> 1930</span> </div>
-<div class="line"><a id="l01931" name="l01931"></a><span class="lineno"> 1931</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l01932" name="l01932"></a><span class="lineno"> 1932</span>        <span class="keywordflow">do</span> i = 1, n</div>
-<div class="line"><a id="l01933" name="l01933"></a><span class="lineno"> 1933</span>            temp = x(i)</div>
-<div class="line"><a id="l01934" name="l01934"></a><span class="lineno"> 1934</span>            x(i) = y(i)</div>
-<div class="line"><a id="l01935" name="l01935"></a><span class="lineno"> 1935</span>            y(i) = temp</div>
-<div class="line"><a id="l01936" name="l01936"></a><span class="lineno"> 1936</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l01937" name="l01937"></a><span class="lineno"> 1937</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l01938" name="l01938"></a><span class="lineno"> 1938</span> </div>
-<div class="line"><a id="l01939" name="l01939"></a><span class="lineno"> 1939</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l01940" name="l01940"></a><span class="lineno"> 1940</span><span class="comment">! ARRAY MULTIPLICIATION ROUTINES</span></div>
-<div class="line"><a id="l01941" name="l01941"></a><span class="lineno"> 1941</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l01942" name="l01942"></a><span class="lineno"> 1942</span>    <span class="keyword">module</span> subroutine recip_mult_array_dbl(a, x)</div>
-<div class="line"><a id="l01943" name="l01943"></a><span class="lineno"> 1943</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l01944" name="l01944"></a><span class="lineno"> 1944</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
-<div class="line"><a id="l01945" name="l01945"></a><span class="lineno"> 1945</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l01946" name="l01946"></a><span class="lineno"> 1946</span> </div>
-<div class="line"><a id="l01947" name="l01947"></a><span class="lineno"> 1947</span>        <span class="comment">! External Function Interfaces</span></div>
-<div class="line"><a id="l01948" name="l01948"></a><span class="lineno"> 1948</span>        <span class="keyword">interface</span></div>
-<div class="line"><a id="l01949" name="l01949"></a><span class="lineno"> 1949</span>            <span class="keyword">function </span><a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(cmach) <span class="keyword">result</span>(x)</div>
-<div class="line"><a id="l01950" name="l01950"></a><span class="lineno"> 1950</span>                use, <span class="keywordtype">intrinsic</span> :: iso_fortran_env, only : real64</div>
-<div class="line"><a id="l01951" name="l01951"></a><span class="lineno"> 1951</span>                <span class="keywordtype">character</span>, <span class="keywordtype">intent(in)</span> :: cmach</div>
-<div class="line"><a id="l01952" name="l01952"></a><span class="lineno"> 1952</span><span class="keywordtype">                real</span>(real64) :: x</div>
-<div class="line"><a id="l01953" name="l01953"></a><span class="lineno"> 1953</span>            <span class="keyword">end function</span></div>
-<div class="line"><a id="l01954" name="l01954"></a><span class="lineno"> 1954</span>        <span class="keyword">end interface</span></div>
-<div class="line"><a id="l01955" name="l01955"></a><span class="lineno"> 1955</span> </div>
-<div class="line"><a id="l01956" name="l01956"></a><span class="lineno"> 1956</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l01957" name="l01957"></a><span class="lineno"> 1957</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
-<div class="line"><a id="l01958" name="l01958"></a><span class="lineno"> 1958</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
-<div class="line"><a id="l01959" name="l01959"></a><span class="lineno"> 1959</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: twotho = 2.0d3</div>
-<div class="line"><a id="l01960" name="l01960"></a><span class="lineno"> 1960</span> </div>
-<div class="line"><a id="l01961" name="l01961"></a><span class="lineno"> 1961</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l01962" name="l01962"></a><span class="lineno"> 1962</span>        <span class="keywordtype">logical</span> :: done</div>
-<div class="line"><a id="l01963" name="l01963"></a><span class="lineno"> 1963</span><span class="keywordtype">        real</span>(real64) :: bignum, cden, cden1, cnum, cnum1, mul, smlnum</div>
-<div class="line"><a id="l01964" name="l01964"></a><span class="lineno"> 1964</span> </div>
-<div class="line"><a id="l01965" name="l01965"></a><span class="lineno"> 1965</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l01966" name="l01966"></a><span class="lineno"> 1966</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
-<div class="line"><a id="l01967" name="l01967"></a><span class="lineno"> 1967</span>        bignum = one / smlnum</div>
-<div class="line"><a id="l01968" name="l01968"></a><span class="lineno"> 1968</span>        <span class="keywordflow">if</span> (log10(bignum) &gt; twotho) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01969" name="l01969"></a><span class="lineno"> 1969</span>            smlnum = sqrt(smlnum)</div>
-<div class="line"><a id="l01970" name="l01970"></a><span class="lineno"> 1970</span>            bignum = sqrt(bignum)</div>
-<div class="line"><a id="l01971" name="l01971"></a><span class="lineno"> 1971</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l01972" name="l01972"></a><span class="lineno"> 1972</span> </div>
-<div class="line"><a id="l01973" name="l01973"></a><span class="lineno"> 1973</span>        <span class="comment">! Initialize the denominator to A, and the numerator to ONE</span></div>
-<div class="line"><a id="l01974" name="l01974"></a><span class="lineno"> 1974</span>        cden = a</div>
-<div class="line"><a id="l01975" name="l01975"></a><span class="lineno"> 1975</span>        cnum = one</div>
-<div class="line"><a id="l01976" name="l01976"></a><span class="lineno"> 1976</span> </div>
-<div class="line"><a id="l01977" name="l01977"></a><span class="lineno"> 1977</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l01978" name="l01978"></a><span class="lineno"> 1978</span>        <span class="keywordflow">do</span></div>
-<div class="line"><a id="l01979" name="l01979"></a><span class="lineno"> 1979</span>            cden1 = cden * smlnum</div>
-<div class="line"><a id="l01980" name="l01980"></a><span class="lineno"> 1980</span>            cnum1 = cnum / bignum</div>
-<div class="line"><a id="l01981" name="l01981"></a><span class="lineno"> 1981</span>            <span class="keywordflow">if</span> (abs(cden1) &gt; abs(cnum) .and. cnum /= zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01982" name="l01982"></a><span class="lineno"> 1982</span>                mul = smlnum</div>
-<div class="line"><a id="l01983" name="l01983"></a><span class="lineno"> 1983</span>                done = .false.</div>
-<div class="line"><a id="l01984" name="l01984"></a><span class="lineno"> 1984</span>                cden = cden1</div>
-<div class="line"><a id="l01985" name="l01985"></a><span class="lineno"> 1985</span>            <span class="keywordflow">else</span> <span class="keywordflow">if</span> (abs(cnum1) &gt; abs(cden)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l01986" name="l01986"></a><span class="lineno"> 1986</span>                mul = bignum</div>
-<div class="line"><a id="l01987" name="l01987"></a><span class="lineno"> 1987</span>                done = .false.</div>
-<div class="line"><a id="l01988" name="l01988"></a><span class="lineno"> 1988</span>                cnum = cnum1</div>
-<div class="line"><a id="l01989" name="l01989"></a><span class="lineno"> 1989</span>            <span class="keywordflow">else</span></div>
-<div class="line"><a id="l01990" name="l01990"></a><span class="lineno"> 1990</span>                mul = cnum / cden</div>
-<div class="line"><a id="l01991" name="l01991"></a><span class="lineno"> 1991</span>                done = .true.</div>
-<div class="line"><a id="l01992" name="l01992"></a><span class="lineno"> 1992</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l01923" name="l01923"></a><span class="lineno"> 1923</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &lt; real_one)</div>
+<div class="line"><a id="l01924" name="l01924"></a><span class="lineno"> 1924</span>                temp = ten * temp</div>
+<div class="line"><a id="l01925" name="l01925"></a><span class="lineno"> 1925</span>                ep = ep - 1</div>
+<div class="line"><a id="l01926" name="l01926"></a><span class="lineno"> 1926</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01927" name="l01927"></a><span class="lineno"> 1927</span> </div>
+<div class="line"><a id="l01928" name="l01928"></a><span class="lineno"> 1928</span>            <span class="keywordflow">do</span> <span class="keywordflow">while</span> (abs(temp) &gt; real_ten)</div>
+<div class="line"><a id="l01929" name="l01929"></a><span class="lineno"> 1929</span>                temp = p1 * temp</div>
+<div class="line"><a id="l01930" name="l01930"></a><span class="lineno"> 1930</span>                ep = ep + 1</div>
+<div class="line"><a id="l01931" name="l01931"></a><span class="lineno"> 1931</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l01932" name="l01932"></a><span class="lineno"> 1932</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01933" name="l01933"></a><span class="lineno"> 1933</span>        x = temp * ten**ep</div>
+<div class="line"><a id="l01934" name="l01934"></a><span class="lineno"> 1934</span>    <span class="keyword">end function</span></div>
+<div class="line"><a id="l01935" name="l01935"></a><span class="lineno"> 1935</span> </div>
+<div class="line"><a id="l01936" name="l01936"></a><span class="lineno"> 1936</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l01937" name="l01937"></a><span class="lineno"> 1937</span><span class="comment">! ARRAY SWAPPING ROUTINE</span></div>
+<div class="line"><a id="l01938" name="l01938"></a><span class="lineno"> 1938</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01939" name="l01939"></a><span class="lineno"> 1939</span>    <span class="keyword">module</span> subroutine swap_dbl(x, y, err)</div>
+<div class="line"><a id="l01940" name="l01940"></a><span class="lineno"> 1940</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01941" name="l01941"></a><span class="lineno"> 1941</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l01942" name="l01942"></a><span class="lineno"> 1942</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01943" name="l01943"></a><span class="lineno"> 1943</span> </div>
+<div class="line"><a id="l01944" name="l01944"></a><span class="lineno"> 1944</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01945" name="l01945"></a><span class="lineno"> 1945</span>        <span class="keywordtype">integer(int32)</span> :: i, n</div>
+<div class="line"><a id="l01946" name="l01946"></a><span class="lineno"> 1946</span><span class="keywordtype">        real</span>(real64) :: temp</div>
+<div class="line"><a id="l01947" name="l01947"></a><span class="lineno"> 1947</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01948" name="l01948"></a><span class="lineno"> 1948</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01949" name="l01949"></a><span class="lineno"> 1949</span> </div>
+<div class="line"><a id="l01950" name="l01950"></a><span class="lineno"> 1950</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01951" name="l01951"></a><span class="lineno"> 1951</span>        n = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l01952" name="l01952"></a><span class="lineno"> 1952</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01953" name="l01953"></a><span class="lineno"> 1953</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01954" name="l01954"></a><span class="lineno"> 1954</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01955" name="l01955"></a><span class="lineno"> 1955</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01956" name="l01956"></a><span class="lineno"> 1956</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01957" name="l01957"></a><span class="lineno"> 1957</span> </div>
+<div class="line"><a id="l01958" name="l01958"></a><span class="lineno"> 1958</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01959" name="l01959"></a><span class="lineno"> 1959</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(y) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01960" name="l01960"></a><span class="lineno"> 1960</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;swap&quot;</span>, &amp;</div>
+<div class="line"><a id="l01961" name="l01961"></a><span class="lineno"> 1961</span>                <span class="stringliteral">&quot;The input arrays are not the same size.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01962" name="l01962"></a><span class="lineno"> 1962</span>                la_array_size_error)</div>
+<div class="line"><a id="l01963" name="l01963"></a><span class="lineno"> 1963</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01964" name="l01964"></a><span class="lineno"> 1964</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01965" name="l01965"></a><span class="lineno"> 1965</span> </div>
+<div class="line"><a id="l01966" name="l01966"></a><span class="lineno"> 1966</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l01967" name="l01967"></a><span class="lineno"> 1967</span>        <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l01968" name="l01968"></a><span class="lineno"> 1968</span>            temp = x(i)</div>
+<div class="line"><a id="l01969" name="l01969"></a><span class="lineno"> 1969</span>            x(i) = y(i)</div>
+<div class="line"><a id="l01970" name="l01970"></a><span class="lineno"> 1970</span>            y(i) = temp</div>
+<div class="line"><a id="l01971" name="l01971"></a><span class="lineno"> 1971</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l01972" name="l01972"></a><span class="lineno"> 1972</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01973" name="l01973"></a><span class="lineno"> 1973</span> </div>
+<div class="line"><a id="l01974" name="l01974"></a><span class="lineno"> 1974</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01975" name="l01975"></a><span class="lineno"> 1975</span>    <span class="keyword">module</span> subroutine swap_cmplx(x, y, err)</div>
+<div class="line"><a id="l01976" name="l01976"></a><span class="lineno"> 1976</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01977" name="l01977"></a><span class="lineno"> 1977</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x, y</div>
+<div class="line"><a id="l01978" name="l01978"></a><span class="lineno"> 1978</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01979" name="l01979"></a><span class="lineno"> 1979</span> </div>
+<div class="line"><a id="l01980" name="l01980"></a><span class="lineno"> 1980</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01981" name="l01981"></a><span class="lineno"> 1981</span>        <span class="keywordtype">integer(int32)</span> :: i, n</div>
+<div class="line"><a id="l01982" name="l01982"></a><span class="lineno"> 1982</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
+<div class="line"><a id="l01983" name="l01983"></a><span class="lineno"> 1983</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01984" name="l01984"></a><span class="lineno"> 1984</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01985" name="l01985"></a><span class="lineno"> 1985</span> </div>
+<div class="line"><a id="l01986" name="l01986"></a><span class="lineno"> 1986</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01987" name="l01987"></a><span class="lineno"> 1987</span>        n = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l01988" name="l01988"></a><span class="lineno"> 1988</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01989" name="l01989"></a><span class="lineno"> 1989</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l01990" name="l01990"></a><span class="lineno"> 1990</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01991" name="l01991"></a><span class="lineno"> 1991</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l01992" name="l01992"></a><span class="lineno"> 1992</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l01993" name="l01993"></a><span class="lineno"> 1993</span> </div>
-<div class="line"><a id="l01994" name="l01994"></a><span class="lineno"> 1994</span>            <span class="comment">! Scale the vector X by MUL</span></div>
-<div class="line"><a id="l01995" name="l01995"></a><span class="lineno"> 1995</span>            x = mul * x</div>
-<div class="line"><a id="l01996" name="l01996"></a><span class="lineno"> 1996</span> </div>
-<div class="line"><a id="l01997" name="l01997"></a><span class="lineno"> 1997</span>            <span class="comment">! Exit if done</span></div>
-<div class="line"><a id="l01998" name="l01998"></a><span class="lineno"> 1998</span>            <span class="keywordflow">if</span> (done) <span class="keywordflow">exit</span></div>
-<div class="line"><a id="l01999" name="l01999"></a><span class="lineno"> 1999</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l02000" name="l02000"></a><span class="lineno"> 2000</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01994" name="l01994"></a><span class="lineno"> 1994</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01995" name="l01995"></a><span class="lineno"> 1995</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(y) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01996" name="l01996"></a><span class="lineno"> 1996</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;swap_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l01997" name="l01997"></a><span class="lineno"> 1997</span>                <span class="stringliteral">&quot;The input arrays are not the same size.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01998" name="l01998"></a><span class="lineno"> 1998</span>                la_array_size_error)</div>
+<div class="line"><a id="l01999" name="l01999"></a><span class="lineno"> 1999</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02000" name="l02000"></a><span class="lineno"> 2000</span><span class="keywordflow">        end if</span></div>
 <div class="line"><a id="l02001" name="l02001"></a><span class="lineno"> 2001</span> </div>
-<div class="line"><a id="l02002" name="l02002"></a><span class="lineno"> 2002</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l02003" name="l02003"></a><span class="lineno"> 2003</span><span class="comment">! TRIANGULAR MATRIX MULTIPLICATION ROUTINES</span></div>
-<div class="line"><a id="l02004" name="l02004"></a><span class="lineno"> 2004</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02005" name="l02005"></a><span class="lineno"> 2005</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_dbl(upper, alpha, a, beta, b, err)</div>
-<div class="line"><a id="l02006" name="l02006"></a><span class="lineno"> 2006</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02007" name="l02007"></a><span class="lineno"> 2007</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l02008" name="l02008"></a><span class="lineno"> 2008</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l02009" name="l02009"></a><span class="lineno"> 2009</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02010" name="l02010"></a><span class="lineno"> 2010</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l02011" name="l02011"></a><span class="lineno"> 2011</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02012" name="l02012"></a><span class="lineno"> 2012</span> </div>
-<div class="line"><a id="l02013" name="l02013"></a><span class="lineno"> 2013</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02014" name="l02014"></a><span class="lineno"> 2014</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
-<div class="line"><a id="l02015" name="l02015"></a><span class="lineno"> 2015</span> </div>
-<div class="line"><a id="l02016" name="l02016"></a><span class="lineno"> 2016</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02017" name="l02017"></a><span class="lineno"> 2017</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, d1, d2, flag</div>
-<div class="line"><a id="l02018" name="l02018"></a><span class="lineno"> 2018</span><span class="keywordtype">        real</span>(real64) :: temp</div>
-<div class="line"><a id="l02019" name="l02019"></a><span class="lineno"> 2019</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02020" name="l02020"></a><span class="lineno"> 2020</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02021" name="l02021"></a><span class="lineno"> 2021</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
-<div class="line"><a id="l02022" name="l02022"></a><span class="lineno"> 2022</span> </div>
-<div class="line"><a id="l02023" name="l02023"></a><span class="lineno"> 2023</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02024" name="l02024"></a><span class="lineno"> 2024</span>        n = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l02025" name="l02025"></a><span class="lineno"> 2025</span>        d1 = n</div>
-<div class="line"><a id="l02026" name="l02026"></a><span class="lineno"> 2026</span>        d2 = n</div>
-<div class="line"><a id="l02027" name="l02027"></a><span class="lineno"> 2027</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02028" name="l02028"></a><span class="lineno"> 2028</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02029" name="l02029"></a><span class="lineno"> 2029</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02030" name="l02030"></a><span class="lineno"> 2030</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02031" name="l02031"></a><span class="lineno"> 2031</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02032" name="l02032"></a><span class="lineno"> 2032</span> </div>
-<div class="line"><a id="l02033" name="l02033"></a><span class="lineno"> 2033</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l02034" name="l02034"></a><span class="lineno"> 2034</span>        flag = 0</div>
-<div class="line"><a id="l02035" name="l02035"></a><span class="lineno"> 2035</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02036" name="l02036"></a><span class="lineno"> 2036</span>            flag = 3</div>
-<div class="line"><a id="l02037" name="l02037"></a><span class="lineno"> 2037</span>            d2 = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l02038" name="l02038"></a><span class="lineno"> 2038</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= n .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02039" name="l02039"></a><span class="lineno"> 2039</span>            flag = 5</div>
-<div class="line"><a id="l02040" name="l02040"></a><span class="lineno"> 2040</span>            d1 = <span class="keyword">size</span>(b, 1)</div>
-<div class="line"><a id="l02041" name="l02041"></a><span class="lineno"> 2041</span>            d2 = <span class="keyword">size</span>(b, 2)</div>
+<div class="line"><a id="l02002" name="l02002"></a><span class="lineno"> 2002</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02003" name="l02003"></a><span class="lineno"> 2003</span>        <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l02004" name="l02004"></a><span class="lineno"> 2004</span>            temp = x(i)</div>
+<div class="line"><a id="l02005" name="l02005"></a><span class="lineno"> 2005</span>            x(i) = y(i)</div>
+<div class="line"><a id="l02006" name="l02006"></a><span class="lineno"> 2006</span>            y(i) = temp</div>
+<div class="line"><a id="l02007" name="l02007"></a><span class="lineno"> 2007</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02008" name="l02008"></a><span class="lineno"> 2008</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02009" name="l02009"></a><span class="lineno"> 2009</span> </div>
+<div class="line"><a id="l02010" name="l02010"></a><span class="lineno"> 2010</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l02011" name="l02011"></a><span class="lineno"> 2011</span><span class="comment">! ARRAY MULTIPLICIATION ROUTINES</span></div>
+<div class="line"><a id="l02012" name="l02012"></a><span class="lineno"> 2012</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02013" name="l02013"></a><span class="lineno"> 2013</span>    <span class="keyword">module</span> subroutine recip_mult_array_dbl(a, x)</div>
+<div class="line"><a id="l02014" name="l02014"></a><span class="lineno"> 2014</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02015" name="l02015"></a><span class="lineno"> 2015</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l02016" name="l02016"></a><span class="lineno"> 2016</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l02017" name="l02017"></a><span class="lineno"> 2017</span> </div>
+<div class="line"><a id="l02018" name="l02018"></a><span class="lineno"> 2018</span>        <span class="comment">! External Function Interfaces</span></div>
+<div class="line"><a id="l02019" name="l02019"></a><span class="lineno"> 2019</span>        <span class="keyword">interface</span></div>
+<div class="line"><a id="l02020" name="l02020"></a><span class="lineno"> 2020</span>            <span class="keyword">function </span><a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(cmach) <span class="keyword">result</span>(x)</div>
+<div class="line"><a id="l02021" name="l02021"></a><span class="lineno"> 2021</span>                use, <span class="keywordtype">intrinsic</span> :: iso_fortran_env, only : real64</div>
+<div class="line"><a id="l02022" name="l02022"></a><span class="lineno"> 2022</span>                <span class="keywordtype">character</span>, <span class="keywordtype">intent(in)</span> :: cmach</div>
+<div class="line"><a id="l02023" name="l02023"></a><span class="lineno"> 2023</span><span class="keywordtype">                real</span>(real64) :: x</div>
+<div class="line"><a id="l02024" name="l02024"></a><span class="lineno"> 2024</span>            <span class="keyword">end function</span></div>
+<div class="line"><a id="l02025" name="l02025"></a><span class="lineno"> 2025</span>        <span class="keyword">end interface</span></div>
+<div class="line"><a id="l02026" name="l02026"></a><span class="lineno"> 2026</span> </div>
+<div class="line"><a id="l02027" name="l02027"></a><span class="lineno"> 2027</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02028" name="l02028"></a><span class="lineno"> 2028</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
+<div class="line"><a id="l02029" name="l02029"></a><span class="lineno"> 2029</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
+<div class="line"><a id="l02030" name="l02030"></a><span class="lineno"> 2030</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: twotho = 2.0d3</div>
+<div class="line"><a id="l02031" name="l02031"></a><span class="lineno"> 2031</span> </div>
+<div class="line"><a id="l02032" name="l02032"></a><span class="lineno"> 2032</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02033" name="l02033"></a><span class="lineno"> 2033</span>        <span class="keywordtype">logical</span> :: done</div>
+<div class="line"><a id="l02034" name="l02034"></a><span class="lineno"> 2034</span><span class="keywordtype">        real</span>(real64) :: bignum, cden, cden1, cnum, cnum1, mul, smlnum</div>
+<div class="line"><a id="l02035" name="l02035"></a><span class="lineno"> 2035</span> </div>
+<div class="line"><a id="l02036" name="l02036"></a><span class="lineno"> 2036</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02037" name="l02037"></a><span class="lineno"> 2037</span>        smlnum = <a class="code hl_interface" href="interfacelapack_1_1dlamch.html">dlamch</a>(<span class="stringliteral">&#39;s&#39;</span>)</div>
+<div class="line"><a id="l02038" name="l02038"></a><span class="lineno"> 2038</span>        bignum = one / smlnum</div>
+<div class="line"><a id="l02039" name="l02039"></a><span class="lineno"> 2039</span>        <span class="keywordflow">if</span> (log10(bignum) &gt; twotho) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02040" name="l02040"></a><span class="lineno"> 2040</span>            smlnum = sqrt(smlnum)</div>
+<div class="line"><a id="l02041" name="l02041"></a><span class="lineno"> 2041</span>            bignum = sqrt(bignum)</div>
 <div class="line"><a id="l02042" name="l02042"></a><span class="lineno"> 2042</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02043" name="l02043"></a><span class="lineno"> 2043</span>        <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02044" name="l02044"></a><span class="lineno"> 2044</span>            <span class="comment">! ERROR: Incorrectly sized matrix</span></div>
-<div class="line"><a id="l02045" name="l02045"></a><span class="lineno"> 2045</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
-<div class="line"><a id="l02046" name="l02046"></a><span class="lineno"> 2046</span>            <span class="keyword">write</span>(errmsg, 100) <span class="stringliteral">&quot;The matrix at input &quot;</span>, flag, &amp;</div>
-<div class="line"><a id="l02047" name="l02047"></a><span class="lineno"> 2047</span>                <span class="stringliteral">&quot; was not sized appropriately.  A matrix of &quot;</span>, n, <span class="stringliteral">&quot;-by-&quot;</span>, n, &amp;</div>
-<div class="line"><a id="l02048" name="l02048"></a><span class="lineno"> 2048</span>                <span class="stringliteral">&quot;was expected, but a matrix of &quot;</span>, d1, <span class="stringliteral">&quot;-by-&quot;</span>, d2, <span class="stringliteral">&quot; was found.&quot;</span></div>
-<div class="line"><a id="l02049" name="l02049"></a><span class="lineno"> 2049</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;tri_mtx_mult_dbl&quot;</span>, trim(errmsg), &amp;</div>
-<div class="line"><a id="l02050" name="l02050"></a><span class="lineno"> 2050</span>                la_array_size_error)</div>
-<div class="line"><a id="l02051" name="l02051"></a><span class="lineno"> 2051</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02052" name="l02052"></a><span class="lineno"> 2052</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02053" name="l02053"></a><span class="lineno"> 2053</span> </div>
-<div class="line"><a id="l02054" name="l02054"></a><span class="lineno"> 2054</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02055" name="l02055"></a><span class="lineno"> 2055</span>        <span class="keywordflow">if</span> (upper) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02056" name="l02056"></a><span class="lineno"> 2056</span>            <span class="comment">! Form: B = alpha * A**T * A + beta * B</span></div>
-<div class="line"><a id="l02057" name="l02057"></a><span class="lineno"> 2057</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02058" name="l02058"></a><span class="lineno"> 2058</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02059" name="l02059"></a><span class="lineno"> 2059</span>                    <span class="keywordflow">do</span> i = 1, j</div>
-<div class="line"><a id="l02060" name="l02060"></a><span class="lineno"> 2060</span>                        temp = zero</div>
-<div class="line"><a id="l02061" name="l02061"></a><span class="lineno"> 2061</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02062" name="l02062"></a><span class="lineno"> 2062</span>                            temp = temp + a(k,i) * a(k,j)</div>
-<div class="line"><a id="l02063" name="l02063"></a><span class="lineno"> 2063</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02064" name="l02064"></a><span class="lineno"> 2064</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02065" name="l02065"></a><span class="lineno"> 2065</span>                        b(i,j) = temp</div>
-<div class="line"><a id="l02066" name="l02066"></a><span class="lineno"> 2066</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
-<div class="line"><a id="l02067" name="l02067"></a><span class="lineno"> 2067</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02068" name="l02068"></a><span class="lineno"> 2068</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02069" name="l02069"></a><span class="lineno"> 2069</span>            <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02070" name="l02070"></a><span class="lineno"> 2070</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02071" name="l02071"></a><span class="lineno"> 2071</span>                    <span class="keywordflow">do</span> i = 1, j</div>
-<div class="line"><a id="l02072" name="l02072"></a><span class="lineno"> 2072</span>                        temp = zero</div>
-<div class="line"><a id="l02073" name="l02073"></a><span class="lineno"> 2073</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02074" name="l02074"></a><span class="lineno"> 2074</span>                            temp = temp + a(k,i) * a(k,j)</div>
-<div class="line"><a id="l02075" name="l02075"></a><span class="lineno"> 2075</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02076" name="l02076"></a><span class="lineno"> 2076</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02077" name="l02077"></a><span class="lineno"> 2077</span>                        b(i,j) = temp + beta * b(i,j)</div>
-<div class="line"><a id="l02078" name="l02078"></a><span class="lineno"> 2078</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
-<div class="line"><a id="l02079" name="l02079"></a><span class="lineno"> 2079</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02080" name="l02080"></a><span class="lineno"> 2080</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02081" name="l02081"></a><span class="lineno"> 2081</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l02082" name="l02082"></a><span class="lineno"> 2082</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02083" name="l02083"></a><span class="lineno"> 2083</span>            <span class="comment">! Form: B = alpha * A * A**T + beta * B</span></div>
-<div class="line"><a id="l02084" name="l02084"></a><span class="lineno"> 2084</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02085" name="l02085"></a><span class="lineno"> 2085</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02086" name="l02086"></a><span class="lineno"> 2086</span>                    <span class="keywordflow">do</span> i = j, n</div>
-<div class="line"><a id="l02087" name="l02087"></a><span class="lineno"> 2087</span>                        temp = zero</div>
-<div class="line"><a id="l02088" name="l02088"></a><span class="lineno"> 2088</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02089" name="l02089"></a><span class="lineno"> 2089</span>                            temp = temp + a(i,k) * a(j,k)</div>
-<div class="line"><a id="l02090" name="l02090"></a><span class="lineno"> 2090</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02091" name="l02091"></a><span class="lineno"> 2091</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02092" name="l02092"></a><span class="lineno"> 2092</span>                        b(i,j) = temp</div>
-<div class="line"><a id="l02093" name="l02093"></a><span class="lineno"> 2093</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
-<div class="line"><a id="l02094" name="l02094"></a><span class="lineno"> 2094</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02095" name="l02095"></a><span class="lineno"> 2095</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02096" name="l02096"></a><span class="lineno"> 2096</span>            <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02097" name="l02097"></a><span class="lineno"> 2097</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02098" name="l02098"></a><span class="lineno"> 2098</span>                    <span class="keywordflow">do</span> i = j, n</div>
-<div class="line"><a id="l02099" name="l02099"></a><span class="lineno"> 2099</span>                        temp = zero</div>
-<div class="line"><a id="l02100" name="l02100"></a><span class="lineno"> 2100</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02101" name="l02101"></a><span class="lineno"> 2101</span>                            temp = temp + a(i,k) * a(j,k)</div>
-<div class="line"><a id="l02102" name="l02102"></a><span class="lineno"> 2102</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02103" name="l02103"></a><span class="lineno"> 2103</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02104" name="l02104"></a><span class="lineno"> 2104</span>                        b(i,j) = temp + beta * b(i,j)</div>
-<div class="line"><a id="l02105" name="l02105"></a><span class="lineno"> 2105</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
-<div class="line"><a id="l02106" name="l02106"></a><span class="lineno"> 2106</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02107" name="l02107"></a><span class="lineno"> 2107</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02108" name="l02108"></a><span class="lineno"> 2108</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l02109" name="l02109"></a><span class="lineno"> 2109</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02110" name="l02110"></a><span class="lineno"> 2110</span> </div>
-<div class="line"><a id="l02111" name="l02111"></a><span class="lineno"> 2111</span>        <span class="comment">! Formatting</span></div>
-<div class="line"><a id="l02112" name="l02112"></a><span class="lineno"> 2112</span>100     <span class="keyword">format</span>(a, i0, a, i0, a, i0, a, i0, a, i0, a)</div>
-<div class="line"><a id="l02113" name="l02113"></a><span class="lineno"> 2113</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02114" name="l02114"></a><span class="lineno"> 2114</span> </div>
-<div class="line"><a id="l02115" name="l02115"></a><span class="lineno"> 2115</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02116" name="l02116"></a><span class="lineno"> 2116</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_cmplx(upper, alpha, a, beta, b, err)</div>
-<div class="line"><a id="l02117" name="l02117"></a><span class="lineno"> 2117</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02118" name="l02118"></a><span class="lineno"> 2118</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
-<div class="line"><a id="l02119" name="l02119"></a><span class="lineno"> 2119</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l02120" name="l02120"></a><span class="lineno"> 2120</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02121" name="l02121"></a><span class="lineno"> 2121</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l02122" name="l02122"></a><span class="lineno"> 2122</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02123" name="l02123"></a><span class="lineno"> 2123</span> </div>
-<div class="line"><a id="l02124" name="l02124"></a><span class="lineno"> 2124</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02125" name="l02125"></a><span class="lineno"> 2125</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
-<div class="line"><a id="l02126" name="l02126"></a><span class="lineno"> 2126</span> </div>
-<div class="line"><a id="l02127" name="l02127"></a><span class="lineno"> 2127</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02128" name="l02128"></a><span class="lineno"> 2128</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, d1, d2, flag</div>
-<div class="line"><a id="l02129" name="l02129"></a><span class="lineno"> 2129</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
-<div class="line"><a id="l02130" name="l02130"></a><span class="lineno"> 2130</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02131" name="l02131"></a><span class="lineno"> 2131</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02132" name="l02132"></a><span class="lineno"> 2132</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
-<div class="line"><a id="l02133" name="l02133"></a><span class="lineno"> 2133</span> </div>
-<div class="line"><a id="l02134" name="l02134"></a><span class="lineno"> 2134</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02135" name="l02135"></a><span class="lineno"> 2135</span>        n = <span class="keyword">size</span>(a, 1)</div>
-<div class="line"><a id="l02136" name="l02136"></a><span class="lineno"> 2136</span>        d1 = n</div>
-<div class="line"><a id="l02137" name="l02137"></a><span class="lineno"> 2137</span>        d2 = n</div>
-<div class="line"><a id="l02138" name="l02138"></a><span class="lineno"> 2138</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02139" name="l02139"></a><span class="lineno"> 2139</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02140" name="l02140"></a><span class="lineno"> 2140</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02141" name="l02141"></a><span class="lineno"> 2141</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02142" name="l02142"></a><span class="lineno"> 2142</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02143" name="l02143"></a><span class="lineno"> 2143</span> </div>
-<div class="line"><a id="l02144" name="l02144"></a><span class="lineno"> 2144</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l02145" name="l02145"></a><span class="lineno"> 2145</span>        flag = 0</div>
-<div class="line"><a id="l02146" name="l02146"></a><span class="lineno"> 2146</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02147" name="l02147"></a><span class="lineno"> 2147</span>            flag = 3</div>
-<div class="line"><a id="l02148" name="l02148"></a><span class="lineno"> 2148</span>            d2 = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l02149" name="l02149"></a><span class="lineno"> 2149</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= n .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02150" name="l02150"></a><span class="lineno"> 2150</span>            flag = 5</div>
-<div class="line"><a id="l02151" name="l02151"></a><span class="lineno"> 2151</span>            d1 = <span class="keyword">size</span>(b, 1)</div>
-<div class="line"><a id="l02152" name="l02152"></a><span class="lineno"> 2152</span>            d2 = <span class="keyword">size</span>(b, 2)</div>
-<div class="line"><a id="l02153" name="l02153"></a><span class="lineno"> 2153</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02154" name="l02154"></a><span class="lineno"> 2154</span>        <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02155" name="l02155"></a><span class="lineno"> 2155</span>            <span class="comment">! ERROR: Incorrectly sized matrix</span></div>
-<div class="line"><a id="l02156" name="l02156"></a><span class="lineno"> 2156</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
-<div class="line"><a id="l02157" name="l02157"></a><span class="lineno"> 2157</span>            <span class="keyword">write</span>(errmsg, 100) <span class="stringliteral">&quot;The matrix at input &quot;</span>, flag, &amp;</div>
-<div class="line"><a id="l02158" name="l02158"></a><span class="lineno"> 2158</span>                <span class="stringliteral">&quot; was not sized appropriately.  A matrix of &quot;</span>, n, <span class="stringliteral">&quot;-by-&quot;</span>, n, &amp;</div>
-<div class="line"><a id="l02159" name="l02159"></a><span class="lineno"> 2159</span>                <span class="stringliteral">&quot;was expected, but a matrix of &quot;</span>, d1, <span class="stringliteral">&quot;-by-&quot;</span>, d2, <span class="stringliteral">&quot; was found.&quot;</span></div>
-<div class="line"><a id="l02160" name="l02160"></a><span class="lineno"> 2160</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;tri_mtx_mult_cmplx&quot;</span>, trim(errmsg), &amp;</div>
-<div class="line"><a id="l02161" name="l02161"></a><span class="lineno"> 2161</span>                la_array_size_error)</div>
-<div class="line"><a id="l02162" name="l02162"></a><span class="lineno"> 2162</span>            <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02163" name="l02163"></a><span class="lineno"> 2163</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02164" name="l02164"></a><span class="lineno"> 2164</span> </div>
-<div class="line"><a id="l02165" name="l02165"></a><span class="lineno"> 2165</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02166" name="l02166"></a><span class="lineno"> 2166</span>        <span class="keywordflow">if</span> (upper) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02167" name="l02167"></a><span class="lineno"> 2167</span>            <span class="comment">! Form: B = alpha * A**T * A + beta * B</span></div>
-<div class="line"><a id="l02168" name="l02168"></a><span class="lineno"> 2168</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02169" name="l02169"></a><span class="lineno"> 2169</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02170" name="l02170"></a><span class="lineno"> 2170</span>                    <span class="keywordflow">do</span> i = 1, j</div>
-<div class="line"><a id="l02171" name="l02171"></a><span class="lineno"> 2171</span>                        temp = zero</div>
-<div class="line"><a id="l02172" name="l02172"></a><span class="lineno"> 2172</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02173" name="l02173"></a><span class="lineno"> 2173</span>                            temp = temp + a(k,i) * a(k,j)</div>
-<div class="line"><a id="l02174" name="l02174"></a><span class="lineno"> 2174</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02175" name="l02175"></a><span class="lineno"> 2175</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02176" name="l02176"></a><span class="lineno"> 2176</span>                        b(i,j) = temp</div>
-<div class="line"><a id="l02177" name="l02177"></a><span class="lineno"> 2177</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
-<div class="line"><a id="l02178" name="l02178"></a><span class="lineno"> 2178</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02179" name="l02179"></a><span class="lineno"> 2179</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02180" name="l02180"></a><span class="lineno"> 2180</span>            <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02181" name="l02181"></a><span class="lineno"> 2181</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02182" name="l02182"></a><span class="lineno"> 2182</span>                    <span class="keywordflow">do</span> i = 1, j</div>
-<div class="line"><a id="l02183" name="l02183"></a><span class="lineno"> 2183</span>                        temp = zero</div>
-<div class="line"><a id="l02184" name="l02184"></a><span class="lineno"> 2184</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02185" name="l02185"></a><span class="lineno"> 2185</span>                            temp = temp + a(k,i) * a(k,j)</div>
-<div class="line"><a id="l02186" name="l02186"></a><span class="lineno"> 2186</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02187" name="l02187"></a><span class="lineno"> 2187</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02188" name="l02188"></a><span class="lineno"> 2188</span>                        b(i,j) = temp + beta * b(i,j)</div>
-<div class="line"><a id="l02189" name="l02189"></a><span class="lineno"> 2189</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
-<div class="line"><a id="l02190" name="l02190"></a><span class="lineno"> 2190</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02191" name="l02191"></a><span class="lineno"> 2191</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02192" name="l02192"></a><span class="lineno"> 2192</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l02193" name="l02193"></a><span class="lineno"> 2193</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02194" name="l02194"></a><span class="lineno"> 2194</span>            <span class="comment">! Form: B = alpha * A * A**T + beta * B</span></div>
-<div class="line"><a id="l02195" name="l02195"></a><span class="lineno"> 2195</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02196" name="l02196"></a><span class="lineno"> 2196</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02197" name="l02197"></a><span class="lineno"> 2197</span>                    <span class="keywordflow">do</span> i = j, n</div>
-<div class="line"><a id="l02198" name="l02198"></a><span class="lineno"> 2198</span>                        temp = zero</div>
-<div class="line"><a id="l02199" name="l02199"></a><span class="lineno"> 2199</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02200" name="l02200"></a><span class="lineno"> 2200</span>                            temp = temp + a(i,k) * a(j,k)</div>
-<div class="line"><a id="l02201" name="l02201"></a><span class="lineno"> 2201</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02202" name="l02202"></a><span class="lineno"> 2202</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02203" name="l02203"></a><span class="lineno"> 2203</span>                        b(i,j) = temp</div>
-<div class="line"><a id="l02204" name="l02204"></a><span class="lineno"> 2204</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
-<div class="line"><a id="l02205" name="l02205"></a><span class="lineno"> 2205</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02206" name="l02206"></a><span class="lineno"> 2206</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02207" name="l02207"></a><span class="lineno"> 2207</span>            <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02208" name="l02208"></a><span class="lineno"> 2208</span>                <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02209" name="l02209"></a><span class="lineno"> 2209</span>                    <span class="keywordflow">do</span> i = j, n</div>
-<div class="line"><a id="l02210" name="l02210"></a><span class="lineno"> 2210</span>                        temp = zero</div>
-<div class="line"><a id="l02211" name="l02211"></a><span class="lineno"> 2211</span>                        <span class="keywordflow">do</span> k = 1, j</div>
-<div class="line"><a id="l02212" name="l02212"></a><span class="lineno"> 2212</span>                            temp = temp + a(i,k) * a(j,k)</div>
-<div class="line"><a id="l02213" name="l02213"></a><span class="lineno"> 2213</span><span class="keywordflow">                        end do</span></div>
-<div class="line"><a id="l02214" name="l02214"></a><span class="lineno"> 2214</span>                        temp = alpha * temp</div>
-<div class="line"><a id="l02215" name="l02215"></a><span class="lineno"> 2215</span>                        b(i,j) = temp + beta * b(i,j)</div>
-<div class="line"><a id="l02216" name="l02216"></a><span class="lineno"> 2216</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
-<div class="line"><a id="l02217" name="l02217"></a><span class="lineno"> 2217</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02218" name="l02218"></a><span class="lineno"> 2218</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02219" name="l02219"></a><span class="lineno"> 2219</span><span class="keywordflow">            end if</span></div>
-<div class="line"><a id="l02220" name="l02220"></a><span class="lineno"> 2220</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02221" name="l02221"></a><span class="lineno"> 2221</span> </div>
-<div class="line"><a id="l02222" name="l02222"></a><span class="lineno"> 2222</span>        <span class="comment">! Formatting</span></div>
-<div class="line"><a id="l02223" name="l02223"></a><span class="lineno"> 2223</span>100     <span class="keyword">format</span>(a, i0, a, i0, a, i0, a, i0, a, i0, a)</div>
-<div class="line"><a id="l02224" name="l02224"></a><span class="lineno"> 2224</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02225" name="l02225"></a><span class="lineno"> 2225</span> </div>
-<div class="line"><a id="l02226" name="l02226"></a><span class="lineno"> 2226</span><span class="comment">! ******************************************************************************</span></div>
-<div class="line"><a id="l02227" name="l02227"></a><span class="lineno"> 2227</span><span class="comment">! BANDED MATRIX MULTIPLICATION ROUTINES</span></div>
-<div class="line"><a id="l02228" name="l02228"></a><span class="lineno"> 2228</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02229" name="l02229"></a><span class="lineno"> 2229</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_dbl(trans, kl, ku, alpha, a, x, beta, &amp;</div>
-<div class="line"><a id="l02230" name="l02230"></a><span class="lineno"> 2230</span>        y, err)</div>
-<div class="line"><a id="l02231" name="l02231"></a><span class="lineno"> 2231</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02232" name="l02232"></a><span class="lineno"> 2232</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l02233" name="l02233"></a><span class="lineno"> 2233</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l02234" name="l02234"></a><span class="lineno"> 2234</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l02235" name="l02235"></a><span class="lineno"> 2235</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02236" name="l02236"></a><span class="lineno"> 2236</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l02237" name="l02237"></a><span class="lineno"> 2237</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
-<div class="line"><a id="l02238" name="l02238"></a><span class="lineno"> 2238</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02239" name="l02239"></a><span class="lineno"> 2239</span> </div>
-<div class="line"><a id="l02240" name="l02240"></a><span class="lineno"> 2240</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02241" name="l02241"></a><span class="lineno"> 2241</span>        <span class="keywordtype">integer(int32)</span> :: m, n</div>
-<div class="line"><a id="l02242" name="l02242"></a><span class="lineno"> 2242</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02243" name="l02243"></a><span class="lineno"> 2243</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02244" name="l02244"></a><span class="lineno"> 2244</span>        </div>
-<div class="line"><a id="l02245" name="l02245"></a><span class="lineno"> 2245</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02246" name="l02246"></a><span class="lineno"> 2246</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02247" name="l02247"></a><span class="lineno"> 2247</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02248" name="l02248"></a><span class="lineno"> 2248</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02249" name="l02249"></a><span class="lineno"> 2249</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02250" name="l02250"></a><span class="lineno"> 2250</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02251" name="l02251"></a><span class="lineno"> 2251</span>        <span class="keywordflow">if</span> (trans) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02252" name="l02252"></a><span class="lineno"> 2252</span>            m = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l02253" name="l02253"></a><span class="lineno"> 2253</span>            n = <span class="keyword">size</span>(y)</div>
-<div class="line"><a id="l02254" name="l02254"></a><span class="lineno"> 2254</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02255" name="l02255"></a><span class="lineno"> 2255</span>            m = <span class="keyword">size</span>(y)</div>
-<div class="line"><a id="l02256" name="l02256"></a><span class="lineno"> 2256</span>            n = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l02257" name="l02257"></a><span class="lineno"> 2257</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02258" name="l02258"></a><span class="lineno"> 2258</span> </div>
-<div class="line"><a id="l02259" name="l02259"></a><span class="lineno"> 2259</span>        <span class="comment">! Input Checking</span></div>
-<div class="line"><a id="l02260" name="l02260"></a><span class="lineno"> 2260</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02261" name="l02261"></a><span class="lineno"> 2261</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02262" name="l02262"></a><span class="lineno"> 2262</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02263" name="l02263"></a><span class="lineno"> 2263</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02264" name="l02264"></a><span class="lineno"> 2264</span> </div>
-<div class="line"><a id="l02265" name="l02265"></a><span class="lineno"> 2265</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02266" name="l02266"></a><span class="lineno"> 2266</span>        <span class="keywordflow">if</span> (trans) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02267" name="l02267"></a><span class="lineno"> 2267</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1dgbmv.html">dgbmv</a>(<span class="stringliteral">&quot;T&quot;</span>, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
-<div class="line"><a id="l02268" name="l02268"></a><span class="lineno"> 2268</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02269" name="l02269"></a><span class="lineno"> 2269</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1dgbmv.html">dgbmv</a>(<span class="stringliteral">&quot;N&quot;</span>, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
-<div class="line"><a id="l02270" name="l02270"></a><span class="lineno"> 2270</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02271" name="l02271"></a><span class="lineno"> 2271</span> </div>
-<div class="line"><a id="l02272" name="l02272"></a><span class="lineno"> 2272</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02273" name="l02273"></a><span class="lineno"> 2273</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02274" name="l02274"></a><span class="lineno"> 2274</span> </div>
-<div class="line"><a id="l02275" name="l02275"></a><span class="lineno"> 2275</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02276" name="l02276"></a><span class="lineno"> 2276</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02277" name="l02277"></a><span class="lineno"> 2277</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02278" name="l02278"></a><span class="lineno"> 2278</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02279" name="l02279"></a><span class="lineno"> 2279</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02280" name="l02280"></a><span class="lineno"> 2280</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02281" name="l02281"></a><span class="lineno"> 2281</span> </div>
-<div class="line"><a id="l02282" name="l02282"></a><span class="lineno"> 2282</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02283" name="l02283"></a><span class="lineno"> 2283</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02284" name="l02284"></a><span class="lineno"> 2284</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02285" name="l02285"></a><span class="lineno"> 2285</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02286" name="l02286"></a><span class="lineno"> 2286</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02287" name="l02287"></a><span class="lineno"> 2287</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02288" name="l02288"></a><span class="lineno"> 2288</span> </div>
-<div class="line"><a id="l02289" name="l02289"></a><span class="lineno"> 2289</span>        <span class="comment">! A is incorrectly sized</span></div>
-<div class="line"><a id="l02290" name="l02290"></a><span class="lineno"> 2290</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02291" name="l02291"></a><span class="lineno"> 2291</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02292" name="l02292"></a><span class="lineno"> 2292</span>            <span class="stringliteral">&quot;The size of matrix A is not compatible with the other vectors.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02293" name="l02293"></a><span class="lineno"> 2293</span>            la_array_size_error)</div>
-<div class="line"><a id="l02294" name="l02294"></a><span class="lineno"> 2294</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02043" name="l02043"></a><span class="lineno"> 2043</span> </div>
+<div class="line"><a id="l02044" name="l02044"></a><span class="lineno"> 2044</span>        <span class="comment">! Initialize the denominator to A, and the numerator to ONE</span></div>
+<div class="line"><a id="l02045" name="l02045"></a><span class="lineno"> 2045</span>        cden = a</div>
+<div class="line"><a id="l02046" name="l02046"></a><span class="lineno"> 2046</span>        cnum = one</div>
+<div class="line"><a id="l02047" name="l02047"></a><span class="lineno"> 2047</span> </div>
+<div class="line"><a id="l02048" name="l02048"></a><span class="lineno"> 2048</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02049" name="l02049"></a><span class="lineno"> 2049</span>        <span class="keywordflow">do</span></div>
+<div class="line"><a id="l02050" name="l02050"></a><span class="lineno"> 2050</span>            cden1 = cden * smlnum</div>
+<div class="line"><a id="l02051" name="l02051"></a><span class="lineno"> 2051</span>            cnum1 = cnum / bignum</div>
+<div class="line"><a id="l02052" name="l02052"></a><span class="lineno"> 2052</span>            <span class="keywordflow">if</span> (abs(cden1) &gt; abs(cnum) .and. cnum /= zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02053" name="l02053"></a><span class="lineno"> 2053</span>                mul = smlnum</div>
+<div class="line"><a id="l02054" name="l02054"></a><span class="lineno"> 2054</span>                done = .false.</div>
+<div class="line"><a id="l02055" name="l02055"></a><span class="lineno"> 2055</span>                cden = cden1</div>
+<div class="line"><a id="l02056" name="l02056"></a><span class="lineno"> 2056</span>            <span class="keywordflow">else</span> <span class="keywordflow">if</span> (abs(cnum1) &gt; abs(cden)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02057" name="l02057"></a><span class="lineno"> 2057</span>                mul = bignum</div>
+<div class="line"><a id="l02058" name="l02058"></a><span class="lineno"> 2058</span>                done = .false.</div>
+<div class="line"><a id="l02059" name="l02059"></a><span class="lineno"> 2059</span>                cnum = cnum1</div>
+<div class="line"><a id="l02060" name="l02060"></a><span class="lineno"> 2060</span>            <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02061" name="l02061"></a><span class="lineno"> 2061</span>                mul = cnum / cden</div>
+<div class="line"><a id="l02062" name="l02062"></a><span class="lineno"> 2062</span>                done = .true.</div>
+<div class="line"><a id="l02063" name="l02063"></a><span class="lineno"> 2063</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l02064" name="l02064"></a><span class="lineno"> 2064</span> </div>
+<div class="line"><a id="l02065" name="l02065"></a><span class="lineno"> 2065</span>            <span class="comment">! Scale the vector X by MUL</span></div>
+<div class="line"><a id="l02066" name="l02066"></a><span class="lineno"> 2066</span>            x = mul * x</div>
+<div class="line"><a id="l02067" name="l02067"></a><span class="lineno"> 2067</span> </div>
+<div class="line"><a id="l02068" name="l02068"></a><span class="lineno"> 2068</span>            <span class="comment">! Exit if done</span></div>
+<div class="line"><a id="l02069" name="l02069"></a><span class="lineno"> 2069</span>            <span class="keywordflow">if</span> (done) <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l02070" name="l02070"></a><span class="lineno"> 2070</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02071" name="l02071"></a><span class="lineno"> 2071</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02072" name="l02072"></a><span class="lineno"> 2072</span> </div>
+<div class="line"><a id="l02073" name="l02073"></a><span class="lineno"> 2073</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l02074" name="l02074"></a><span class="lineno"> 2074</span><span class="comment">! TRIANGULAR MATRIX MULTIPLICATION ROUTINES</span></div>
+<div class="line"><a id="l02075" name="l02075"></a><span class="lineno"> 2075</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02076" name="l02076"></a><span class="lineno"> 2076</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_dbl(upper, alpha, a, beta, b, err)</div>
+<div class="line"><a id="l02077" name="l02077"></a><span class="lineno"> 2077</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02078" name="l02078"></a><span class="lineno"> 2078</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l02079" name="l02079"></a><span class="lineno"> 2079</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l02080" name="l02080"></a><span class="lineno"> 2080</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02081" name="l02081"></a><span class="lineno"> 2081</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l02082" name="l02082"></a><span class="lineno"> 2082</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02083" name="l02083"></a><span class="lineno"> 2083</span> </div>
+<div class="line"><a id="l02084" name="l02084"></a><span class="lineno"> 2084</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02085" name="l02085"></a><span class="lineno"> 2085</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
+<div class="line"><a id="l02086" name="l02086"></a><span class="lineno"> 2086</span> </div>
+<div class="line"><a id="l02087" name="l02087"></a><span class="lineno"> 2087</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02088" name="l02088"></a><span class="lineno"> 2088</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, d1, d2, flag</div>
+<div class="line"><a id="l02089" name="l02089"></a><span class="lineno"> 2089</span><span class="keywordtype">        real</span>(real64) :: temp</div>
+<div class="line"><a id="l02090" name="l02090"></a><span class="lineno"> 2090</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02091" name="l02091"></a><span class="lineno"> 2091</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02092" name="l02092"></a><span class="lineno"> 2092</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
+<div class="line"><a id="l02093" name="l02093"></a><span class="lineno"> 2093</span> </div>
+<div class="line"><a id="l02094" name="l02094"></a><span class="lineno"> 2094</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02095" name="l02095"></a><span class="lineno"> 2095</span>        n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l02096" name="l02096"></a><span class="lineno"> 2096</span>        d1 = n</div>
+<div class="line"><a id="l02097" name="l02097"></a><span class="lineno"> 2097</span>        d2 = n</div>
+<div class="line"><a id="l02098" name="l02098"></a><span class="lineno"> 2098</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02099" name="l02099"></a><span class="lineno"> 2099</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02100" name="l02100"></a><span class="lineno"> 2100</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02101" name="l02101"></a><span class="lineno"> 2101</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02102" name="l02102"></a><span class="lineno"> 2102</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02103" name="l02103"></a><span class="lineno"> 2103</span> </div>
+<div class="line"><a id="l02104" name="l02104"></a><span class="lineno"> 2104</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02105" name="l02105"></a><span class="lineno"> 2105</span>        flag = 0</div>
+<div class="line"><a id="l02106" name="l02106"></a><span class="lineno"> 2106</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02107" name="l02107"></a><span class="lineno"> 2107</span>            flag = 3</div>
+<div class="line"><a id="l02108" name="l02108"></a><span class="lineno"> 2108</span>            d2 = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02109" name="l02109"></a><span class="lineno"> 2109</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= n .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02110" name="l02110"></a><span class="lineno"> 2110</span>            flag = 5</div>
+<div class="line"><a id="l02111" name="l02111"></a><span class="lineno"> 2111</span>            d1 = <span class="keyword">size</span>(b, 1)</div>
+<div class="line"><a id="l02112" name="l02112"></a><span class="lineno"> 2112</span>            d2 = <span class="keyword">size</span>(b, 2)</div>
+<div class="line"><a id="l02113" name="l02113"></a><span class="lineno"> 2113</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02114" name="l02114"></a><span class="lineno"> 2114</span>        <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02115" name="l02115"></a><span class="lineno"> 2115</span>            <span class="comment">! ERROR: Incorrectly sized matrix</span></div>
+<div class="line"><a id="l02116" name="l02116"></a><span class="lineno"> 2116</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
+<div class="line"><a id="l02117" name="l02117"></a><span class="lineno"> 2117</span>            <span class="keyword">write</span>(errmsg, 100) <span class="stringliteral">&quot;The matrix at input &quot;</span>, flag, &amp;</div>
+<div class="line"><a id="l02118" name="l02118"></a><span class="lineno"> 2118</span>                <span class="stringliteral">&quot; was not sized appropriately.  A matrix of &quot;</span>, n, <span class="stringliteral">&quot;-by-&quot;</span>, n, &amp;</div>
+<div class="line"><a id="l02119" name="l02119"></a><span class="lineno"> 2119</span>                <span class="stringliteral">&quot;was expected, but a matrix of &quot;</span>, d1, <span class="stringliteral">&quot;-by-&quot;</span>, d2, <span class="stringliteral">&quot; was found.&quot;</span></div>
+<div class="line"><a id="l02120" name="l02120"></a><span class="lineno"> 2120</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;tri_mtx_mult_dbl&quot;</span>, trim(errmsg), &amp;</div>
+<div class="line"><a id="l02121" name="l02121"></a><span class="lineno"> 2121</span>                la_array_size_error)</div>
+<div class="line"><a id="l02122" name="l02122"></a><span class="lineno"> 2122</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02123" name="l02123"></a><span class="lineno"> 2123</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02124" name="l02124"></a><span class="lineno"> 2124</span> </div>
+<div class="line"><a id="l02125" name="l02125"></a><span class="lineno"> 2125</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02126" name="l02126"></a><span class="lineno"> 2126</span>        <span class="keywordflow">if</span> (upper) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02127" name="l02127"></a><span class="lineno"> 2127</span>            <span class="comment">! Form: B = alpha * A**T * A + beta * B</span></div>
+<div class="line"><a id="l02128" name="l02128"></a><span class="lineno"> 2128</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02129" name="l02129"></a><span class="lineno"> 2129</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02130" name="l02130"></a><span class="lineno"> 2130</span>                    <span class="keywordflow">do</span> i = 1, j</div>
+<div class="line"><a id="l02131" name="l02131"></a><span class="lineno"> 2131</span>                        temp = zero</div>
+<div class="line"><a id="l02132" name="l02132"></a><span class="lineno"> 2132</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02133" name="l02133"></a><span class="lineno"> 2133</span>                            temp = temp + a(k,i) * a(k,j)</div>
+<div class="line"><a id="l02134" name="l02134"></a><span class="lineno"> 2134</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02135" name="l02135"></a><span class="lineno"> 2135</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02136" name="l02136"></a><span class="lineno"> 2136</span>                        b(i,j) = temp</div>
+<div class="line"><a id="l02137" name="l02137"></a><span class="lineno"> 2137</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
+<div class="line"><a id="l02138" name="l02138"></a><span class="lineno"> 2138</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02139" name="l02139"></a><span class="lineno"> 2139</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02140" name="l02140"></a><span class="lineno"> 2140</span>            <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02141" name="l02141"></a><span class="lineno"> 2141</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02142" name="l02142"></a><span class="lineno"> 2142</span>                    <span class="keywordflow">do</span> i = 1, j</div>
+<div class="line"><a id="l02143" name="l02143"></a><span class="lineno"> 2143</span>                        temp = zero</div>
+<div class="line"><a id="l02144" name="l02144"></a><span class="lineno"> 2144</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02145" name="l02145"></a><span class="lineno"> 2145</span>                            temp = temp + a(k,i) * a(k,j)</div>
+<div class="line"><a id="l02146" name="l02146"></a><span class="lineno"> 2146</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02147" name="l02147"></a><span class="lineno"> 2147</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02148" name="l02148"></a><span class="lineno"> 2148</span>                        b(i,j) = temp + beta * b(i,j)</div>
+<div class="line"><a id="l02149" name="l02149"></a><span class="lineno"> 2149</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
+<div class="line"><a id="l02150" name="l02150"></a><span class="lineno"> 2150</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02151" name="l02151"></a><span class="lineno"> 2151</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02152" name="l02152"></a><span class="lineno"> 2152</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l02153" name="l02153"></a><span class="lineno"> 2153</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02154" name="l02154"></a><span class="lineno"> 2154</span>            <span class="comment">! Form: B = alpha * A * A**T + beta * B</span></div>
+<div class="line"><a id="l02155" name="l02155"></a><span class="lineno"> 2155</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02156" name="l02156"></a><span class="lineno"> 2156</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02157" name="l02157"></a><span class="lineno"> 2157</span>                    <span class="keywordflow">do</span> i = j, n</div>
+<div class="line"><a id="l02158" name="l02158"></a><span class="lineno"> 2158</span>                        temp = zero</div>
+<div class="line"><a id="l02159" name="l02159"></a><span class="lineno"> 2159</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02160" name="l02160"></a><span class="lineno"> 2160</span>                            temp = temp + a(i,k) * a(j,k)</div>
+<div class="line"><a id="l02161" name="l02161"></a><span class="lineno"> 2161</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02162" name="l02162"></a><span class="lineno"> 2162</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02163" name="l02163"></a><span class="lineno"> 2163</span>                        b(i,j) = temp</div>
+<div class="line"><a id="l02164" name="l02164"></a><span class="lineno"> 2164</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
+<div class="line"><a id="l02165" name="l02165"></a><span class="lineno"> 2165</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02166" name="l02166"></a><span class="lineno"> 2166</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02167" name="l02167"></a><span class="lineno"> 2167</span>            <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02168" name="l02168"></a><span class="lineno"> 2168</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02169" name="l02169"></a><span class="lineno"> 2169</span>                    <span class="keywordflow">do</span> i = j, n</div>
+<div class="line"><a id="l02170" name="l02170"></a><span class="lineno"> 2170</span>                        temp = zero</div>
+<div class="line"><a id="l02171" name="l02171"></a><span class="lineno"> 2171</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02172" name="l02172"></a><span class="lineno"> 2172</span>                            temp = temp + a(i,k) * a(j,k)</div>
+<div class="line"><a id="l02173" name="l02173"></a><span class="lineno"> 2173</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02174" name="l02174"></a><span class="lineno"> 2174</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02175" name="l02175"></a><span class="lineno"> 2175</span>                        b(i,j) = temp + beta * b(i,j)</div>
+<div class="line"><a id="l02176" name="l02176"></a><span class="lineno"> 2176</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
+<div class="line"><a id="l02177" name="l02177"></a><span class="lineno"> 2177</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02178" name="l02178"></a><span class="lineno"> 2178</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02179" name="l02179"></a><span class="lineno"> 2179</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l02180" name="l02180"></a><span class="lineno"> 2180</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02181" name="l02181"></a><span class="lineno"> 2181</span> </div>
+<div class="line"><a id="l02182" name="l02182"></a><span class="lineno"> 2182</span>        <span class="comment">! Formatting</span></div>
+<div class="line"><a id="l02183" name="l02183"></a><span class="lineno"> 2183</span>100     <span class="keyword">format</span>(a, i0, a, i0, a, i0, a, i0, a, i0, a)</div>
+<div class="line"><a id="l02184" name="l02184"></a><span class="lineno"> 2184</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02185" name="l02185"></a><span class="lineno"> 2185</span> </div>
+<div class="line"><a id="l02186" name="l02186"></a><span class="lineno"> 2186</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02187" name="l02187"></a><span class="lineno"> 2187</span>    <span class="keyword">module</span> subroutine tri_mtx_mult_cmplx(upper, alpha, a, beta, b, err)</div>
+<div class="line"><a id="l02188" name="l02188"></a><span class="lineno"> 2188</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02189" name="l02189"></a><span class="lineno"> 2189</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: upper</div>
+<div class="line"><a id="l02190" name="l02190"></a><span class="lineno"> 2190</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l02191" name="l02191"></a><span class="lineno"> 2191</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02192" name="l02192"></a><span class="lineno"> 2192</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l02193" name="l02193"></a><span class="lineno"> 2193</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02194" name="l02194"></a><span class="lineno"> 2194</span> </div>
+<div class="line"><a id="l02195" name="l02195"></a><span class="lineno"> 2195</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02196" name="l02196"></a><span class="lineno"> 2196</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
+<div class="line"><a id="l02197" name="l02197"></a><span class="lineno"> 2197</span> </div>
+<div class="line"><a id="l02198" name="l02198"></a><span class="lineno"> 2198</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02199" name="l02199"></a><span class="lineno"> 2199</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, d1, d2, flag</div>
+<div class="line"><a id="l02200" name="l02200"></a><span class="lineno"> 2200</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
+<div class="line"><a id="l02201" name="l02201"></a><span class="lineno"> 2201</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02202" name="l02202"></a><span class="lineno"> 2202</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02203" name="l02203"></a><span class="lineno"> 2203</span>        <span class="keywordtype">character(len = :)</span>, <span class="keywordtype">allocatable</span> :: errmsg</div>
+<div class="line"><a id="l02204" name="l02204"></a><span class="lineno"> 2204</span> </div>
+<div class="line"><a id="l02205" name="l02205"></a><span class="lineno"> 2205</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02206" name="l02206"></a><span class="lineno"> 2206</span>        n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l02207" name="l02207"></a><span class="lineno"> 2207</span>        d1 = n</div>
+<div class="line"><a id="l02208" name="l02208"></a><span class="lineno"> 2208</span>        d2 = n</div>
+<div class="line"><a id="l02209" name="l02209"></a><span class="lineno"> 2209</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02210" name="l02210"></a><span class="lineno"> 2210</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02211" name="l02211"></a><span class="lineno"> 2211</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02212" name="l02212"></a><span class="lineno"> 2212</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02213" name="l02213"></a><span class="lineno"> 2213</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02214" name="l02214"></a><span class="lineno"> 2214</span> </div>
+<div class="line"><a id="l02215" name="l02215"></a><span class="lineno"> 2215</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02216" name="l02216"></a><span class="lineno"> 2216</span>        flag = 0</div>
+<div class="line"><a id="l02217" name="l02217"></a><span class="lineno"> 2217</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02218" name="l02218"></a><span class="lineno"> 2218</span>            flag = 3</div>
+<div class="line"><a id="l02219" name="l02219"></a><span class="lineno"> 2219</span>            d2 = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02220" name="l02220"></a><span class="lineno"> 2220</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= n .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02221" name="l02221"></a><span class="lineno"> 2221</span>            flag = 5</div>
+<div class="line"><a id="l02222" name="l02222"></a><span class="lineno"> 2222</span>            d1 = <span class="keyword">size</span>(b, 1)</div>
+<div class="line"><a id="l02223" name="l02223"></a><span class="lineno"> 2223</span>            d2 = <span class="keyword">size</span>(b, 2)</div>
+<div class="line"><a id="l02224" name="l02224"></a><span class="lineno"> 2224</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02225" name="l02225"></a><span class="lineno"> 2225</span>        <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02226" name="l02226"></a><span class="lineno"> 2226</span>            <span class="comment">! ERROR: Incorrectly sized matrix</span></div>
+<div class="line"><a id="l02227" name="l02227"></a><span class="lineno"> 2227</span>            <span class="keyword">allocate</span>(<span class="keywordtype">character(len = 256)</span> :: errmsg)</div>
+<div class="line"><a id="l02228" name="l02228"></a><span class="lineno"> 2228</span>            <span class="keyword">write</span>(errmsg, 100) <span class="stringliteral">&quot;The matrix at input &quot;</span>, flag, &amp;</div>
+<div class="line"><a id="l02229" name="l02229"></a><span class="lineno"> 2229</span>                <span class="stringliteral">&quot; was not sized appropriately.  A matrix of &quot;</span>, n, <span class="stringliteral">&quot;-by-&quot;</span>, n, &amp;</div>
+<div class="line"><a id="l02230" name="l02230"></a><span class="lineno"> 2230</span>                <span class="stringliteral">&quot;was expected, but a matrix of &quot;</span>, d1, <span class="stringliteral">&quot;-by-&quot;</span>, d2, <span class="stringliteral">&quot; was found.&quot;</span></div>
+<div class="line"><a id="l02231" name="l02231"></a><span class="lineno"> 2231</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;tri_mtx_mult_cmplx&quot;</span>, trim(errmsg), &amp;</div>
+<div class="line"><a id="l02232" name="l02232"></a><span class="lineno"> 2232</span>                la_array_size_error)</div>
+<div class="line"><a id="l02233" name="l02233"></a><span class="lineno"> 2233</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02234" name="l02234"></a><span class="lineno"> 2234</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02235" name="l02235"></a><span class="lineno"> 2235</span> </div>
+<div class="line"><a id="l02236" name="l02236"></a><span class="lineno"> 2236</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02237" name="l02237"></a><span class="lineno"> 2237</span>        <span class="keywordflow">if</span> (upper) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02238" name="l02238"></a><span class="lineno"> 2238</span>            <span class="comment">! Form: B = alpha * A**T * A + beta * B</span></div>
+<div class="line"><a id="l02239" name="l02239"></a><span class="lineno"> 2239</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02240" name="l02240"></a><span class="lineno"> 2240</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02241" name="l02241"></a><span class="lineno"> 2241</span>                    <span class="keywordflow">do</span> i = 1, j</div>
+<div class="line"><a id="l02242" name="l02242"></a><span class="lineno"> 2242</span>                        temp = zero</div>
+<div class="line"><a id="l02243" name="l02243"></a><span class="lineno"> 2243</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02244" name="l02244"></a><span class="lineno"> 2244</span>                            temp = temp + a(k,i) * a(k,j)</div>
+<div class="line"><a id="l02245" name="l02245"></a><span class="lineno"> 2245</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02246" name="l02246"></a><span class="lineno"> 2246</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02247" name="l02247"></a><span class="lineno"> 2247</span>                        b(i,j) = temp</div>
+<div class="line"><a id="l02248" name="l02248"></a><span class="lineno"> 2248</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
+<div class="line"><a id="l02249" name="l02249"></a><span class="lineno"> 2249</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02250" name="l02250"></a><span class="lineno"> 2250</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02251" name="l02251"></a><span class="lineno"> 2251</span>            <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02252" name="l02252"></a><span class="lineno"> 2252</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02253" name="l02253"></a><span class="lineno"> 2253</span>                    <span class="keywordflow">do</span> i = 1, j</div>
+<div class="line"><a id="l02254" name="l02254"></a><span class="lineno"> 2254</span>                        temp = zero</div>
+<div class="line"><a id="l02255" name="l02255"></a><span class="lineno"> 2255</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02256" name="l02256"></a><span class="lineno"> 2256</span>                            temp = temp + a(k,i) * a(k,j)</div>
+<div class="line"><a id="l02257" name="l02257"></a><span class="lineno"> 2257</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02258" name="l02258"></a><span class="lineno"> 2258</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02259" name="l02259"></a><span class="lineno"> 2259</span>                        b(i,j) = temp + beta * b(i,j)</div>
+<div class="line"><a id="l02260" name="l02260"></a><span class="lineno"> 2260</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
+<div class="line"><a id="l02261" name="l02261"></a><span class="lineno"> 2261</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02262" name="l02262"></a><span class="lineno"> 2262</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02263" name="l02263"></a><span class="lineno"> 2263</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l02264" name="l02264"></a><span class="lineno"> 2264</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02265" name="l02265"></a><span class="lineno"> 2265</span>            <span class="comment">! Form: B = alpha * A * A**T + beta * B</span></div>
+<div class="line"><a id="l02266" name="l02266"></a><span class="lineno"> 2266</span>            <span class="keywordflow">if</span> (beta == zero) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02267" name="l02267"></a><span class="lineno"> 2267</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02268" name="l02268"></a><span class="lineno"> 2268</span>                    <span class="keywordflow">do</span> i = j, n</div>
+<div class="line"><a id="l02269" name="l02269"></a><span class="lineno"> 2269</span>                        temp = zero</div>
+<div class="line"><a id="l02270" name="l02270"></a><span class="lineno"> 2270</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02271" name="l02271"></a><span class="lineno"> 2271</span>                            temp = temp + a(i,k) * a(j,k)</div>
+<div class="line"><a id="l02272" name="l02272"></a><span class="lineno"> 2272</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02273" name="l02273"></a><span class="lineno"> 2273</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02274" name="l02274"></a><span class="lineno"> 2274</span>                        b(i,j) = temp</div>
+<div class="line"><a id="l02275" name="l02275"></a><span class="lineno"> 2275</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp</div>
+<div class="line"><a id="l02276" name="l02276"></a><span class="lineno"> 2276</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02277" name="l02277"></a><span class="lineno"> 2277</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02278" name="l02278"></a><span class="lineno"> 2278</span>            <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02279" name="l02279"></a><span class="lineno"> 2279</span>                <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02280" name="l02280"></a><span class="lineno"> 2280</span>                    <span class="keywordflow">do</span> i = j, n</div>
+<div class="line"><a id="l02281" name="l02281"></a><span class="lineno"> 2281</span>                        temp = zero</div>
+<div class="line"><a id="l02282" name="l02282"></a><span class="lineno"> 2282</span>                        <span class="keywordflow">do</span> k = 1, j</div>
+<div class="line"><a id="l02283" name="l02283"></a><span class="lineno"> 2283</span>                            temp = temp + a(i,k) * a(j,k)</div>
+<div class="line"><a id="l02284" name="l02284"></a><span class="lineno"> 2284</span><span class="keywordflow">                        end do</span></div>
+<div class="line"><a id="l02285" name="l02285"></a><span class="lineno"> 2285</span>                        temp = alpha * temp</div>
+<div class="line"><a id="l02286" name="l02286"></a><span class="lineno"> 2286</span>                        b(i,j) = temp + beta * b(i,j)</div>
+<div class="line"><a id="l02287" name="l02287"></a><span class="lineno"> 2287</span>                        <span class="keywordflow">if</span> (i /= j) b(j,i) = temp + beta * b(j,i)</div>
+<div class="line"><a id="l02288" name="l02288"></a><span class="lineno"> 2288</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02289" name="l02289"></a><span class="lineno"> 2289</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02290" name="l02290"></a><span class="lineno"> 2290</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l02291" name="l02291"></a><span class="lineno"> 2291</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02292" name="l02292"></a><span class="lineno"> 2292</span> </div>
+<div class="line"><a id="l02293" name="l02293"></a><span class="lineno"> 2293</span>        <span class="comment">! Formatting</span></div>
+<div class="line"><a id="l02294" name="l02294"></a><span class="lineno"> 2294</span>100     <span class="keyword">format</span>(a, i0, a, i0, a, i0, a, i0, a, i0, a)</div>
 <div class="line"><a id="l02295" name="l02295"></a><span class="lineno"> 2295</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l02296" name="l02296"></a><span class="lineno"> 2296</span> </div>
-<div class="line"><a id="l02297" name="l02297"></a><span class="lineno"> 2297</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02298" name="l02298"></a><span class="lineno"> 2298</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_cmplx(trans, kl, ku, alpha, a, x, &amp;</div>
-<div class="line"><a id="l02299" name="l02299"></a><span class="lineno"> 2299</span>        beta, y, err)</div>
-<div class="line"><a id="l02300" name="l02300"></a><span class="lineno"> 2300</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02301" name="l02301"></a><span class="lineno"> 2301</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
-<div class="line"><a id="l02302" name="l02302"></a><span class="lineno"> 2302</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l02303" name="l02303"></a><span class="lineno"> 2303</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
-<div class="line"><a id="l02304" name="l02304"></a><span class="lineno"> 2304</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02305" name="l02305"></a><span class="lineno"> 2305</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
-<div class="line"><a id="l02306" name="l02306"></a><span class="lineno"> 2306</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
-<div class="line"><a id="l02307" name="l02307"></a><span class="lineno"> 2307</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02308" name="l02308"></a><span class="lineno"> 2308</span> </div>
-<div class="line"><a id="l02309" name="l02309"></a><span class="lineno"> 2309</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02310" name="l02310"></a><span class="lineno"> 2310</span>        <span class="keywordtype">character</span> :: op</div>
-<div class="line"><a id="l02311" name="l02311"></a><span class="lineno"> 2311</span>        <span class="keywordtype">logical</span> :: trns</div>
+<div class="line"><a id="l02297" name="l02297"></a><span class="lineno"> 2297</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l02298" name="l02298"></a><span class="lineno"> 2298</span><span class="comment">! BANDED MATRIX MULTIPLICATION ROUTINES</span></div>
+<div class="line"><a id="l02299" name="l02299"></a><span class="lineno"> 2299</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02300" name="l02300"></a><span class="lineno"> 2300</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_dbl(trans, kl, ku, alpha, a, x, beta, &amp;</div>
+<div class="line"><a id="l02301" name="l02301"></a><span class="lineno"> 2301</span>        y, err)</div>
+<div class="line"><a id="l02302" name="l02302"></a><span class="lineno"> 2302</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02303" name="l02303"></a><span class="lineno"> 2303</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l02304" name="l02304"></a><span class="lineno"> 2304</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02305" name="l02305"></a><span class="lineno"> 2305</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l02306" name="l02306"></a><span class="lineno"> 2306</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02307" name="l02307"></a><span class="lineno"> 2307</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l02308" name="l02308"></a><span class="lineno"> 2308</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
+<div class="line"><a id="l02309" name="l02309"></a><span class="lineno"> 2309</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02310" name="l02310"></a><span class="lineno"> 2310</span> </div>
+<div class="line"><a id="l02311" name="l02311"></a><span class="lineno"> 2311</span>        <span class="comment">! Local Variables</span></div>
 <div class="line"><a id="l02312" name="l02312"></a><span class="lineno"> 2312</span>        <span class="keywordtype">integer(int32)</span> :: m, n</div>
 <div class="line"><a id="l02313" name="l02313"></a><span class="lineno"> 2313</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
 <div class="line"><a id="l02314" name="l02314"></a><span class="lineno"> 2314</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
@@ -2428,412 +2428,761 @@
 <div class="line"><a id="l02319" name="l02319"></a><span class="lineno"> 2319</span>        <span class="keywordflow">else</span></div>
 <div class="line"><a id="l02320" name="l02320"></a><span class="lineno"> 2320</span>            errmgr =&gt; deferr</div>
 <div class="line"><a id="l02321" name="l02321"></a><span class="lineno"> 2321</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02322" name="l02322"></a><span class="lineno"> 2322</span>        <span class="keywordflow">if</span> (trans == la_transpose) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02323" name="l02323"></a><span class="lineno"> 2323</span>            op = <span class="stringliteral">&quot;T&quot;</span></div>
-<div class="line"><a id="l02324" name="l02324"></a><span class="lineno"> 2324</span>            trns = .true.</div>
-<div class="line"><a id="l02325" name="l02325"></a><span class="lineno"> 2325</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (trans == la_hermitian_transpose) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02326" name="l02326"></a><span class="lineno"> 2326</span>            op = <span class="stringliteral">&quot;C&quot;</span></div>
-<div class="line"><a id="l02327" name="l02327"></a><span class="lineno"> 2327</span>            trns = .true.</div>
-<div class="line"><a id="l02328" name="l02328"></a><span class="lineno"> 2328</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02329" name="l02329"></a><span class="lineno"> 2329</span>            op = <span class="stringliteral">&quot;N&quot;</span></div>
-<div class="line"><a id="l02330" name="l02330"></a><span class="lineno"> 2330</span>            trns = .false.</div>
-<div class="line"><a id="l02331" name="l02331"></a><span class="lineno"> 2331</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02332" name="l02332"></a><span class="lineno"> 2332</span>        <span class="keywordflow">if</span> (trns) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02333" name="l02333"></a><span class="lineno"> 2333</span>            m = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l02334" name="l02334"></a><span class="lineno"> 2334</span>            n = <span class="keyword">size</span>(y)</div>
-<div class="line"><a id="l02335" name="l02335"></a><span class="lineno"> 2335</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02336" name="l02336"></a><span class="lineno"> 2336</span>            m = <span class="keyword">size</span>(y)</div>
-<div class="line"><a id="l02337" name="l02337"></a><span class="lineno"> 2337</span>            n = <span class="keyword">size</span>(x)</div>
-<div class="line"><a id="l02338" name="l02338"></a><span class="lineno"> 2338</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02339" name="l02339"></a><span class="lineno"> 2339</span> </div>
-<div class="line"><a id="l02340" name="l02340"></a><span class="lineno"> 2340</span>        <span class="comment">! Input Checking</span></div>
-<div class="line"><a id="l02341" name="l02341"></a><span class="lineno"> 2341</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02342" name="l02342"></a><span class="lineno"> 2342</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02343" name="l02343"></a><span class="lineno"> 2343</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02344" name="l02344"></a><span class="lineno"> 2344</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02322" name="l02322"></a><span class="lineno"> 2322</span>        <span class="keywordflow">if</span> (trans) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02323" name="l02323"></a><span class="lineno"> 2323</span>            m = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l02324" name="l02324"></a><span class="lineno"> 2324</span>            n = <span class="keyword">size</span>(y)</div>
+<div class="line"><a id="l02325" name="l02325"></a><span class="lineno"> 2325</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02326" name="l02326"></a><span class="lineno"> 2326</span>            m = <span class="keyword">size</span>(y)</div>
+<div class="line"><a id="l02327" name="l02327"></a><span class="lineno"> 2327</span>            n = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l02328" name="l02328"></a><span class="lineno"> 2328</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02329" name="l02329"></a><span class="lineno"> 2329</span> </div>
+<div class="line"><a id="l02330" name="l02330"></a><span class="lineno"> 2330</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02331" name="l02331"></a><span class="lineno"> 2331</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02332" name="l02332"></a><span class="lineno"> 2332</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02333" name="l02333"></a><span class="lineno"> 2333</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02334" name="l02334"></a><span class="lineno"> 2334</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02335" name="l02335"></a><span class="lineno"> 2335</span> </div>
+<div class="line"><a id="l02336" name="l02336"></a><span class="lineno"> 2336</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02337" name="l02337"></a><span class="lineno"> 2337</span>        <span class="keywordflow">if</span> (trans) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02338" name="l02338"></a><span class="lineno"> 2338</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1dgbmv.html">dgbmv</a>(<span class="stringliteral">&quot;T&quot;</span>, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
+<div class="line"><a id="l02339" name="l02339"></a><span class="lineno"> 2339</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02340" name="l02340"></a><span class="lineno"> 2340</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1dgbmv.html">dgbmv</a>(<span class="stringliteral">&quot;N&quot;</span>, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
+<div class="line"><a id="l02341" name="l02341"></a><span class="lineno"> 2341</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02342" name="l02342"></a><span class="lineno"> 2342</span> </div>
+<div class="line"><a id="l02343" name="l02343"></a><span class="lineno"> 2343</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02344" name="l02344"></a><span class="lineno"> 2344</span>        <span class="keywordflow">return</span></div>
 <div class="line"><a id="l02345" name="l02345"></a><span class="lineno"> 2345</span> </div>
-<div class="line"><a id="l02346" name="l02346"></a><span class="lineno"> 2346</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02347" name="l02347"></a><span class="lineno"> 2347</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1zgbmv.html">zgbmv</a>(op, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
-<div class="line"><a id="l02348" name="l02348"></a><span class="lineno"> 2348</span> </div>
-<div class="line"><a id="l02349" name="l02349"></a><span class="lineno"> 2349</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02350" name="l02350"></a><span class="lineno"> 2350</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02351" name="l02351"></a><span class="lineno"> 2351</span> </div>
-<div class="line"><a id="l02352" name="l02352"></a><span class="lineno"> 2352</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02353" name="l02353"></a><span class="lineno"> 2353</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02354" name="l02354"></a><span class="lineno"> 2354</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02355" name="l02355"></a><span class="lineno"> 2355</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02356" name="l02356"></a><span class="lineno"> 2356</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02357" name="l02357"></a><span class="lineno"> 2357</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02358" name="l02358"></a><span class="lineno"> 2358</span> </div>
-<div class="line"><a id="l02359" name="l02359"></a><span class="lineno"> 2359</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02360" name="l02360"></a><span class="lineno"> 2360</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02361" name="l02361"></a><span class="lineno"> 2361</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02362" name="l02362"></a><span class="lineno"> 2362</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02363" name="l02363"></a><span class="lineno"> 2363</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02364" name="l02364"></a><span class="lineno"> 2364</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02365" name="l02365"></a><span class="lineno"> 2365</span> </div>
-<div class="line"><a id="l02366" name="l02366"></a><span class="lineno"> 2366</span>        <span class="comment">! A is incorrectly sized</span></div>
-<div class="line"><a id="l02367" name="l02367"></a><span class="lineno"> 2367</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02368" name="l02368"></a><span class="lineno"> 2368</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02369" name="l02369"></a><span class="lineno"> 2369</span>            <span class="stringliteral">&quot;The size of matrix A is not compatible with the other vectors.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02370" name="l02370"></a><span class="lineno"> 2370</span>            la_array_size_error)</div>
-<div class="line"><a id="l02371" name="l02371"></a><span class="lineno"> 2371</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02372" name="l02372"></a><span class="lineno"> 2372</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02373" name="l02373"></a><span class="lineno"> 2373</span> </div>
-<div class="line"><a id="l02374" name="l02374"></a><span class="lineno"> 2374</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02375" name="l02375"></a><span class="lineno"> 2375</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_dbl(kl, ku, b, f, err)</div>
-<div class="line"><a id="l02376" name="l02376"></a><span class="lineno"> 2376</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02377" name="l02377"></a><span class="lineno"> 2377</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l02378" name="l02378"></a><span class="lineno"> 2378</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l02379" name="l02379"></a><span class="lineno"> 2379</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
-<div class="line"><a id="l02380" name="l02380"></a><span class="lineno"> 2380</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02381" name="l02381"></a><span class="lineno"> 2381</span> </div>
-<div class="line"><a id="l02382" name="l02382"></a><span class="lineno"> 2382</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02383" name="l02383"></a><span class="lineno"> 2383</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
-<div class="line"><a id="l02384" name="l02384"></a><span class="lineno"> 2384</span> </div>
-<div class="line"><a id="l02385" name="l02385"></a><span class="lineno"> 2385</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02386" name="l02386"></a><span class="lineno"> 2386</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02387" name="l02387"></a><span class="lineno"> 2387</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02388" name="l02388"></a><span class="lineno"> 2388</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, i1, i2</div>
-<div class="line"><a id="l02389" name="l02389"></a><span class="lineno"> 2389</span>        </div>
-<div class="line"><a id="l02390" name="l02390"></a><span class="lineno"> 2390</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02391" name="l02391"></a><span class="lineno"> 2391</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02392" name="l02392"></a><span class="lineno"> 2392</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02393" name="l02393"></a><span class="lineno"> 2393</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02394" name="l02394"></a><span class="lineno"> 2394</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02395" name="l02395"></a><span class="lineno"> 2395</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02396" name="l02396"></a><span class="lineno"> 2396</span>        m = <span class="keyword">size</span>(f, 1)</div>
-<div class="line"><a id="l02397" name="l02397"></a><span class="lineno"> 2397</span>        n = <span class="keyword">size</span>(f, 2)</div>
-<div class="line"><a id="l02398" name="l02398"></a><span class="lineno"> 2398</span> </div>
-<div class="line"><a id="l02399" name="l02399"></a><span class="lineno"> 2399</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l02400" name="l02400"></a><span class="lineno"> 2400</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02401" name="l02401"></a><span class="lineno"> 2401</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02402" name="l02402"></a><span class="lineno"> 2402</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02403" name="l02403"></a><span class="lineno"> 2403</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 40</div>
-<div class="line"><a id="l02404" name="l02404"></a><span class="lineno"> 2404</span> </div>
-<div class="line"><a id="l02405" name="l02405"></a><span class="lineno"> 2405</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02406" name="l02406"></a><span class="lineno"> 2406</span>        <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02407" name="l02407"></a><span class="lineno"> 2407</span>            k = ku + 1 - j</div>
-<div class="line"><a id="l02408" name="l02408"></a><span class="lineno"> 2408</span>            i1 = max(1, j - ku)</div>
-<div class="line"><a id="l02409" name="l02409"></a><span class="lineno"> 2409</span>            i2 = min(m, j + kl)</div>
-<div class="line"><a id="l02410" name="l02410"></a><span class="lineno"> 2410</span>            <span class="keywordflow">do</span> i = 1, i1 - 1</div>
-<div class="line"><a id="l02411" name="l02411"></a><span class="lineno"> 2411</span>                f(i,j) = zero</div>
-<div class="line"><a id="l02412" name="l02412"></a><span class="lineno"> 2412</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02413" name="l02413"></a><span class="lineno"> 2413</span>            <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02414" name="l02414"></a><span class="lineno"> 2414</span>                f(i,j) = b(k+i,j)</div>
-<div class="line"><a id="l02415" name="l02415"></a><span class="lineno"> 2415</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02416" name="l02416"></a><span class="lineno"> 2416</span>            <span class="keywordflow">do</span> i = i2 + 1, m</div>
-<div class="line"><a id="l02417" name="l02417"></a><span class="lineno"> 2417</span>                f(i,j) = zero</div>
-<div class="line"><a id="l02418" name="l02418"></a><span class="lineno"> 2418</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02419" name="l02419"></a><span class="lineno"> 2419</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l02420" name="l02420"></a><span class="lineno"> 2420</span> </div>
-<div class="line"><a id="l02421" name="l02421"></a><span class="lineno"> 2421</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02422" name="l02422"></a><span class="lineno"> 2422</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02423" name="l02423"></a><span class="lineno"> 2423</span> </div>
-<div class="line"><a id="l02424" name="l02424"></a><span class="lineno"> 2424</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02425" name="l02425"></a><span class="lineno"> 2425</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02426" name="l02426"></a><span class="lineno"> 2426</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02427" name="l02427"></a><span class="lineno"> 2427</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02428" name="l02428"></a><span class="lineno"> 2428</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02429" name="l02429"></a><span class="lineno"> 2429</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02430" name="l02430"></a><span class="lineno"> 2430</span> </div>
-<div class="line"><a id="l02431" name="l02431"></a><span class="lineno"> 2431</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02432" name="l02432"></a><span class="lineno"> 2432</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02433" name="l02433"></a><span class="lineno"> 2433</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02434" name="l02434"></a><span class="lineno"> 2434</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02435" name="l02435"></a><span class="lineno"> 2435</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02436" name="l02436"></a><span class="lineno"> 2436</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02437" name="l02437"></a><span class="lineno"> 2437</span> </div>
-<div class="line"><a id="l02438" name="l02438"></a><span class="lineno"> 2438</span>        <span class="comment">! A is incorrectly sized</span></div>
-<div class="line"><a id="l02439" name="l02439"></a><span class="lineno"> 2439</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02440" name="l02440"></a><span class="lineno"> 2440</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02441" name="l02441"></a><span class="lineno"> 2441</span>            <span class="stringliteral">&quot;The number of columns in the banded matrix does not match &quot;</span> // &amp;</div>
-<div class="line"><a id="l02442" name="l02442"></a><span class="lineno"> 2442</span>            <span class="stringliteral">&quot;the number of columns in the full matrix.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02443" name="l02443"></a><span class="lineno"> 2443</span>            la_array_size_error)</div>
-<div class="line"><a id="l02444" name="l02444"></a><span class="lineno"> 2444</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02445" name="l02445"></a><span class="lineno"> 2445</span> </div>
-<div class="line"><a id="l02446" name="l02446"></a><span class="lineno"> 2446</span>40      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02447" name="l02447"></a><span class="lineno"> 2447</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02448" name="l02448"></a><span class="lineno"> 2448</span>            <span class="stringliteral">&quot;The number of rows in the banded matrix does not align with &quot;</span> // &amp;</div>
-<div class="line"><a id="l02449" name="l02449"></a><span class="lineno"> 2449</span>            <span class="stringliteral">&quot;the number of sub and super-diagonals specified.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02450" name="l02450"></a><span class="lineno"> 2450</span>            la_array_size_error)</div>
-<div class="line"><a id="l02451" name="l02451"></a><span class="lineno"> 2451</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02452" name="l02452"></a><span class="lineno"> 2452</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02453" name="l02453"></a><span class="lineno"> 2453</span> </div>
-<div class="line"><a id="l02454" name="l02454"></a><span class="lineno"> 2454</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02455" name="l02455"></a><span class="lineno"> 2455</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_cmplx(kl, ku, b, f, err)</div>
-<div class="line"><a id="l02456" name="l02456"></a><span class="lineno"> 2456</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02457" name="l02457"></a><span class="lineno"> 2457</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
-<div class="line"><a id="l02458" name="l02458"></a><span class="lineno"> 2458</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
-<div class="line"><a id="l02459" name="l02459"></a><span class="lineno"> 2459</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
-<div class="line"><a id="l02460" name="l02460"></a><span class="lineno"> 2460</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02461" name="l02461"></a><span class="lineno"> 2461</span> </div>
-<div class="line"><a id="l02462" name="l02462"></a><span class="lineno"> 2462</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02463" name="l02463"></a><span class="lineno"> 2463</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
-<div class="line"><a id="l02464" name="l02464"></a><span class="lineno"> 2464</span> </div>
-<div class="line"><a id="l02465" name="l02465"></a><span class="lineno"> 2465</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02466" name="l02466"></a><span class="lineno"> 2466</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02467" name="l02467"></a><span class="lineno"> 2467</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02468" name="l02468"></a><span class="lineno"> 2468</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, i1, i2</div>
-<div class="line"><a id="l02469" name="l02469"></a><span class="lineno"> 2469</span>        </div>
-<div class="line"><a id="l02470" name="l02470"></a><span class="lineno"> 2470</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02471" name="l02471"></a><span class="lineno"> 2471</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02472" name="l02472"></a><span class="lineno"> 2472</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02473" name="l02473"></a><span class="lineno"> 2473</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02474" name="l02474"></a><span class="lineno"> 2474</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02475" name="l02475"></a><span class="lineno"> 2475</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02476" name="l02476"></a><span class="lineno"> 2476</span>        m = <span class="keyword">size</span>(f, 1)</div>
-<div class="line"><a id="l02477" name="l02477"></a><span class="lineno"> 2477</span>        n = <span class="keyword">size</span>(f, 2)</div>
-<div class="line"><a id="l02478" name="l02478"></a><span class="lineno"> 2478</span> </div>
-<div class="line"><a id="l02479" name="l02479"></a><span class="lineno"> 2479</span>        <span class="comment">! Input Check</span></div>
-<div class="line"><a id="l02480" name="l02480"></a><span class="lineno"> 2480</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02481" name="l02481"></a><span class="lineno"> 2481</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02482" name="l02482"></a><span class="lineno"> 2482</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02483" name="l02483"></a><span class="lineno"> 2483</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 40</div>
-<div class="line"><a id="l02484" name="l02484"></a><span class="lineno"> 2484</span> </div>
-<div class="line"><a id="l02485" name="l02485"></a><span class="lineno"> 2485</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02486" name="l02486"></a><span class="lineno"> 2486</span>        <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02487" name="l02487"></a><span class="lineno"> 2487</span>            k = ku + 1 - j</div>
-<div class="line"><a id="l02488" name="l02488"></a><span class="lineno"> 2488</span>            i1 = max(1, j - ku)</div>
-<div class="line"><a id="l02489" name="l02489"></a><span class="lineno"> 2489</span>            i2 = min(m, j + kl)</div>
-<div class="line"><a id="l02490" name="l02490"></a><span class="lineno"> 2490</span>            <span class="keywordflow">do</span> i = 1, i1 - 1</div>
-<div class="line"><a id="l02491" name="l02491"></a><span class="lineno"> 2491</span>                f(i,j) = zero</div>
-<div class="line"><a id="l02492" name="l02492"></a><span class="lineno"> 2492</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02493" name="l02493"></a><span class="lineno"> 2493</span>            <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02494" name="l02494"></a><span class="lineno"> 2494</span>                f(i,j) = b(k+i,j)</div>
-<div class="line"><a id="l02495" name="l02495"></a><span class="lineno"> 2495</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02496" name="l02496"></a><span class="lineno"> 2496</span>            <span class="keywordflow">do</span> i = i2 + 1, m</div>
-<div class="line"><a id="l02497" name="l02497"></a><span class="lineno"> 2497</span>                f(i,j) = zero</div>
-<div class="line"><a id="l02498" name="l02498"></a><span class="lineno"> 2498</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02499" name="l02499"></a><span class="lineno"> 2499</span><span class="keywordflow">        end do</span></div>
-<div class="line"><a id="l02500" name="l02500"></a><span class="lineno"> 2500</span> </div>
-<div class="line"><a id="l02501" name="l02501"></a><span class="lineno"> 2501</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02502" name="l02502"></a><span class="lineno"> 2502</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02503" name="l02503"></a><span class="lineno"> 2503</span> </div>
-<div class="line"><a id="l02504" name="l02504"></a><span class="lineno"> 2504</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02505" name="l02505"></a><span class="lineno"> 2505</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02506" name="l02506"></a><span class="lineno"> 2506</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02507" name="l02507"></a><span class="lineno"> 2507</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02508" name="l02508"></a><span class="lineno"> 2508</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02509" name="l02509"></a><span class="lineno"> 2509</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02510" name="l02510"></a><span class="lineno"> 2510</span> </div>
-<div class="line"><a id="l02511" name="l02511"></a><span class="lineno"> 2511</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02512" name="l02512"></a><span class="lineno"> 2512</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02513" name="l02513"></a><span class="lineno"> 2513</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02514" name="l02514"></a><span class="lineno"> 2514</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02515" name="l02515"></a><span class="lineno"> 2515</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02516" name="l02516"></a><span class="lineno"> 2516</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02517" name="l02517"></a><span class="lineno"> 2517</span> </div>
-<div class="line"><a id="l02518" name="l02518"></a><span class="lineno"> 2518</span>        <span class="comment">! A is incorrectly sized</span></div>
-<div class="line"><a id="l02519" name="l02519"></a><span class="lineno"> 2519</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02520" name="l02520"></a><span class="lineno"> 2520</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02521" name="l02521"></a><span class="lineno"> 2521</span>            <span class="stringliteral">&quot;The number of columns in the banded matrix does not match &quot;</span> // &amp;</div>
-<div class="line"><a id="l02522" name="l02522"></a><span class="lineno"> 2522</span>            <span class="stringliteral">&quot;the number of columns in the full matrix.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02523" name="l02523"></a><span class="lineno"> 2523</span>            la_array_size_error)</div>
-<div class="line"><a id="l02524" name="l02524"></a><span class="lineno"> 2524</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02525" name="l02525"></a><span class="lineno"> 2525</span> </div>
-<div class="line"><a id="l02526" name="l02526"></a><span class="lineno"> 2526</span>40      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02527" name="l02527"></a><span class="lineno"> 2527</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02528" name="l02528"></a><span class="lineno"> 2528</span>            <span class="stringliteral">&quot;The number of rows in the banded matrix does not align with &quot;</span> // &amp;</div>
-<div class="line"><a id="l02529" name="l02529"></a><span class="lineno"> 2529</span>            <span class="stringliteral">&quot;the number of sub and super-diagonals specified.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02530" name="l02530"></a><span class="lineno"> 2530</span>            la_array_size_error)</div>
-<div class="line"><a id="l02531" name="l02531"></a><span class="lineno"> 2531</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02532" name="l02532"></a><span class="lineno"> 2532</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02533" name="l02533"></a><span class="lineno"> 2533</span> </div>
-<div class="line"><a id="l02534" name="l02534"></a><span class="lineno"> 2534</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02535" name="l02535"></a><span class="lineno"> 2535</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_dbl(left, m, kl, ku, alpha, a, b, err)</div>
-<div class="line"><a id="l02536" name="l02536"></a><span class="lineno"> 2536</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02537" name="l02537"></a><span class="lineno"> 2537</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
-<div class="line"><a id="l02538" name="l02538"></a><span class="lineno"> 2538</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
-<div class="line"><a id="l02539" name="l02539"></a><span class="lineno"> 2539</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l02540" name="l02540"></a><span class="lineno"> 2540</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02541" name="l02541"></a><span class="lineno"> 2541</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l02542" name="l02542"></a><span class="lineno"> 2542</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02543" name="l02543"></a><span class="lineno"> 2543</span> </div>
-<div class="line"><a id="l02544" name="l02544"></a><span class="lineno"> 2544</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02545" name="l02545"></a><span class="lineno"> 2545</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
-<div class="line"><a id="l02546" name="l02546"></a><span class="lineno"> 2546</span> </div>
-<div class="line"><a id="l02547" name="l02547"></a><span class="lineno"> 2547</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02548" name="l02548"></a><span class="lineno"> 2548</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02549" name="l02549"></a><span class="lineno"> 2549</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02550" name="l02550"></a><span class="lineno"> 2550</span>        <span class="keywordtype">integer(int32)</span> :: i, i1, i2, j, k, n</div>
-<div class="line"><a id="l02551" name="l02551"></a><span class="lineno"> 2551</span><span class="keywordtype">        real</span>(real64) :: temp</div>
-<div class="line"><a id="l02552" name="l02552"></a><span class="lineno"> 2552</span>        </div>
-<div class="line"><a id="l02553" name="l02553"></a><span class="lineno"> 2553</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02554" name="l02554"></a><span class="lineno"> 2554</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02555" name="l02555"></a><span class="lineno"> 2555</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02556" name="l02556"></a><span class="lineno"> 2556</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02557" name="l02557"></a><span class="lineno"> 2557</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02558" name="l02558"></a><span class="lineno"> 2558</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02559" name="l02559"></a><span class="lineno"> 2559</span>        n = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l02560" name="l02560"></a><span class="lineno"> 2560</span> </div>
-<div class="line"><a id="l02561" name="l02561"></a><span class="lineno"> 2561</span>        <span class="comment">! Input Checking</span></div>
-<div class="line"><a id="l02562" name="l02562"></a><span class="lineno"> 2562</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02563" name="l02563"></a><span class="lineno"> 2563</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02564" name="l02564"></a><span class="lineno"> 2564</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02565" name="l02565"></a><span class="lineno"> 2565</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02566" name="l02566"></a><span class="lineno"> 2566</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02567" name="l02567"></a><span class="lineno"> 2567</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) &lt; m) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02568" name="l02568"></a><span class="lineno"> 2568</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02569" name="l02569"></a><span class="lineno"> 2569</span> </div>
-<div class="line"><a id="l02570" name="l02570"></a><span class="lineno"> 2570</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02571" name="l02571"></a><span class="lineno"> 2571</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02572" name="l02572"></a><span class="lineno"> 2572</span>            <span class="comment">! Compute A = A * B</span></div>
-<div class="line"><a id="l02573" name="l02573"></a><span class="lineno"> 2573</span>            <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02574" name="l02574"></a><span class="lineno"> 2574</span>                k = ku + 1 - j</div>
-<div class="line"><a id="l02575" name="l02575"></a><span class="lineno"> 2575</span>                i1 = max(1, j - ku) + k</div>
-<div class="line"><a id="l02576" name="l02576"></a><span class="lineno"> 2576</span>                i2 = min(m, j + kl) + k</div>
-<div class="line"><a id="l02577" name="l02577"></a><span class="lineno"> 2577</span>                <span class="keywordflow">if</span> (alpha == one) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02578" name="l02578"></a><span class="lineno"> 2578</span>                    temp = b(j)</div>
-<div class="line"><a id="l02579" name="l02579"></a><span class="lineno"> 2579</span>                <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02580" name="l02580"></a><span class="lineno"> 2580</span>                    temp = alpha * b(j)</div>
-<div class="line"><a id="l02581" name="l02581"></a><span class="lineno"> 2581</span><span class="keywordflow">                end if</span></div>
-<div class="line"><a id="l02582" name="l02582"></a><span class="lineno"> 2582</span>                <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02583" name="l02583"></a><span class="lineno"> 2583</span>                    a(i,j) = a(i,j) * temp</div>
-<div class="line"><a id="l02584" name="l02584"></a><span class="lineno"> 2584</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02585" name="l02585"></a><span class="lineno"> 2585</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02586" name="l02586"></a><span class="lineno"> 2586</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02587" name="l02587"></a><span class="lineno"> 2587</span>            <span class="comment">! Compute A = B * A</span></div>
-<div class="line"><a id="l02588" name="l02588"></a><span class="lineno"> 2588</span>            <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02589" name="l02589"></a><span class="lineno"> 2589</span>                k = ku + 1 - j</div>
-<div class="line"><a id="l02590" name="l02590"></a><span class="lineno"> 2590</span>                i1 = max(1, j - ku)</div>
-<div class="line"><a id="l02591" name="l02591"></a><span class="lineno"> 2591</span>                i2 = min(m, j + kl)</div>
-<div class="line"><a id="l02592" name="l02592"></a><span class="lineno"> 2592</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02593" name="l02593"></a><span class="lineno"> 2593</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02594" name="l02594"></a><span class="lineno"> 2594</span>                        a(i+k,j) = a(i+k,j) * b(i)</div>
-<div class="line"><a id="l02595" name="l02595"></a><span class="lineno"> 2595</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02596" name="l02596"></a><span class="lineno"> 2596</span>                <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02597" name="l02597"></a><span class="lineno"> 2597</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02598" name="l02598"></a><span class="lineno"> 2598</span>                        a(i+k,j) = alpha * a(i+k,j) * b(i)</div>
-<div class="line"><a id="l02599" name="l02599"></a><span class="lineno"> 2599</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02600" name="l02600"></a><span class="lineno"> 2600</span><span class="keywordflow">                end if</span></div>
-<div class="line"><a id="l02601" name="l02601"></a><span class="lineno"> 2601</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02602" name="l02602"></a><span class="lineno"> 2602</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02603" name="l02603"></a><span class="lineno"> 2603</span> </div>
+<div class="line"><a id="l02346" name="l02346"></a><span class="lineno"> 2346</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02347" name="l02347"></a><span class="lineno"> 2347</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02348" name="l02348"></a><span class="lineno"> 2348</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02349" name="l02349"></a><span class="lineno"> 2349</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02350" name="l02350"></a><span class="lineno"> 2350</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02351" name="l02351"></a><span class="lineno"> 2351</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02352" name="l02352"></a><span class="lineno"> 2352</span> </div>
+<div class="line"><a id="l02353" name="l02353"></a><span class="lineno"> 2353</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02354" name="l02354"></a><span class="lineno"> 2354</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02355" name="l02355"></a><span class="lineno"> 2355</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02356" name="l02356"></a><span class="lineno"> 2356</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02357" name="l02357"></a><span class="lineno"> 2357</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02358" name="l02358"></a><span class="lineno"> 2358</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02359" name="l02359"></a><span class="lineno"> 2359</span> </div>
+<div class="line"><a id="l02360" name="l02360"></a><span class="lineno"> 2360</span>        <span class="comment">! A is incorrectly sized</span></div>
+<div class="line"><a id="l02361" name="l02361"></a><span class="lineno"> 2361</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02362" name="l02362"></a><span class="lineno"> 2362</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02363" name="l02363"></a><span class="lineno"> 2363</span>            <span class="stringliteral">&quot;The size of matrix A is not compatible with the other vectors.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02364" name="l02364"></a><span class="lineno"> 2364</span>            la_array_size_error)</div>
+<div class="line"><a id="l02365" name="l02365"></a><span class="lineno"> 2365</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02366" name="l02366"></a><span class="lineno"> 2366</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02367" name="l02367"></a><span class="lineno"> 2367</span> </div>
+<div class="line"><a id="l02368" name="l02368"></a><span class="lineno"> 2368</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02369" name="l02369"></a><span class="lineno"> 2369</span>    <span class="keyword">module</span> subroutine band_mtx_vec_mult_cmplx(trans, kl, ku, alpha, a, x, &amp;</div>
+<div class="line"><a id="l02370" name="l02370"></a><span class="lineno"> 2370</span>        beta, y, err)</div>
+<div class="line"><a id="l02371" name="l02371"></a><span class="lineno"> 2371</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02372" name="l02372"></a><span class="lineno"> 2372</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: trans</div>
+<div class="line"><a id="l02373" name="l02373"></a><span class="lineno"> 2373</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02374" name="l02374"></a><span class="lineno"> 2374</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha, beta</div>
+<div class="line"><a id="l02375" name="l02375"></a><span class="lineno"> 2375</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02376" name="l02376"></a><span class="lineno"> 2376</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l02377" name="l02377"></a><span class="lineno"> 2377</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: y</div>
+<div class="line"><a id="l02378" name="l02378"></a><span class="lineno"> 2378</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02379" name="l02379"></a><span class="lineno"> 2379</span> </div>
+<div class="line"><a id="l02380" name="l02380"></a><span class="lineno"> 2380</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02381" name="l02381"></a><span class="lineno"> 2381</span>        <span class="keywordtype">character</span> :: op</div>
+<div class="line"><a id="l02382" name="l02382"></a><span class="lineno"> 2382</span>        <span class="keywordtype">logical</span> :: trns</div>
+<div class="line"><a id="l02383" name="l02383"></a><span class="lineno"> 2383</span>        <span class="keywordtype">integer(int32)</span> :: m, n</div>
+<div class="line"><a id="l02384" name="l02384"></a><span class="lineno"> 2384</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02385" name="l02385"></a><span class="lineno"> 2385</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02386" name="l02386"></a><span class="lineno"> 2386</span>        </div>
+<div class="line"><a id="l02387" name="l02387"></a><span class="lineno"> 2387</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02388" name="l02388"></a><span class="lineno"> 2388</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02389" name="l02389"></a><span class="lineno"> 2389</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02390" name="l02390"></a><span class="lineno"> 2390</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02391" name="l02391"></a><span class="lineno"> 2391</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02392" name="l02392"></a><span class="lineno"> 2392</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02393" name="l02393"></a><span class="lineno"> 2393</span>        <span class="keywordflow">if</span> (trans == la_transpose) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02394" name="l02394"></a><span class="lineno"> 2394</span>            op = <span class="stringliteral">&quot;T&quot;</span></div>
+<div class="line"><a id="l02395" name="l02395"></a><span class="lineno"> 2395</span>            trns = .true.</div>
+<div class="line"><a id="l02396" name="l02396"></a><span class="lineno"> 2396</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (trans == la_hermitian_transpose) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02397" name="l02397"></a><span class="lineno"> 2397</span>            op = <span class="stringliteral">&quot;C&quot;</span></div>
+<div class="line"><a id="l02398" name="l02398"></a><span class="lineno"> 2398</span>            trns = .true.</div>
+<div class="line"><a id="l02399" name="l02399"></a><span class="lineno"> 2399</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02400" name="l02400"></a><span class="lineno"> 2400</span>            op = <span class="stringliteral">&quot;N&quot;</span></div>
+<div class="line"><a id="l02401" name="l02401"></a><span class="lineno"> 2401</span>            trns = .false.</div>
+<div class="line"><a id="l02402" name="l02402"></a><span class="lineno"> 2402</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02403" name="l02403"></a><span class="lineno"> 2403</span>        <span class="keywordflow">if</span> (trns) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02404" name="l02404"></a><span class="lineno"> 2404</span>            m = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l02405" name="l02405"></a><span class="lineno"> 2405</span>            n = <span class="keyword">size</span>(y)</div>
+<div class="line"><a id="l02406" name="l02406"></a><span class="lineno"> 2406</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02407" name="l02407"></a><span class="lineno"> 2407</span>            m = <span class="keyword">size</span>(y)</div>
+<div class="line"><a id="l02408" name="l02408"></a><span class="lineno"> 2408</span>            n = <span class="keyword">size</span>(x)</div>
+<div class="line"><a id="l02409" name="l02409"></a><span class="lineno"> 2409</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02410" name="l02410"></a><span class="lineno"> 2410</span> </div>
+<div class="line"><a id="l02411" name="l02411"></a><span class="lineno"> 2411</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02412" name="l02412"></a><span class="lineno"> 2412</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02413" name="l02413"></a><span class="lineno"> 2413</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02414" name="l02414"></a><span class="lineno"> 2414</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02415" name="l02415"></a><span class="lineno"> 2415</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02416" name="l02416"></a><span class="lineno"> 2416</span> </div>
+<div class="line"><a id="l02417" name="l02417"></a><span class="lineno"> 2417</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02418" name="l02418"></a><span class="lineno"> 2418</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfaceblas_1_1zgbmv.html">zgbmv</a>(op, m, n, kl, ku, alpha, a, <span class="keyword">size</span>(a, 1), x, 1, beta, y, 1)</div>
+<div class="line"><a id="l02419" name="l02419"></a><span class="lineno"> 2419</span> </div>
+<div class="line"><a id="l02420" name="l02420"></a><span class="lineno"> 2420</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02421" name="l02421"></a><span class="lineno"> 2421</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02422" name="l02422"></a><span class="lineno"> 2422</span> </div>
+<div class="line"><a id="l02423" name="l02423"></a><span class="lineno"> 2423</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02424" name="l02424"></a><span class="lineno"> 2424</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02425" name="l02425"></a><span class="lineno"> 2425</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02426" name="l02426"></a><span class="lineno"> 2426</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02427" name="l02427"></a><span class="lineno"> 2427</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02428" name="l02428"></a><span class="lineno"> 2428</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02429" name="l02429"></a><span class="lineno"> 2429</span> </div>
+<div class="line"><a id="l02430" name="l02430"></a><span class="lineno"> 2430</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02431" name="l02431"></a><span class="lineno"> 2431</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02432" name="l02432"></a><span class="lineno"> 2432</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02433" name="l02433"></a><span class="lineno"> 2433</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02434" name="l02434"></a><span class="lineno"> 2434</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02435" name="l02435"></a><span class="lineno"> 2435</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02436" name="l02436"></a><span class="lineno"> 2436</span> </div>
+<div class="line"><a id="l02437" name="l02437"></a><span class="lineno"> 2437</span>        <span class="comment">! A is incorrectly sized</span></div>
+<div class="line"><a id="l02438" name="l02438"></a><span class="lineno"> 2438</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02439" name="l02439"></a><span class="lineno"> 2439</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_mtx_vec_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02440" name="l02440"></a><span class="lineno"> 2440</span>            <span class="stringliteral">&quot;The size of matrix A is not compatible with the other vectors.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02441" name="l02441"></a><span class="lineno"> 2441</span>            la_array_size_error)</div>
+<div class="line"><a id="l02442" name="l02442"></a><span class="lineno"> 2442</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02443" name="l02443"></a><span class="lineno"> 2443</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02444" name="l02444"></a><span class="lineno"> 2444</span> </div>
+<div class="line"><a id="l02445" name="l02445"></a><span class="lineno"> 2445</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02446" name="l02446"></a><span class="lineno"> 2446</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_dbl(kl, ku, b, f, err)</div>
+<div class="line"><a id="l02447" name="l02447"></a><span class="lineno"> 2447</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02448" name="l02448"></a><span class="lineno"> 2448</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02449" name="l02449"></a><span class="lineno"> 2449</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l02450" name="l02450"></a><span class="lineno"> 2450</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
+<div class="line"><a id="l02451" name="l02451"></a><span class="lineno"> 2451</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02452" name="l02452"></a><span class="lineno"> 2452</span> </div>
+<div class="line"><a id="l02453" name="l02453"></a><span class="lineno"> 2453</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02454" name="l02454"></a><span class="lineno"> 2454</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
+<div class="line"><a id="l02455" name="l02455"></a><span class="lineno"> 2455</span> </div>
+<div class="line"><a id="l02456" name="l02456"></a><span class="lineno"> 2456</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02457" name="l02457"></a><span class="lineno"> 2457</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02458" name="l02458"></a><span class="lineno"> 2458</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02459" name="l02459"></a><span class="lineno"> 2459</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, i1, i2</div>
+<div class="line"><a id="l02460" name="l02460"></a><span class="lineno"> 2460</span>        </div>
+<div class="line"><a id="l02461" name="l02461"></a><span class="lineno"> 2461</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02462" name="l02462"></a><span class="lineno"> 2462</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02463" name="l02463"></a><span class="lineno"> 2463</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02464" name="l02464"></a><span class="lineno"> 2464</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02465" name="l02465"></a><span class="lineno"> 2465</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02466" name="l02466"></a><span class="lineno"> 2466</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02467" name="l02467"></a><span class="lineno"> 2467</span>        m = <span class="keyword">size</span>(f, 1)</div>
+<div class="line"><a id="l02468" name="l02468"></a><span class="lineno"> 2468</span>        n = <span class="keyword">size</span>(f, 2)</div>
+<div class="line"><a id="l02469" name="l02469"></a><span class="lineno"> 2469</span> </div>
+<div class="line"><a id="l02470" name="l02470"></a><span class="lineno"> 2470</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02471" name="l02471"></a><span class="lineno"> 2471</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02472" name="l02472"></a><span class="lineno"> 2472</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02473" name="l02473"></a><span class="lineno"> 2473</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02474" name="l02474"></a><span class="lineno"> 2474</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 40</div>
+<div class="line"><a id="l02475" name="l02475"></a><span class="lineno"> 2475</span> </div>
+<div class="line"><a id="l02476" name="l02476"></a><span class="lineno"> 2476</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02477" name="l02477"></a><span class="lineno"> 2477</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02478" name="l02478"></a><span class="lineno"> 2478</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02479" name="l02479"></a><span class="lineno"> 2479</span>            i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02480" name="l02480"></a><span class="lineno"> 2480</span>            i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02481" name="l02481"></a><span class="lineno"> 2481</span>            <span class="keywordflow">do</span> i = 1, i1 - 1</div>
+<div class="line"><a id="l02482" name="l02482"></a><span class="lineno"> 2482</span>                f(i,j) = zero</div>
+<div class="line"><a id="l02483" name="l02483"></a><span class="lineno"> 2483</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02484" name="l02484"></a><span class="lineno"> 2484</span>            <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02485" name="l02485"></a><span class="lineno"> 2485</span>                f(i,j) = b(k+i,j)</div>
+<div class="line"><a id="l02486" name="l02486"></a><span class="lineno"> 2486</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02487" name="l02487"></a><span class="lineno"> 2487</span>            <span class="keywordflow">do</span> i = i2 + 1, m</div>
+<div class="line"><a id="l02488" name="l02488"></a><span class="lineno"> 2488</span>                f(i,j) = zero</div>
+<div class="line"><a id="l02489" name="l02489"></a><span class="lineno"> 2489</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02490" name="l02490"></a><span class="lineno"> 2490</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02491" name="l02491"></a><span class="lineno"> 2491</span> </div>
+<div class="line"><a id="l02492" name="l02492"></a><span class="lineno"> 2492</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02493" name="l02493"></a><span class="lineno"> 2493</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02494" name="l02494"></a><span class="lineno"> 2494</span> </div>
+<div class="line"><a id="l02495" name="l02495"></a><span class="lineno"> 2495</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02496" name="l02496"></a><span class="lineno"> 2496</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02497" name="l02497"></a><span class="lineno"> 2497</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02498" name="l02498"></a><span class="lineno"> 2498</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02499" name="l02499"></a><span class="lineno"> 2499</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02500" name="l02500"></a><span class="lineno"> 2500</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02501" name="l02501"></a><span class="lineno"> 2501</span> </div>
+<div class="line"><a id="l02502" name="l02502"></a><span class="lineno"> 2502</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02503" name="l02503"></a><span class="lineno"> 2503</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02504" name="l02504"></a><span class="lineno"> 2504</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02505" name="l02505"></a><span class="lineno"> 2505</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02506" name="l02506"></a><span class="lineno"> 2506</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02507" name="l02507"></a><span class="lineno"> 2507</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02508" name="l02508"></a><span class="lineno"> 2508</span> </div>
+<div class="line"><a id="l02509" name="l02509"></a><span class="lineno"> 2509</span>        <span class="comment">! A is incorrectly sized</span></div>
+<div class="line"><a id="l02510" name="l02510"></a><span class="lineno"> 2510</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02511" name="l02511"></a><span class="lineno"> 2511</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02512" name="l02512"></a><span class="lineno"> 2512</span>            <span class="stringliteral">&quot;The number of columns in the banded matrix does not match &quot;</span> // &amp;</div>
+<div class="line"><a id="l02513" name="l02513"></a><span class="lineno"> 2513</span>            <span class="stringliteral">&quot;the number of columns in the full matrix.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02514" name="l02514"></a><span class="lineno"> 2514</span>            la_array_size_error)</div>
+<div class="line"><a id="l02515" name="l02515"></a><span class="lineno"> 2515</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02516" name="l02516"></a><span class="lineno"> 2516</span> </div>
+<div class="line"><a id="l02517" name="l02517"></a><span class="lineno"> 2517</span>40      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02518" name="l02518"></a><span class="lineno"> 2518</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02519" name="l02519"></a><span class="lineno"> 2519</span>            <span class="stringliteral">&quot;The number of rows in the banded matrix does not align with &quot;</span> // &amp;</div>
+<div class="line"><a id="l02520" name="l02520"></a><span class="lineno"> 2520</span>            <span class="stringliteral">&quot;the number of sub and super-diagonals specified.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02521" name="l02521"></a><span class="lineno"> 2521</span>            la_array_size_error)</div>
+<div class="line"><a id="l02522" name="l02522"></a><span class="lineno"> 2522</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02523" name="l02523"></a><span class="lineno"> 2523</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02524" name="l02524"></a><span class="lineno"> 2524</span> </div>
+<div class="line"><a id="l02525" name="l02525"></a><span class="lineno"> 2525</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02526" name="l02526"></a><span class="lineno"> 2526</span>    <span class="keyword">module</span> subroutine band_to_full_mtx_cmplx(kl, ku, b, f, err)</div>
+<div class="line"><a id="l02527" name="l02527"></a><span class="lineno"> 2527</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02528" name="l02528"></a><span class="lineno"> 2528</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02529" name="l02529"></a><span class="lineno"> 2529</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: b</div>
+<div class="line"><a id="l02530" name="l02530"></a><span class="lineno"> 2530</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: f</div>
+<div class="line"><a id="l02531" name="l02531"></a><span class="lineno"> 2531</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02532" name="l02532"></a><span class="lineno"> 2532</span> </div>
+<div class="line"><a id="l02533" name="l02533"></a><span class="lineno"> 2533</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02534" name="l02534"></a><span class="lineno"> 2534</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
+<div class="line"><a id="l02535" name="l02535"></a><span class="lineno"> 2535</span> </div>
+<div class="line"><a id="l02536" name="l02536"></a><span class="lineno"> 2536</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02537" name="l02537"></a><span class="lineno"> 2537</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02538" name="l02538"></a><span class="lineno"> 2538</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02539" name="l02539"></a><span class="lineno"> 2539</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, i1, i2</div>
+<div class="line"><a id="l02540" name="l02540"></a><span class="lineno"> 2540</span>        </div>
+<div class="line"><a id="l02541" name="l02541"></a><span class="lineno"> 2541</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02542" name="l02542"></a><span class="lineno"> 2542</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02543" name="l02543"></a><span class="lineno"> 2543</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02544" name="l02544"></a><span class="lineno"> 2544</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02545" name="l02545"></a><span class="lineno"> 2545</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02546" name="l02546"></a><span class="lineno"> 2546</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02547" name="l02547"></a><span class="lineno"> 2547</span>        m = <span class="keyword">size</span>(f, 1)</div>
+<div class="line"><a id="l02548" name="l02548"></a><span class="lineno"> 2548</span>        n = <span class="keyword">size</span>(f, 2)</div>
+<div class="line"><a id="l02549" name="l02549"></a><span class="lineno"> 2549</span> </div>
+<div class="line"><a id="l02550" name="l02550"></a><span class="lineno"> 2550</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02551" name="l02551"></a><span class="lineno"> 2551</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02552" name="l02552"></a><span class="lineno"> 2552</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02553" name="l02553"></a><span class="lineno"> 2553</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02554" name="l02554"></a><span class="lineno"> 2554</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= kl + ku + 1) <span class="keywordflow">go to</span> 40</div>
+<div class="line"><a id="l02555" name="l02555"></a><span class="lineno"> 2555</span> </div>
+<div class="line"><a id="l02556" name="l02556"></a><span class="lineno"> 2556</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02557" name="l02557"></a><span class="lineno"> 2557</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02558" name="l02558"></a><span class="lineno"> 2558</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02559" name="l02559"></a><span class="lineno"> 2559</span>            i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02560" name="l02560"></a><span class="lineno"> 2560</span>            i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02561" name="l02561"></a><span class="lineno"> 2561</span>            <span class="keywordflow">do</span> i = 1, i1 - 1</div>
+<div class="line"><a id="l02562" name="l02562"></a><span class="lineno"> 2562</span>                f(i,j) = zero</div>
+<div class="line"><a id="l02563" name="l02563"></a><span class="lineno"> 2563</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02564" name="l02564"></a><span class="lineno"> 2564</span>            <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02565" name="l02565"></a><span class="lineno"> 2565</span>                f(i,j) = b(k+i,j)</div>
+<div class="line"><a id="l02566" name="l02566"></a><span class="lineno"> 2566</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02567" name="l02567"></a><span class="lineno"> 2567</span>            <span class="keywordflow">do</span> i = i2 + 1, m</div>
+<div class="line"><a id="l02568" name="l02568"></a><span class="lineno"> 2568</span>                f(i,j) = zero</div>
+<div class="line"><a id="l02569" name="l02569"></a><span class="lineno"> 2569</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02570" name="l02570"></a><span class="lineno"> 2570</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02571" name="l02571"></a><span class="lineno"> 2571</span> </div>
+<div class="line"><a id="l02572" name="l02572"></a><span class="lineno"> 2572</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02573" name="l02573"></a><span class="lineno"> 2573</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02574" name="l02574"></a><span class="lineno"> 2574</span> </div>
+<div class="line"><a id="l02575" name="l02575"></a><span class="lineno"> 2575</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02576" name="l02576"></a><span class="lineno"> 2576</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02577" name="l02577"></a><span class="lineno"> 2577</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02578" name="l02578"></a><span class="lineno"> 2578</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02579" name="l02579"></a><span class="lineno"> 2579</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02580" name="l02580"></a><span class="lineno"> 2580</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02581" name="l02581"></a><span class="lineno"> 2581</span> </div>
+<div class="line"><a id="l02582" name="l02582"></a><span class="lineno"> 2582</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02583" name="l02583"></a><span class="lineno"> 2583</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02584" name="l02584"></a><span class="lineno"> 2584</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02585" name="l02585"></a><span class="lineno"> 2585</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02586" name="l02586"></a><span class="lineno"> 2586</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02587" name="l02587"></a><span class="lineno"> 2587</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02588" name="l02588"></a><span class="lineno"> 2588</span> </div>
+<div class="line"><a id="l02589" name="l02589"></a><span class="lineno"> 2589</span>        <span class="comment">! A is incorrectly sized</span></div>
+<div class="line"><a id="l02590" name="l02590"></a><span class="lineno"> 2590</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02591" name="l02591"></a><span class="lineno"> 2591</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02592" name="l02592"></a><span class="lineno"> 2592</span>            <span class="stringliteral">&quot;The number of columns in the banded matrix does not match &quot;</span> // &amp;</div>
+<div class="line"><a id="l02593" name="l02593"></a><span class="lineno"> 2593</span>            <span class="stringliteral">&quot;the number of columns in the full matrix.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02594" name="l02594"></a><span class="lineno"> 2594</span>            la_array_size_error)</div>
+<div class="line"><a id="l02595" name="l02595"></a><span class="lineno"> 2595</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02596" name="l02596"></a><span class="lineno"> 2596</span> </div>
+<div class="line"><a id="l02597" name="l02597"></a><span class="lineno"> 2597</span>40      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02598" name="l02598"></a><span class="lineno"> 2598</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_to_full_mtx_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02599" name="l02599"></a><span class="lineno"> 2599</span>            <span class="stringliteral">&quot;The number of rows in the banded matrix does not align with &quot;</span> // &amp;</div>
+<div class="line"><a id="l02600" name="l02600"></a><span class="lineno"> 2600</span>            <span class="stringliteral">&quot;the number of sub and super-diagonals specified.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02601" name="l02601"></a><span class="lineno"> 2601</span>            la_array_size_error)</div>
+<div class="line"><a id="l02602" name="l02602"></a><span class="lineno"> 2602</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02603" name="l02603"></a><span class="lineno"> 2603</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l02604" name="l02604"></a><span class="lineno"> 2604</span> </div>
-<div class="line"><a id="l02605" name="l02605"></a><span class="lineno"> 2605</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02606" name="l02606"></a><span class="lineno"> 2606</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02607" name="l02607"></a><span class="lineno"> 2607</span> </div>
-<div class="line"><a id="l02608" name="l02608"></a><span class="lineno"> 2608</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02609" name="l02609"></a><span class="lineno"> 2609</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02610" name="l02610"></a><span class="lineno"> 2610</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02611" name="l02611"></a><span class="lineno"> 2611</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02612" name="l02612"></a><span class="lineno"> 2612</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02613" name="l02613"></a><span class="lineno"> 2613</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02605" name="l02605"></a><span class="lineno"> 2605</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02606" name="l02606"></a><span class="lineno"> 2606</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_dbl(left, m, kl, ku, alpha, a, b, err)</div>
+<div class="line"><a id="l02607" name="l02607"></a><span class="lineno"> 2607</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02608" name="l02608"></a><span class="lineno"> 2608</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
+<div class="line"><a id="l02609" name="l02609"></a><span class="lineno"> 2609</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l02610" name="l02610"></a><span class="lineno"> 2610</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l02611" name="l02611"></a><span class="lineno"> 2611</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02612" name="l02612"></a><span class="lineno"> 2612</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l02613" name="l02613"></a><span class="lineno"> 2613</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l02614" name="l02614"></a><span class="lineno"> 2614</span> </div>
-<div class="line"><a id="l02615" name="l02615"></a><span class="lineno"> 2615</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02616" name="l02616"></a><span class="lineno"> 2616</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02617" name="l02617"></a><span class="lineno"> 2617</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02618" name="l02618"></a><span class="lineno"> 2618</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02619" name="l02619"></a><span class="lineno"> 2619</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02620" name="l02620"></a><span class="lineno"> 2620</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02621" name="l02621"></a><span class="lineno"> 2621</span> </div>
-<div class="line"><a id="l02622" name="l02622"></a><span class="lineno"> 2622</span>        <span class="comment">! B is not sized correctly</span></div>
-<div class="line"><a id="l02623" name="l02623"></a><span class="lineno"> 2623</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02624" name="l02624"></a><span class="lineno"> 2624</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
-<div class="line"><a id="l02625" name="l02625"></a><span class="lineno"> 2625</span>            <span class="stringliteral">&quot;Inner matrix dimensions do not agree.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02626" name="l02626"></a><span class="lineno"> 2626</span>            la_array_size_error)</div>
-<div class="line"><a id="l02627" name="l02627"></a><span class="lineno"> 2627</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02628" name="l02628"></a><span class="lineno"> 2628</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02629" name="l02629"></a><span class="lineno"> 2629</span> </div>
-<div class="line"><a id="l02630" name="l02630"></a><span class="lineno"> 2630</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02631" name="l02631"></a><span class="lineno"> 2631</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_cmplx(left, m, kl, ku, alpha, a, b, err)</div>
-<div class="line"><a id="l02632" name="l02632"></a><span class="lineno"> 2632</span>        <span class="comment">! Arguments</span></div>
-<div class="line"><a id="l02633" name="l02633"></a><span class="lineno"> 2633</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
-<div class="line"><a id="l02634" name="l02634"></a><span class="lineno"> 2634</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
-<div class="line"><a id="l02635" name="l02635"></a><span class="lineno"> 2635</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
-<div class="line"><a id="l02636" name="l02636"></a><span class="lineno"> 2636</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
-<div class="line"><a id="l02637" name="l02637"></a><span class="lineno"> 2637</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
-<div class="line"><a id="l02638" name="l02638"></a><span class="lineno"> 2638</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
-<div class="line"><a id="l02639" name="l02639"></a><span class="lineno"> 2639</span> </div>
-<div class="line"><a id="l02640" name="l02640"></a><span class="lineno"> 2640</span>        <span class="comment">! Parameters</span></div>
-<div class="line"><a id="l02641" name="l02641"></a><span class="lineno"> 2641</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: one = (1.0d0, 0.0d0)</div>
-<div class="line"><a id="l02642" name="l02642"></a><span class="lineno"> 2642</span> </div>
-<div class="line"><a id="l02643" name="l02643"></a><span class="lineno"> 2643</span>        <span class="comment">! Local Variables</span></div>
-<div class="line"><a id="l02644" name="l02644"></a><span class="lineno"> 2644</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
-<div class="line"><a id="l02645" name="l02645"></a><span class="lineno"> 2645</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
-<div class="line"><a id="l02646" name="l02646"></a><span class="lineno"> 2646</span>        <span class="keywordtype">integer(int32)</span> :: i, i1, i2, j, k, n</div>
-<div class="line"><a id="l02647" name="l02647"></a><span class="lineno"> 2647</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
-<div class="line"><a id="l02648" name="l02648"></a><span class="lineno"> 2648</span>        </div>
-<div class="line"><a id="l02649" name="l02649"></a><span class="lineno"> 2649</span>        <span class="comment">! Initialization</span></div>
-<div class="line"><a id="l02650" name="l02650"></a><span class="lineno"> 2650</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02651" name="l02651"></a><span class="lineno"> 2651</span>            errmgr =&gt; err</div>
-<div class="line"><a id="l02652" name="l02652"></a><span class="lineno"> 2652</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02653" name="l02653"></a><span class="lineno"> 2653</span>            errmgr =&gt; deferr</div>
-<div class="line"><a id="l02654" name="l02654"></a><span class="lineno"> 2654</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02655" name="l02655"></a><span class="lineno"> 2655</span>        n = <span class="keyword">size</span>(a, 2)</div>
-<div class="line"><a id="l02656" name="l02656"></a><span class="lineno"> 2656</span> </div>
-<div class="line"><a id="l02657" name="l02657"></a><span class="lineno"> 2657</span>        <span class="comment">! Input Checking</span></div>
-<div class="line"><a id="l02658" name="l02658"></a><span class="lineno"> 2658</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
-<div class="line"><a id="l02659" name="l02659"></a><span class="lineno"> 2659</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
-<div class="line"><a id="l02660" name="l02660"></a><span class="lineno"> 2660</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02661" name="l02661"></a><span class="lineno"> 2661</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02662" name="l02662"></a><span class="lineno"> 2662</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02663" name="l02663"></a><span class="lineno"> 2663</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) &lt; m) <span class="keywordflow">go to</span> 30</div>
-<div class="line"><a id="l02664" name="l02664"></a><span class="lineno"> 2664</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02665" name="l02665"></a><span class="lineno"> 2665</span> </div>
-<div class="line"><a id="l02666" name="l02666"></a><span class="lineno"> 2666</span>        <span class="comment">! Process</span></div>
-<div class="line"><a id="l02667" name="l02667"></a><span class="lineno"> 2667</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02668" name="l02668"></a><span class="lineno"> 2668</span>            <span class="comment">! Compute A = A * B</span></div>
-<div class="line"><a id="l02669" name="l02669"></a><span class="lineno"> 2669</span>            <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02670" name="l02670"></a><span class="lineno"> 2670</span>                k = ku + 1 - j</div>
-<div class="line"><a id="l02671" name="l02671"></a><span class="lineno"> 2671</span>                i1 = max(1, j - ku) + k</div>
-<div class="line"><a id="l02672" name="l02672"></a><span class="lineno"> 2672</span>                i2 = min(m, j + kl) + k</div>
-<div class="line"><a id="l02673" name="l02673"></a><span class="lineno"> 2673</span>                <span class="keywordflow">if</span> (alpha == one) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02674" name="l02674"></a><span class="lineno"> 2674</span>                    temp = b(j)</div>
-<div class="line"><a id="l02675" name="l02675"></a><span class="lineno"> 2675</span>                <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02676" name="l02676"></a><span class="lineno"> 2676</span>                    temp = alpha * b(j)</div>
-<div class="line"><a id="l02677" name="l02677"></a><span class="lineno"> 2677</span><span class="keywordflow">                end if</span></div>
-<div class="line"><a id="l02678" name="l02678"></a><span class="lineno"> 2678</span>                <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02679" name="l02679"></a><span class="lineno"> 2679</span>                    a(i,j) = a(i,j) * temp</div>
-<div class="line"><a id="l02680" name="l02680"></a><span class="lineno"> 2680</span><span class="keywordflow">                end do</span></div>
-<div class="line"><a id="l02681" name="l02681"></a><span class="lineno"> 2681</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02682" name="l02682"></a><span class="lineno"> 2682</span>        <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02683" name="l02683"></a><span class="lineno"> 2683</span>            <span class="comment">! Compute A = B * A</span></div>
-<div class="line"><a id="l02684" name="l02684"></a><span class="lineno"> 2684</span>            <span class="keywordflow">do</span> j = 1, n</div>
-<div class="line"><a id="l02685" name="l02685"></a><span class="lineno"> 2685</span>                k = ku + 1 - j</div>
-<div class="line"><a id="l02686" name="l02686"></a><span class="lineno"> 2686</span>                i1 = max(1, j - ku)</div>
-<div class="line"><a id="l02687" name="l02687"></a><span class="lineno"> 2687</span>                i2 = min(m, j + kl)</div>
-<div class="line"><a id="l02688" name="l02688"></a><span class="lineno"> 2688</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
-<div class="line"><a id="l02689" name="l02689"></a><span class="lineno"> 2689</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02690" name="l02690"></a><span class="lineno"> 2690</span>                        a(i+k,j) = a(i+k,j) * b(i)</div>
-<div class="line"><a id="l02691" name="l02691"></a><span class="lineno"> 2691</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02692" name="l02692"></a><span class="lineno"> 2692</span>                <span class="keywordflow">else</span></div>
-<div class="line"><a id="l02693" name="l02693"></a><span class="lineno"> 2693</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
-<div class="line"><a id="l02694" name="l02694"></a><span class="lineno"> 2694</span>                        a(i+k,j) = alpha * a(i+k,j) * b(i)</div>
-<div class="line"><a id="l02695" name="l02695"></a><span class="lineno"> 2695</span><span class="keywordflow">                    end do</span></div>
-<div class="line"><a id="l02696" name="l02696"></a><span class="lineno"> 2696</span><span class="keywordflow">                end if</span></div>
-<div class="line"><a id="l02697" name="l02697"></a><span class="lineno"> 2697</span><span class="keywordflow">            end do</span></div>
-<div class="line"><a id="l02698" name="l02698"></a><span class="lineno"> 2698</span><span class="keywordflow">        end if</span></div>
-<div class="line"><a id="l02699" name="l02699"></a><span class="lineno"> 2699</span> </div>
+<div class="line"><a id="l02615" name="l02615"></a><span class="lineno"> 2615</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02616" name="l02616"></a><span class="lineno"> 2616</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: one = 1.0d0</div>
+<div class="line"><a id="l02617" name="l02617"></a><span class="lineno"> 2617</span> </div>
+<div class="line"><a id="l02618" name="l02618"></a><span class="lineno"> 2618</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02619" name="l02619"></a><span class="lineno"> 2619</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02620" name="l02620"></a><span class="lineno"> 2620</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02621" name="l02621"></a><span class="lineno"> 2621</span>        <span class="keywordtype">integer(int32)</span> :: i, i1, i2, j, k, n</div>
+<div class="line"><a id="l02622" name="l02622"></a><span class="lineno"> 2622</span><span class="keywordtype">        real</span>(real64) :: temp</div>
+<div class="line"><a id="l02623" name="l02623"></a><span class="lineno"> 2623</span>        </div>
+<div class="line"><a id="l02624" name="l02624"></a><span class="lineno"> 2624</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02625" name="l02625"></a><span class="lineno"> 2625</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02626" name="l02626"></a><span class="lineno"> 2626</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02627" name="l02627"></a><span class="lineno"> 2627</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02628" name="l02628"></a><span class="lineno"> 2628</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02629" name="l02629"></a><span class="lineno"> 2629</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02630" name="l02630"></a><span class="lineno"> 2630</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02631" name="l02631"></a><span class="lineno"> 2631</span> </div>
+<div class="line"><a id="l02632" name="l02632"></a><span class="lineno"> 2632</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02633" name="l02633"></a><span class="lineno"> 2633</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02634" name="l02634"></a><span class="lineno"> 2634</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02635" name="l02635"></a><span class="lineno"> 2635</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02636" name="l02636"></a><span class="lineno"> 2636</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02637" name="l02637"></a><span class="lineno"> 2637</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02638" name="l02638"></a><span class="lineno"> 2638</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) &lt; m) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02639" name="l02639"></a><span class="lineno"> 2639</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02640" name="l02640"></a><span class="lineno"> 2640</span> </div>
+<div class="line"><a id="l02641" name="l02641"></a><span class="lineno"> 2641</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02642" name="l02642"></a><span class="lineno"> 2642</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02643" name="l02643"></a><span class="lineno"> 2643</span>            <span class="comment">! Compute A = A * B</span></div>
+<div class="line"><a id="l02644" name="l02644"></a><span class="lineno"> 2644</span>            <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02645" name="l02645"></a><span class="lineno"> 2645</span>                k = ku + 1 - j</div>
+<div class="line"><a id="l02646" name="l02646"></a><span class="lineno"> 2646</span>                i1 = max(1, j - ku) + k</div>
+<div class="line"><a id="l02647" name="l02647"></a><span class="lineno"> 2647</span>                i2 = min(m, j + kl) + k</div>
+<div class="line"><a id="l02648" name="l02648"></a><span class="lineno"> 2648</span>                <span class="keywordflow">if</span> (alpha == one) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02649" name="l02649"></a><span class="lineno"> 2649</span>                    temp = b(j)</div>
+<div class="line"><a id="l02650" name="l02650"></a><span class="lineno"> 2650</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02651" name="l02651"></a><span class="lineno"> 2651</span>                    temp = alpha * b(j)</div>
+<div class="line"><a id="l02652" name="l02652"></a><span class="lineno"> 2652</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l02653" name="l02653"></a><span class="lineno"> 2653</span>                <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02654" name="l02654"></a><span class="lineno"> 2654</span>                    a(i,j) = a(i,j) * temp</div>
+<div class="line"><a id="l02655" name="l02655"></a><span class="lineno"> 2655</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02656" name="l02656"></a><span class="lineno"> 2656</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02657" name="l02657"></a><span class="lineno"> 2657</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02658" name="l02658"></a><span class="lineno"> 2658</span>            <span class="comment">! Compute A = B * A</span></div>
+<div class="line"><a id="l02659" name="l02659"></a><span class="lineno"> 2659</span>            <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02660" name="l02660"></a><span class="lineno"> 2660</span>                k = ku + 1 - j</div>
+<div class="line"><a id="l02661" name="l02661"></a><span class="lineno"> 2661</span>                i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02662" name="l02662"></a><span class="lineno"> 2662</span>                i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02663" name="l02663"></a><span class="lineno"> 2663</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02664" name="l02664"></a><span class="lineno"> 2664</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02665" name="l02665"></a><span class="lineno"> 2665</span>                        a(i+k,j) = a(i+k,j) * b(i)</div>
+<div class="line"><a id="l02666" name="l02666"></a><span class="lineno"> 2666</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02667" name="l02667"></a><span class="lineno"> 2667</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02668" name="l02668"></a><span class="lineno"> 2668</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02669" name="l02669"></a><span class="lineno"> 2669</span>                        a(i+k,j) = alpha * a(i+k,j) * b(i)</div>
+<div class="line"><a id="l02670" name="l02670"></a><span class="lineno"> 2670</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02671" name="l02671"></a><span class="lineno"> 2671</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l02672" name="l02672"></a><span class="lineno"> 2672</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02673" name="l02673"></a><span class="lineno"> 2673</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02674" name="l02674"></a><span class="lineno"> 2674</span> </div>
+<div class="line"><a id="l02675" name="l02675"></a><span class="lineno"> 2675</span> </div>
+<div class="line"><a id="l02676" name="l02676"></a><span class="lineno"> 2676</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02677" name="l02677"></a><span class="lineno"> 2677</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02678" name="l02678"></a><span class="lineno"> 2678</span> </div>
+<div class="line"><a id="l02679" name="l02679"></a><span class="lineno"> 2679</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02680" name="l02680"></a><span class="lineno"> 2680</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02681" name="l02681"></a><span class="lineno"> 2681</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02682" name="l02682"></a><span class="lineno"> 2682</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02683" name="l02683"></a><span class="lineno"> 2683</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02684" name="l02684"></a><span class="lineno"> 2684</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02685" name="l02685"></a><span class="lineno"> 2685</span> </div>
+<div class="line"><a id="l02686" name="l02686"></a><span class="lineno"> 2686</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02687" name="l02687"></a><span class="lineno"> 2687</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02688" name="l02688"></a><span class="lineno"> 2688</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02689" name="l02689"></a><span class="lineno"> 2689</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02690" name="l02690"></a><span class="lineno"> 2690</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02691" name="l02691"></a><span class="lineno"> 2691</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02692" name="l02692"></a><span class="lineno"> 2692</span> </div>
+<div class="line"><a id="l02693" name="l02693"></a><span class="lineno"> 2693</span>        <span class="comment">! B is not sized correctly</span></div>
+<div class="line"><a id="l02694" name="l02694"></a><span class="lineno"> 2694</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02695" name="l02695"></a><span class="lineno"> 2695</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02696" name="l02696"></a><span class="lineno"> 2696</span>            <span class="stringliteral">&quot;Inner matrix dimensions do not agree.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02697" name="l02697"></a><span class="lineno"> 2697</span>            la_array_size_error)</div>
+<div class="line"><a id="l02698" name="l02698"></a><span class="lineno"> 2698</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02699" name="l02699"></a><span class="lineno"> 2699</span>    <span class="keyword">end subroutine</span></div>
 <div class="line"><a id="l02700" name="l02700"></a><span class="lineno"> 2700</span> </div>
-<div class="line"><a id="l02701" name="l02701"></a><span class="lineno"> 2701</span>        <span class="comment">! End</span></div>
-<div class="line"><a id="l02702" name="l02702"></a><span class="lineno"> 2702</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02703" name="l02703"></a><span class="lineno"> 2703</span> </div>
-<div class="line"><a id="l02704" name="l02704"></a><span class="lineno"> 2704</span>        <span class="comment">! KL &lt; 0</span></div>
-<div class="line"><a id="l02705" name="l02705"></a><span class="lineno"> 2705</span>10      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02706" name="l02706"></a><span class="lineno"> 2706</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02707" name="l02707"></a><span class="lineno"> 2707</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02708" name="l02708"></a><span class="lineno"> 2708</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02709" name="l02709"></a><span class="lineno"> 2709</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02701" name="l02701"></a><span class="lineno"> 2701</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02702" name="l02702"></a><span class="lineno"> 2702</span>    <span class="keyword">module</span> subroutine band_diag_mtx_mult_cmplx(left, m, kl, ku, alpha, a, b, err)</div>
+<div class="line"><a id="l02703" name="l02703"></a><span class="lineno"> 2703</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02704" name="l02704"></a><span class="lineno"> 2704</span>        <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: left</div>
+<div class="line"><a id="l02705" name="l02705"></a><span class="lineno"> 2705</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l02706" name="l02706"></a><span class="lineno"> 2706</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span> :: alpha</div>
+<div class="line"><a id="l02707" name="l02707"></a><span class="lineno"> 2707</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02708" name="l02708"></a><span class="lineno"> 2708</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l02709" name="l02709"></a><span class="lineno"> 2709</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
 <div class="line"><a id="l02710" name="l02710"></a><span class="lineno"> 2710</span> </div>
-<div class="line"><a id="l02711" name="l02711"></a><span class="lineno"> 2711</span>        <span class="comment">! KU &lt; 0</span></div>
-<div class="line"><a id="l02712" name="l02712"></a><span class="lineno"> 2712</span>20      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02713" name="l02713"></a><span class="lineno"> 2713</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02714" name="l02714"></a><span class="lineno"> 2714</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02715" name="l02715"></a><span class="lineno"> 2715</span>            la_invalid_input_error)</div>
-<div class="line"><a id="l02716" name="l02716"></a><span class="lineno"> 2716</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02717" name="l02717"></a><span class="lineno"> 2717</span> </div>
-<div class="line"><a id="l02718" name="l02718"></a><span class="lineno"> 2718</span>        <span class="comment">! B is not sized correctly</span></div>
-<div class="line"><a id="l02719" name="l02719"></a><span class="lineno"> 2719</span>30      <span class="keywordflow">continue</span></div>
-<div class="line"><a id="l02720" name="l02720"></a><span class="lineno"> 2720</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
-<div class="line"><a id="l02721" name="l02721"></a><span class="lineno"> 2721</span>            <span class="stringliteral">&quot;Inner matrix dimensions do not agree.&quot;</span>, &amp;</div>
-<div class="line"><a id="l02722" name="l02722"></a><span class="lineno"> 2722</span>            la_array_size_error)</div>
-<div class="line"><a id="l02723" name="l02723"></a><span class="lineno"> 2723</span>        <span class="keywordflow">return</span></div>
-<div class="line"><a id="l02724" name="l02724"></a><span class="lineno"> 2724</span>    <span class="keyword">end subroutine</span></div>
-<div class="line"><a id="l02725" name="l02725"></a><span class="lineno"> 2725</span> </div>
-<div class="line"><a id="l02726" name="l02726"></a><span class="lineno"> 2726</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
-<div class="line"><a id="l02727" name="l02727"></a><span class="lineno"> 2727</span><span class="keyword">end </span>submodule</div>
+<div class="line"><a id="l02711" name="l02711"></a><span class="lineno"> 2711</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02712" name="l02712"></a><span class="lineno"> 2712</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: one = (1.0d0, 0.0d0)</div>
+<div class="line"><a id="l02713" name="l02713"></a><span class="lineno"> 2713</span> </div>
+<div class="line"><a id="l02714" name="l02714"></a><span class="lineno"> 2714</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02715" name="l02715"></a><span class="lineno"> 2715</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02716" name="l02716"></a><span class="lineno"> 2716</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02717" name="l02717"></a><span class="lineno"> 2717</span>        <span class="keywordtype">integer(int32)</span> :: i, i1, i2, j, k, n</div>
+<div class="line"><a id="l02718" name="l02718"></a><span class="lineno"> 2718</span>        <span class="keywordtype">complex(real64)</span> :: temp</div>
+<div class="line"><a id="l02719" name="l02719"></a><span class="lineno"> 2719</span>        </div>
+<div class="line"><a id="l02720" name="l02720"></a><span class="lineno"> 2720</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02721" name="l02721"></a><span class="lineno"> 2721</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02722" name="l02722"></a><span class="lineno"> 2722</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02723" name="l02723"></a><span class="lineno"> 2723</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02724" name="l02724"></a><span class="lineno"> 2724</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02725" name="l02725"></a><span class="lineno"> 2725</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02726" name="l02726"></a><span class="lineno"> 2726</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02727" name="l02727"></a><span class="lineno"> 2727</span> </div>
+<div class="line"><a id="l02728" name="l02728"></a><span class="lineno"> 2728</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02729" name="l02729"></a><span class="lineno"> 2729</span>        <span class="keywordflow">if</span> (kl &lt; 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l02730" name="l02730"></a><span class="lineno"> 2730</span>        <span class="keywordflow">if</span> (ku &lt; 0) <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l02731" name="l02731"></a><span class="lineno"> 2731</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02732" name="l02732"></a><span class="lineno"> 2732</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02733" name="l02733"></a><span class="lineno"> 2733</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02734" name="l02734"></a><span class="lineno"> 2734</span>            <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) &lt; m) <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l02735" name="l02735"></a><span class="lineno"> 2735</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02736" name="l02736"></a><span class="lineno"> 2736</span> </div>
+<div class="line"><a id="l02737" name="l02737"></a><span class="lineno"> 2737</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02738" name="l02738"></a><span class="lineno"> 2738</span>        <span class="keywordflow">if</span> (left) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02739" name="l02739"></a><span class="lineno"> 2739</span>            <span class="comment">! Compute A = A * B</span></div>
+<div class="line"><a id="l02740" name="l02740"></a><span class="lineno"> 2740</span>            <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02741" name="l02741"></a><span class="lineno"> 2741</span>                k = ku + 1 - j</div>
+<div class="line"><a id="l02742" name="l02742"></a><span class="lineno"> 2742</span>                i1 = max(1, j - ku) + k</div>
+<div class="line"><a id="l02743" name="l02743"></a><span class="lineno"> 2743</span>                i2 = min(m, j + kl) + k</div>
+<div class="line"><a id="l02744" name="l02744"></a><span class="lineno"> 2744</span>                <span class="keywordflow">if</span> (alpha == one) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02745" name="l02745"></a><span class="lineno"> 2745</span>                    temp = b(j)</div>
+<div class="line"><a id="l02746" name="l02746"></a><span class="lineno"> 2746</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02747" name="l02747"></a><span class="lineno"> 2747</span>                    temp = alpha * b(j)</div>
+<div class="line"><a id="l02748" name="l02748"></a><span class="lineno"> 2748</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l02749" name="l02749"></a><span class="lineno"> 2749</span>                <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02750" name="l02750"></a><span class="lineno"> 2750</span>                    a(i,j) = a(i,j) * temp</div>
+<div class="line"><a id="l02751" name="l02751"></a><span class="lineno"> 2751</span><span class="keywordflow">                end do</span></div>
+<div class="line"><a id="l02752" name="l02752"></a><span class="lineno"> 2752</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02753" name="l02753"></a><span class="lineno"> 2753</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02754" name="l02754"></a><span class="lineno"> 2754</span>            <span class="comment">! Compute A = B * A</span></div>
+<div class="line"><a id="l02755" name="l02755"></a><span class="lineno"> 2755</span>            <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02756" name="l02756"></a><span class="lineno"> 2756</span>                k = ku + 1 - j</div>
+<div class="line"><a id="l02757" name="l02757"></a><span class="lineno"> 2757</span>                i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02758" name="l02758"></a><span class="lineno"> 2758</span>                i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02759" name="l02759"></a><span class="lineno"> 2759</span>                <span class="keywordflow">if</span> (alpha == 1.0d0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02760" name="l02760"></a><span class="lineno"> 2760</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02761" name="l02761"></a><span class="lineno"> 2761</span>                        a(i+k,j) = a(i+k,j) * b(i)</div>
+<div class="line"><a id="l02762" name="l02762"></a><span class="lineno"> 2762</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02763" name="l02763"></a><span class="lineno"> 2763</span>                <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02764" name="l02764"></a><span class="lineno"> 2764</span>                    <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02765" name="l02765"></a><span class="lineno"> 2765</span>                        a(i+k,j) = alpha * a(i+k,j) * b(i)</div>
+<div class="line"><a id="l02766" name="l02766"></a><span class="lineno"> 2766</span><span class="keywordflow">                    end do</span></div>
+<div class="line"><a id="l02767" name="l02767"></a><span class="lineno"> 2767</span><span class="keywordflow">                end if</span></div>
+<div class="line"><a id="l02768" name="l02768"></a><span class="lineno"> 2768</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02769" name="l02769"></a><span class="lineno"> 2769</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02770" name="l02770"></a><span class="lineno"> 2770</span> </div>
+<div class="line"><a id="l02771" name="l02771"></a><span class="lineno"> 2771</span> </div>
+<div class="line"><a id="l02772" name="l02772"></a><span class="lineno"> 2772</span>        <span class="comment">! End</span></div>
+<div class="line"><a id="l02773" name="l02773"></a><span class="lineno"> 2773</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02774" name="l02774"></a><span class="lineno"> 2774</span> </div>
+<div class="line"><a id="l02775" name="l02775"></a><span class="lineno"> 2775</span>        <span class="comment">! KL &lt; 0</span></div>
+<div class="line"><a id="l02776" name="l02776"></a><span class="lineno"> 2776</span>10      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02777" name="l02777"></a><span class="lineno"> 2777</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02778" name="l02778"></a><span class="lineno"> 2778</span>            <span class="stringliteral">&quot;The number of subdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02779" name="l02779"></a><span class="lineno"> 2779</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02780" name="l02780"></a><span class="lineno"> 2780</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02781" name="l02781"></a><span class="lineno"> 2781</span> </div>
+<div class="line"><a id="l02782" name="l02782"></a><span class="lineno"> 2782</span>        <span class="comment">! KU &lt; 0</span></div>
+<div class="line"><a id="l02783" name="l02783"></a><span class="lineno"> 2783</span>20      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02784" name="l02784"></a><span class="lineno"> 2784</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02785" name="l02785"></a><span class="lineno"> 2785</span>            <span class="stringliteral">&quot;The number of superdiagonals must be at least 0.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02786" name="l02786"></a><span class="lineno"> 2786</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l02787" name="l02787"></a><span class="lineno"> 2787</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02788" name="l02788"></a><span class="lineno"> 2788</span> </div>
+<div class="line"><a id="l02789" name="l02789"></a><span class="lineno"> 2789</span>        <span class="comment">! B is not sized correctly</span></div>
+<div class="line"><a id="l02790" name="l02790"></a><span class="lineno"> 2790</span>30      <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l02791" name="l02791"></a><span class="lineno"> 2791</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;band_diag_mtx_mult_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02792" name="l02792"></a><span class="lineno"> 2792</span>            <span class="stringliteral">&quot;Inner matrix dimensions do not agree.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02793" name="l02793"></a><span class="lineno"> 2793</span>            la_array_size_error)</div>
+<div class="line"><a id="l02794" name="l02794"></a><span class="lineno"> 2794</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02795" name="l02795"></a><span class="lineno"> 2795</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02796" name="l02796"></a><span class="lineno"> 2796</span> </div>
+<div class="line"><a id="l02797" name="l02797"></a><span class="lineno"> 2797</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02798" name="l02798"></a><span class="lineno"> 2798</span>    <span class="keyword">module</span> subroutine banded_to_dense_dbl(m, kl, ku, a, x, err)</div>
+<div class="line"><a id="l02799" name="l02799"></a><span class="lineno"> 2799</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02800" name="l02800"></a><span class="lineno"> 2800</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l02801" name="l02801"></a><span class="lineno"> 2801</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02802" name="l02802"></a><span class="lineno"> 2802</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l02803" name="l02803"></a><span class="lineno"> 2803</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02804" name="l02804"></a><span class="lineno"> 2804</span> </div>
+<div class="line"><a id="l02805" name="l02805"></a><span class="lineno"> 2805</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02806" name="l02806"></a><span class="lineno"> 2806</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">parameter</span> :: zero = 0.0d0</div>
+<div class="line"><a id="l02807" name="l02807"></a><span class="lineno"> 2807</span> </div>
+<div class="line"><a id="l02808" name="l02808"></a><span class="lineno"> 2808</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02809" name="l02809"></a><span class="lineno"> 2809</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, i1, i2</div>
+<div class="line"><a id="l02810" name="l02810"></a><span class="lineno"> 2810</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02811" name="l02811"></a><span class="lineno"> 2811</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02812" name="l02812"></a><span class="lineno"> 2812</span>        </div>
+<div class="line"><a id="l02813" name="l02813"></a><span class="lineno"> 2813</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02814" name="l02814"></a><span class="lineno"> 2814</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02815" name="l02815"></a><span class="lineno"> 2815</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02816" name="l02816"></a><span class="lineno"> 2816</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02817" name="l02817"></a><span class="lineno"> 2817</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02818" name="l02818"></a><span class="lineno"> 2818</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02819" name="l02819"></a><span class="lineno"> 2819</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02820" name="l02820"></a><span class="lineno"> 2820</span> </div>
+<div class="line"><a id="l02821" name="l02821"></a><span class="lineno"> 2821</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02822" name="l02822"></a><span class="lineno"> 2822</span>        <span class="keywordflow">if</span> (kl &lt; 0 .or. ku &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02823" name="l02823"></a><span class="lineno"> 2823</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02824" name="l02824"></a><span class="lineno"> 2824</span>                <span class="stringliteral">&quot;The bandwidth dimensions must not be negative-valued.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02825" name="l02825"></a><span class="lineno"> 2825</span>                la_invalid_input_error)</div>
+<div class="line"><a id="l02826" name="l02826"></a><span class="lineno"> 2826</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02827" name="l02827"></a><span class="lineno"> 2827</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02828" name="l02828"></a><span class="lineno"> 2828</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02829" name="l02829"></a><span class="lineno"> 2829</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_dbl&quot;</span>, <span class="stringliteral">&quot;The size of &quot;</span> // &amp;</div>
+<div class="line"><a id="l02830" name="l02830"></a><span class="lineno"> 2830</span>                <span class="stringliteral">&quot;the input matrix does not match the specified bandwidth.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02831" name="l02831"></a><span class="lineno"> 2831</span>                la_matrix_format_error)</div>
+<div class="line"><a id="l02832" name="l02832"></a><span class="lineno"> 2832</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02833" name="l02833"></a><span class="lineno"> 2833</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02834" name="l02834"></a><span class="lineno"> 2834</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= m .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02835" name="l02835"></a><span class="lineno"> 2835</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02836" name="l02836"></a><span class="lineno"> 2836</span>                <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02837" name="l02837"></a><span class="lineno"> 2837</span>                la_array_size_error)</div>
+<div class="line"><a id="l02838" name="l02838"></a><span class="lineno"> 2838</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02839" name="l02839"></a><span class="lineno"> 2839</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02840" name="l02840"></a><span class="lineno"> 2840</span> </div>
+<div class="line"><a id="l02841" name="l02841"></a><span class="lineno"> 2841</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02842" name="l02842"></a><span class="lineno"> 2842</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02843" name="l02843"></a><span class="lineno"> 2843</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02844" name="l02844"></a><span class="lineno"> 2844</span>            i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02845" name="l02845"></a><span class="lineno"> 2845</span>            i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02846" name="l02846"></a><span class="lineno"> 2846</span>            x(:i1-1,j) = zero</div>
+<div class="line"><a id="l02847" name="l02847"></a><span class="lineno"> 2847</span>            <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02848" name="l02848"></a><span class="lineno"> 2848</span>                x(i, j) = a(k + i, j)</div>
+<div class="line"><a id="l02849" name="l02849"></a><span class="lineno"> 2849</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02850" name="l02850"></a><span class="lineno"> 2850</span>            x(i2+1:,j) = zero</div>
+<div class="line"><a id="l02851" name="l02851"></a><span class="lineno"> 2851</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02852" name="l02852"></a><span class="lineno"> 2852</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02853" name="l02853"></a><span class="lineno"> 2853</span> </div>
+<div class="line"><a id="l02854" name="l02854"></a><span class="lineno"> 2854</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02855" name="l02855"></a><span class="lineno"> 2855</span>    <span class="keyword">module</span> subroutine banded_to_dense_cmplx(m, kl, ku, a, x, err)</div>
+<div class="line"><a id="l02856" name="l02856"></a><span class="lineno"> 2856</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02857" name="l02857"></a><span class="lineno"> 2857</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, kl, ku</div>
+<div class="line"><a id="l02858" name="l02858"></a><span class="lineno"> 2858</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02859" name="l02859"></a><span class="lineno"> 2859</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l02860" name="l02860"></a><span class="lineno"> 2860</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02861" name="l02861"></a><span class="lineno"> 2861</span> </div>
+<div class="line"><a id="l02862" name="l02862"></a><span class="lineno"> 2862</span>        <span class="comment">! Parameters</span></div>
+<div class="line"><a id="l02863" name="l02863"></a><span class="lineno"> 2863</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">parameter</span> :: zero = (0.0d0, 0.0d0)</div>
+<div class="line"><a id="l02864" name="l02864"></a><span class="lineno"> 2864</span> </div>
+<div class="line"><a id="l02865" name="l02865"></a><span class="lineno"> 2865</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02866" name="l02866"></a><span class="lineno"> 2866</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, n, i1, i2</div>
+<div class="line"><a id="l02867" name="l02867"></a><span class="lineno"> 2867</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02868" name="l02868"></a><span class="lineno"> 2868</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02869" name="l02869"></a><span class="lineno"> 2869</span>        </div>
+<div class="line"><a id="l02870" name="l02870"></a><span class="lineno"> 2870</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02871" name="l02871"></a><span class="lineno"> 2871</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02872" name="l02872"></a><span class="lineno"> 2872</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02873" name="l02873"></a><span class="lineno"> 2873</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02874" name="l02874"></a><span class="lineno"> 2874</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02875" name="l02875"></a><span class="lineno"> 2875</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02876" name="l02876"></a><span class="lineno"> 2876</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02877" name="l02877"></a><span class="lineno"> 2877</span> </div>
+<div class="line"><a id="l02878" name="l02878"></a><span class="lineno"> 2878</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l02879" name="l02879"></a><span class="lineno"> 2879</span>        <span class="keywordflow">if</span> (kl &lt; 0 .or. ku &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02880" name="l02880"></a><span class="lineno"> 2880</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02881" name="l02881"></a><span class="lineno"> 2881</span>                <span class="stringliteral">&quot;The bandwidth dimensions must not be negative-valued.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02882" name="l02882"></a><span class="lineno"> 2882</span>                la_invalid_input_error)</div>
+<div class="line"><a id="l02883" name="l02883"></a><span class="lineno"> 2883</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02884" name="l02884"></a><span class="lineno"> 2884</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02885" name="l02885"></a><span class="lineno"> 2885</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 1) /= kl + ku + 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02886" name="l02886"></a><span class="lineno"> 2886</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_cmplx&quot;</span>, <span class="stringliteral">&quot;The size of &quot;</span> // &amp;</div>
+<div class="line"><a id="l02887" name="l02887"></a><span class="lineno"> 2887</span>                <span class="stringliteral">&quot;the input matrix does not match the specified bandwidth.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02888" name="l02888"></a><span class="lineno"> 2888</span>                la_matrix_format_error)</div>
+<div class="line"><a id="l02889" name="l02889"></a><span class="lineno"> 2889</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02890" name="l02890"></a><span class="lineno"> 2890</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02891" name="l02891"></a><span class="lineno"> 2891</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= m .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02892" name="l02892"></a><span class="lineno"> 2892</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_dense_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02893" name="l02893"></a><span class="lineno"> 2893</span>                <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02894" name="l02894"></a><span class="lineno"> 2894</span>                la_array_size_error)</div>
+<div class="line"><a id="l02895" name="l02895"></a><span class="lineno"> 2895</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02896" name="l02896"></a><span class="lineno"> 2896</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02897" name="l02897"></a><span class="lineno"> 2897</span> </div>
+<div class="line"><a id="l02898" name="l02898"></a><span class="lineno"> 2898</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02899" name="l02899"></a><span class="lineno"> 2899</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02900" name="l02900"></a><span class="lineno"> 2900</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02901" name="l02901"></a><span class="lineno"> 2901</span>            i1 = max(1, j - ku)</div>
+<div class="line"><a id="l02902" name="l02902"></a><span class="lineno"> 2902</span>            i2 = min(m, j + kl)</div>
+<div class="line"><a id="l02903" name="l02903"></a><span class="lineno"> 2903</span>            x(:i1-1,j) = zero</div>
+<div class="line"><a id="l02904" name="l02904"></a><span class="lineno"> 2904</span>            <span class="keywordflow">do</span> i = i1, i2</div>
+<div class="line"><a id="l02905" name="l02905"></a><span class="lineno"> 2905</span>                x(i, j) = a(k + i, j)</div>
+<div class="line"><a id="l02906" name="l02906"></a><span class="lineno"> 2906</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02907" name="l02907"></a><span class="lineno"> 2907</span>            x(i2+1:,j) = zero</div>
+<div class="line"><a id="l02908" name="l02908"></a><span class="lineno"> 2908</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02909" name="l02909"></a><span class="lineno"> 2909</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02910" name="l02910"></a><span class="lineno"> 2910</span> </div>
+<div class="line"><a id="l02911" name="l02911"></a><span class="lineno"> 2911</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02912" name="l02912"></a><span class="lineno"> 2912</span>    <span class="keyword">module</span> subroutine dense_to_banded_dbl(a, kl, ku, x, err)</div>
+<div class="line"><a id="l02913" name="l02913"></a><span class="lineno"> 2913</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02914" name="l02914"></a><span class="lineno"> 2914</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02915" name="l02915"></a><span class="lineno"> 2915</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02916" name="l02916"></a><span class="lineno"> 2916</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l02917" name="l02917"></a><span class="lineno"> 2917</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02918" name="l02918"></a><span class="lineno"> 2918</span> </div>
+<div class="line"><a id="l02919" name="l02919"></a><span class="lineno"> 2919</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02920" name="l02920"></a><span class="lineno"> 2920</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, mm, flag</div>
+<div class="line"><a id="l02921" name="l02921"></a><span class="lineno"> 2921</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02922" name="l02922"></a><span class="lineno"> 2922</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02923" name="l02923"></a><span class="lineno"> 2923</span>        </div>
+<div class="line"><a id="l02924" name="l02924"></a><span class="lineno"> 2924</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02925" name="l02925"></a><span class="lineno"> 2925</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02926" name="l02926"></a><span class="lineno"> 2926</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02927" name="l02927"></a><span class="lineno"> 2927</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02928" name="l02928"></a><span class="lineno"> 2928</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02929" name="l02929"></a><span class="lineno"> 2929</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02930" name="l02930"></a><span class="lineno"> 2930</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l02931" name="l02931"></a><span class="lineno"> 2931</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02932" name="l02932"></a><span class="lineno"> 2932</span>        mm = kl + ku + 1</div>
+<div class="line"><a id="l02933" name="l02933"></a><span class="lineno"> 2933</span> </div>
+<div class="line"><a id="l02934" name="l02934"></a><span class="lineno"> 2934</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02935" name="l02935"></a><span class="lineno"> 2935</span>        <span class="keywordflow">if</span> (kl &lt; 0 .or. ku &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02936" name="l02936"></a><span class="lineno"> 2936</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;dense_to_banded_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02937" name="l02937"></a><span class="lineno"> 2937</span>                <span class="stringliteral">&quot;The bandwidth dimensions must not be negative-valued.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02938" name="l02938"></a><span class="lineno"> 2938</span>                la_invalid_input_error)</div>
+<div class="line"><a id="l02939" name="l02939"></a><span class="lineno"> 2939</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02940" name="l02940"></a><span class="lineno"> 2940</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02941" name="l02941"></a><span class="lineno"> 2941</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= mm .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02942" name="l02942"></a><span class="lineno"> 2942</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;dense_to_banded_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l02943" name="l02943"></a><span class="lineno"> 2943</span>                <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02944" name="l02944"></a><span class="lineno"> 2944</span>                la_array_size_error)</div>
+<div class="line"><a id="l02945" name="l02945"></a><span class="lineno"> 2945</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02946" name="l02946"></a><span class="lineno"> 2946</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02947" name="l02947"></a><span class="lineno"> 2947</span> </div>
+<div class="line"><a id="l02948" name="l02948"></a><span class="lineno"> 2948</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02949" name="l02949"></a><span class="lineno"> 2949</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02950" name="l02950"></a><span class="lineno"> 2950</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02951" name="l02951"></a><span class="lineno"> 2951</span>            <span class="keywordflow">do</span> i = max(1, j - ku), min(m, j + kl)</div>
+<div class="line"><a id="l02952" name="l02952"></a><span class="lineno"> 2952</span>                x(k + i, j) = a(i,j)</div>
+<div class="line"><a id="l02953" name="l02953"></a><span class="lineno"> 2953</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l02954" name="l02954"></a><span class="lineno"> 2954</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l02955" name="l02955"></a><span class="lineno"> 2955</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l02956" name="l02956"></a><span class="lineno"> 2956</span> </div>
+<div class="line"><a id="l02957" name="l02957"></a><span class="lineno"> 2957</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l02958" name="l02958"></a><span class="lineno"> 2958</span>    <span class="keyword">module</span> subroutine dense_to_banded_cmplx(a, kl, ku, x, err)</div>
+<div class="line"><a id="l02959" name="l02959"></a><span class="lineno"> 2959</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l02960" name="l02960"></a><span class="lineno"> 2960</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l02961" name="l02961"></a><span class="lineno"> 2961</span>        <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: kl, ku</div>
+<div class="line"><a id="l02962" name="l02962"></a><span class="lineno"> 2962</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l02963" name="l02963"></a><span class="lineno"> 2963</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l02964" name="l02964"></a><span class="lineno"> 2964</span> </div>
+<div class="line"><a id="l02965" name="l02965"></a><span class="lineno"> 2965</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l02966" name="l02966"></a><span class="lineno"> 2966</span>        <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, mm, flag</div>
+<div class="line"><a id="l02967" name="l02967"></a><span class="lineno"> 2967</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l02968" name="l02968"></a><span class="lineno"> 2968</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l02969" name="l02969"></a><span class="lineno"> 2969</span>        </div>
+<div class="line"><a id="l02970" name="l02970"></a><span class="lineno"> 2970</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l02971" name="l02971"></a><span class="lineno"> 2971</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02972" name="l02972"></a><span class="lineno"> 2972</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l02973" name="l02973"></a><span class="lineno"> 2973</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l02974" name="l02974"></a><span class="lineno"> 2974</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l02975" name="l02975"></a><span class="lineno"> 2975</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02976" name="l02976"></a><span class="lineno"> 2976</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l02977" name="l02977"></a><span class="lineno"> 2977</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l02978" name="l02978"></a><span class="lineno"> 2978</span>        mm = kl + ku + 1</div>
+<div class="line"><a id="l02979" name="l02979"></a><span class="lineno"> 2979</span> </div>
+<div class="line"><a id="l02980" name="l02980"></a><span class="lineno"> 2980</span>        <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l02981" name="l02981"></a><span class="lineno"> 2981</span>        <span class="keywordflow">if</span> (kl &lt; 0 .or. ku &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02982" name="l02982"></a><span class="lineno"> 2982</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;dense_to_banded_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02983" name="l02983"></a><span class="lineno"> 2983</span>                <span class="stringliteral">&quot;The bandwidth dimensions must not be negative-valued.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02984" name="l02984"></a><span class="lineno"> 2984</span>                la_invalid_input_error)</div>
+<div class="line"><a id="l02985" name="l02985"></a><span class="lineno"> 2985</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02986" name="l02986"></a><span class="lineno"> 2986</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02987" name="l02987"></a><span class="lineno"> 2987</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= mm .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l02988" name="l02988"></a><span class="lineno"> 2988</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;dense_to_banded_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l02989" name="l02989"></a><span class="lineno"> 2989</span>                <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l02990" name="l02990"></a><span class="lineno"> 2990</span>                la_array_size_error)</div>
+<div class="line"><a id="l02991" name="l02991"></a><span class="lineno"> 2991</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l02992" name="l02992"></a><span class="lineno"> 2992</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l02993" name="l02993"></a><span class="lineno"> 2993</span> </div>
+<div class="line"><a id="l02994" name="l02994"></a><span class="lineno"> 2994</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l02995" name="l02995"></a><span class="lineno"> 2995</span>        <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l02996" name="l02996"></a><span class="lineno"> 2996</span>            k = ku + 1 - j</div>
+<div class="line"><a id="l02997" name="l02997"></a><span class="lineno"> 2997</span>            <span class="keywordflow">do</span> i = max(1, j - ku), min(m, j + kl)</div>
+<div class="line"><a id="l02998" name="l02998"></a><span class="lineno"> 2998</span>                x(k + i, j) = a(i,j)</div>
+<div class="line"><a id="l02999" name="l02999"></a><span class="lineno"> 2999</span><span class="keywordflow">            end do</span></div>
+<div class="line"><a id="l03000" name="l03000"></a><span class="lineno"> 3000</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l03001" name="l03001"></a><span class="lineno"> 3001</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l03002" name="l03002"></a><span class="lineno"> 3002</span> </div>
+<div class="line"><a id="l03003" name="l03003"></a><span class="lineno"> 3003</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l03004" name="l03004"></a><span class="lineno"> 3004</span>    <span class="keyword">module</span> subroutine extract_diagonal_dbl(a, diag, err)</div>
+<div class="line"><a id="l03005" name="l03005"></a><span class="lineno"> 3005</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l03006" name="l03006"></a><span class="lineno"> 3006</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l03007" name="l03007"></a><span class="lineno"> 3007</span><span class="keywordtype">        real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l03008" name="l03008"></a><span class="lineno"> 3008</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l03009" name="l03009"></a><span class="lineno"> 3009</span> </div>
+<div class="line"><a id="l03010" name="l03010"></a><span class="lineno"> 3010</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l03011" name="l03011"></a><span class="lineno"> 3011</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
+<div class="line"><a id="l03012" name="l03012"></a><span class="lineno"> 3012</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l03013" name="l03013"></a><span class="lineno"> 3013</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l03014" name="l03014"></a><span class="lineno"> 3014</span>        </div>
+<div class="line"><a id="l03015" name="l03015"></a><span class="lineno"> 3015</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l03016" name="l03016"></a><span class="lineno"> 3016</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l03017" name="l03017"></a><span class="lineno"> 3017</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l03018" name="l03018"></a><span class="lineno"> 3018</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l03019" name="l03019"></a><span class="lineno"> 3019</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l03020" name="l03020"></a><span class="lineno"> 3020</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l03021" name="l03021"></a><span class="lineno"> 3021</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l03022" name="l03022"></a><span class="lineno"> 3022</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l03023" name="l03023"></a><span class="lineno"> 3023</span>        mn = min(m, n)</div>
+<div class="line"><a id="l03024" name="l03024"></a><span class="lineno"> 3024</span> </div>
+<div class="line"><a id="l03025" name="l03025"></a><span class="lineno"> 3025</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l03026" name="l03026"></a><span class="lineno"> 3026</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(diag) /= mn) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l03027" name="l03027"></a><span class="lineno"> 3027</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;extract_diagonal_dbl&quot;</span>, &amp;</div>
+<div class="line"><a id="l03028" name="l03028"></a><span class="lineno"> 3028</span>                <span class="stringliteral">&quot;The is expected to have MIN(M, N) elements.&quot;</span>, &amp;</div>
+<div class="line"><a id="l03029" name="l03029"></a><span class="lineno"> 3029</span>                la_array_size_error)</div>
+<div class="line"><a id="l03030" name="l03030"></a><span class="lineno"> 3030</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l03031" name="l03031"></a><span class="lineno"> 3031</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l03032" name="l03032"></a><span class="lineno"> 3032</span> </div>
+<div class="line"><a id="l03033" name="l03033"></a><span class="lineno"> 3033</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l03034" name="l03034"></a><span class="lineno"> 3034</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l03035" name="l03035"></a><span class="lineno"> 3035</span>            diag(i) = a(i,i)</div>
+<div class="line"><a id="l03036" name="l03036"></a><span class="lineno"> 3036</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l03037" name="l03037"></a><span class="lineno"> 3037</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l03038" name="l03038"></a><span class="lineno"> 3038</span> </div>
+<div class="line"><a id="l03039" name="l03039"></a><span class="lineno"> 3039</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l03040" name="l03040"></a><span class="lineno"> 3040</span>    <span class="keyword">module</span> subroutine extract_diagonal_cmplx(a, diag, err)</div>
+<div class="line"><a id="l03041" name="l03041"></a><span class="lineno"> 3041</span>        <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l03042" name="l03042"></a><span class="lineno"> 3042</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l03043" name="l03043"></a><span class="lineno"> 3043</span>        <span class="keywordtype">complex(real64)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l03044" name="l03044"></a><span class="lineno"> 3044</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l03045" name="l03045"></a><span class="lineno"> 3045</span> </div>
+<div class="line"><a id="l03046" name="l03046"></a><span class="lineno"> 3046</span>        <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l03047" name="l03047"></a><span class="lineno"> 3047</span>        <span class="keywordtype">integer(int32)</span> :: i, m, n, mn</div>
+<div class="line"><a id="l03048" name="l03048"></a><span class="lineno"> 3048</span>        <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l03049" name="l03049"></a><span class="lineno"> 3049</span>        <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l03050" name="l03050"></a><span class="lineno"> 3050</span>        </div>
+<div class="line"><a id="l03051" name="l03051"></a><span class="lineno"> 3051</span>        <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l03052" name="l03052"></a><span class="lineno"> 3052</span>        <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l03053" name="l03053"></a><span class="lineno"> 3053</span>            errmgr =&gt; err</div>
+<div class="line"><a id="l03054" name="l03054"></a><span class="lineno"> 3054</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l03055" name="l03055"></a><span class="lineno"> 3055</span>            errmgr =&gt; deferr</div>
+<div class="line"><a id="l03056" name="l03056"></a><span class="lineno"> 3056</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l03057" name="l03057"></a><span class="lineno"> 3057</span>        m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l03058" name="l03058"></a><span class="lineno"> 3058</span>        n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l03059" name="l03059"></a><span class="lineno"> 3059</span>        mn = min(m, n)</div>
+<div class="line"><a id="l03060" name="l03060"></a><span class="lineno"> 3060</span> </div>
+<div class="line"><a id="l03061" name="l03061"></a><span class="lineno"> 3061</span>        <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l03062" name="l03062"></a><span class="lineno"> 3062</span>        <span class="keywordflow">if</span> (<span class="keyword">size</span>(diag) /= mn) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l03063" name="l03063"></a><span class="lineno"> 3063</span>            <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;extract_diagonal_cmplx&quot;</span>, &amp;</div>
+<div class="line"><a id="l03064" name="l03064"></a><span class="lineno"> 3064</span>                <span class="stringliteral">&quot;The is expected to have MIN(M, N) elements.&quot;</span>, &amp;</div>
+<div class="line"><a id="l03065" name="l03065"></a><span class="lineno"> 3065</span>                la_array_size_error)</div>
+<div class="line"><a id="l03066" name="l03066"></a><span class="lineno"> 3066</span>            <span class="keywordflow">return</span></div>
+<div class="line"><a id="l03067" name="l03067"></a><span class="lineno"> 3067</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l03068" name="l03068"></a><span class="lineno"> 3068</span> </div>
+<div class="line"><a id="l03069" name="l03069"></a><span class="lineno"> 3069</span>        <span class="comment">! Process</span></div>
+<div class="line"><a id="l03070" name="l03070"></a><span class="lineno"> 3070</span>        <span class="keywordflow">do</span> i = 1, mn</div>
+<div class="line"><a id="l03071" name="l03071"></a><span class="lineno"> 3071</span>            diag(i) = a(i,i)</div>
+<div class="line"><a id="l03072" name="l03072"></a><span class="lineno"> 3072</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l03073" name="l03073"></a><span class="lineno"> 3073</span>    <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l03074" name="l03074"></a><span class="lineno"> 3074</span> </div>
+<div class="line"><a id="l03075" name="l03075"></a><span class="lineno"> 3075</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l03076" name="l03076"></a><span class="lineno"> 3076</span><span class="keyword">end </span>submodule</div>
 <div class="ttc" id="ainterfaceblas_1_1dgbmv_html"><div class="ttname"><a href="interfaceblas_1_1dgbmv.html">blas::dgbmv</a></div><div class="ttdef"><b>Definition</b> <a href="blas_8f90_source.html#l00093">blas.f90:93</a></div></div>
 <div class="ttc" id="ainterfaceblas_1_1dgemm_html"><div class="ttname"><a href="interfaceblas_1_1dgemm.html">blas::dgemm</a></div><div class="ttdef"><b>Definition</b> <a href="blas_8f90_source.html#l00006">blas.f90:6</a></div></div>
 <div class="ttc" id="ainterfaceblas_1_1dgemv_html"><div class="ttname"><a href="interfaceblas_1_1dgemv.html">blas::dgemv</a></div><div class="ttdef"><b>Definition</b> <a href="blas_8f90_source.html#l00015">blas.f90:15</a></div></div>
diff --git a/docs/html/linalg__eigen_8f90_source.html b/docs/html/linalg__eigen_8f90_source.html
index da0a0979..e3b1f894 100644
--- a/docs/html/linalg__eigen_8f90_source.html
+++ b/docs/html/linalg__eigen_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg__factor_8f90_source.html b/docs/html/linalg__factor_8f90_source.html
index b30a20e3..dfeafc43 100644
--- a/docs/html/linalg__factor_8f90_source.html
+++ b/docs/html/linalg__factor_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg__solve_8f90_source.html b/docs/html/linalg__solve_8f90_source.html
index cfab1b87..3e22ea52 100644
--- a/docs/html/linalg__solve_8f90_source.html
+++ b/docs/html/linalg__solve_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg__sorting_8f90_source.html b/docs/html/linalg__sorting_8f90_source.html
index d267e3aa..98b9dd10 100644
--- a/docs/html/linalg__sorting_8f90_source.html
+++ b/docs/html/linalg__sorting_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/linalg__sparse_8f90_source.html b/docs/html/linalg__sparse_8f90_source.html
new file mode 100644
index 00000000..d9b581a8
--- /dev/null
+++ b/docs/html/linalg__sparse_8f90_source.html
@@ -0,0 +1,1575 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: D:/Code/linalg/src/linalg_sparse.f90 Source File</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() { codefold.init(0); });
+/* @license-end */
+</script>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('linalg__sparse_8f90_source.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg_sparse.f90</div></div>
+</div><!--header-->
+<div class="contents">
+<div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span>submodule(<a class="code hl_namespace" href="namespacelinalg.html">linalg</a>) linalg_sparse</div>
+<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span>    <span class="keywordtype">use </span><a class="code hl_namespace" href="namespacesparskit.html">sparskit</a></div>
+<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span>    <span class="keywordtype">use </span><a class="code hl_namespace" href="namespaceblas.html">blas</a></div>
+<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span>    <span class="keywordtype">implicit none</span></div>
+<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span><span class="keyword">contains</span></div>
+<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span><span class="comment">! CSR ROUTINES</span></div>
+<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span><span class="keyword">module</span> function csr_get_element(this, i, j) result(rst)</div>
+<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: this</div>
+<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: i, j</div>
+<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span><span class="keywordtype">    real</span>(real64) :: rst</div>
+<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span> </div>
+<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span>    <span class="keywordtype">integer(int32)</span> :: iadd</div>
+<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span>    <span class="keywordtype">logical</span> :: sorted</div>
+<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span> </div>
+<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span>    sorted = .false.</div>
+<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span> </div>
+<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span>    <span class="keywordflow">if</span> (.not.<span class="keyword">allocated</span>(this%row_indices) .or. &amp;</div>
+<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span>        .not.<span class="keyword">allocated</span>(this%column_indices) .or. &amp;</div>
+<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span>        .not.<span class="keyword">allocated</span>(this%values)) &amp;</div>
+<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span>    <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span>        rst = 0.0d0</div>
+<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span>    rst = <a class="code hl_interface" href="interfacesparskit_1_1getelm.html">getelm</a>(i, j, this%values, this%column_indices, this%row_indices, &amp;</div>
+<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span>        iadd, sorted)</div>
+<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span> </div>
+<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span><span class="keywordtype">pure</span> <span class="keyword">module</span> function csr_size(x, dim) result(rst)</div>
+<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: dim</div>
+<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span>    <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span> </div>
+<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span>    <span class="keywordflow">select case</span> (dim)</div>
+<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span>    <span class="keywordflow">case</span> (1)</div>
+<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span>        <span class="keywordflow">if</span> (<span class="keyword">allocated</span>(x%row_indices)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span>            rst = <span class="keyword">size</span>(x%row_indices) - 1</div>
+<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span>            rst = 0</div>
+<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span>    <span class="keywordflow">case</span> (2)</div>
+<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span>        rst = x%n</div>
+<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span><span class="keywordflow">    case default</span></div>
+<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span>        rst = 0</div>
+<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span><span class="keywordflow">    end select</span></div>
+<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span> </div>
+<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span><span class="keywordtype">pure</span> <span class="keyword">module</span> function nonzero_count_csr(x) result(rst)</div>
+<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>    <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span> </div>
+<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span>    <span class="keywordflow">if</span> (<span class="keyword">allocated</span>(x%values)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>        rst = <span class="keyword">size</span>(x%values)</div>
+<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>        rst = 0</div>
+<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span> </div>
+<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span><span class="keyword">module</span> function create_empty_csr_matrix(m, n, nnz, err) result(rst)</div>
+<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span> </div>
+<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span>    <span class="keywordtype">integer(int32)</span> :: flag, m1</div>
+<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span>    </div>
+<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span>    m1 = m + 1</div>
+<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span> </div>
+<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span>    <span class="keywordflow">if</span> (m &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_csr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span>            <span class="stringliteral">&quot;The number of rows must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00096" name="l00096"></a><span class="lineno">   96</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span>    <span class="keywordflow">if</span> (n &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_csr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span>            <span class="stringliteral">&quot;The number of columns must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span>    <span class="keywordflow">if</span> (nnz &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_csr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span>            <span class="stringliteral">&quot;The number of non-zero values must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span> </div>
+<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>    <span class="comment">! Allocation</span></div>
+<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span>    rst%n = n</div>
+<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>    <span class="keyword">allocate</span>(rst%row_indices(m1), rst%column_indices(nnz), source = 0, &amp;</div>
+<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span>        stat = flag)</div>
+<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst%values(nnz), source = 0.0d0, stat = flag)</div>
+<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_csr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>            <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00119" name="l00119"></a><span class="lineno">  119</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00120" name="l00120"></a><span class="lineno">  120</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00121" name="l00121"></a><span class="lineno">  121</span> </div>
+<div class="line"><a id="l00122" name="l00122"></a><span class="lineno">  122</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00123" name="l00123"></a><span class="lineno">  123</span><span class="keyword">module</span> function dense_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l00124" name="l00124"></a><span class="lineno">  124</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span> </div>
+<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span>    <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, nnz</div>
+<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span><span class="keywordtype">    real</span>(real64) :: t</div>
+<div class="line"><a id="l00132" name="l00132"></a><span class="lineno">  132</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00133" name="l00133"></a><span class="lineno">  133</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00134" name="l00134"></a><span class="lineno">  134</span>    </div>
+<div class="line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00138" name="l00138"></a><span class="lineno">  138</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00139" name="l00139"></a><span class="lineno">  139</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00140" name="l00140"></a><span class="lineno">  140</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00141" name="l00141"></a><span class="lineno">  141</span>    t = 2.0d0 * epsilon(t)</div>
+<div class="line"><a id="l00142" name="l00142"></a><span class="lineno">  142</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00143" name="l00143"></a><span class="lineno">  143</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00144" name="l00144"></a><span class="lineno">  144</span>    nnz = 0</div>
+<div class="line"><a id="l00145" name="l00145"></a><span class="lineno">  145</span> </div>
+<div class="line"><a id="l00146" name="l00146"></a><span class="lineno">  146</span>    <span class="comment">! Determine how many non-zero values exist</span></div>
+<div class="line"><a id="l00147" name="l00147"></a><span class="lineno">  147</span>    <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l00148" name="l00148"></a><span class="lineno">  148</span>        <span class="keywordflow">do</span> i = 1, m</div>
+<div class="line"><a id="l00149" name="l00149"></a><span class="lineno">  149</span>            <span class="keywordflow">if</span> (abs(a(i,j)) &gt; t) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00150" name="l00150"></a><span class="lineno">  150</span>                nnz = nnz + 1</div>
+<div class="line"><a id="l00151" name="l00151"></a><span class="lineno">  151</span><span class="keywordflow">            end if</span></div>
+<div class="line"><a id="l00152" name="l00152"></a><span class="lineno">  152</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00153" name="l00153"></a><span class="lineno">  153</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00154" name="l00154"></a><span class="lineno">  154</span> </div>
+<div class="line"><a id="l00155" name="l00155"></a><span class="lineno">  155</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l00156" name="l00156"></a><span class="lineno">  156</span>    rst = create_empty_csr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l00157" name="l00157"></a><span class="lineno">  157</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00158" name="l00158"></a><span class="lineno">  158</span> </div>
+<div class="line"><a id="l00159" name="l00159"></a><span class="lineno">  159</span>    <span class="comment">! Store the non-zero values</span></div>
+<div class="line"><a id="l00160" name="l00160"></a><span class="lineno">  160</span>    k = 1</div>
+<div class="line"><a id="l00161" name="l00161"></a><span class="lineno">  161</span>    rst%row_indices(1) = 1</div>
+<div class="line"><a id="l00162" name="l00162"></a><span class="lineno">  162</span>    <span class="keywordflow">do</span> i = 1, m</div>
+<div class="line"><a id="l00163" name="l00163"></a><span class="lineno">  163</span>        inner_loop : <span class="keywordflow">do</span> j = 1, n</div>
+<div class="line"><a id="l00164" name="l00164"></a><span class="lineno">  164</span>            <span class="keywordflow">if</span> (abs(a(i,j)) &lt; t) cycle inner_loop</div>
+<div class="line"><a id="l00165" name="l00165"></a><span class="lineno">  165</span>            rst%column_indices(k) = j</div>
+<div class="line"><a id="l00166" name="l00166"></a><span class="lineno">  166</span>            rst%values(k) = a(i,j)</div>
+<div class="line"><a id="l00167" name="l00167"></a><span class="lineno">  167</span>            k = k + 1</div>
+<div class="line"><a id="l00168" name="l00168"></a><span class="lineno">  168</span><span class="keywordflow">        end do</span> inner_loop</div>
+<div class="line"><a id="l00169" name="l00169"></a><span class="lineno">  169</span>        rst%row_indices(i+1) = k</div>
+<div class="line"><a id="l00170" name="l00170"></a><span class="lineno">  170</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00171" name="l00171"></a><span class="lineno">  171</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00172" name="l00172"></a><span class="lineno">  172</span> </div>
+<div class="line"><a id="l00173" name="l00173"></a><span class="lineno">  173</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00174" name="l00174"></a><span class="lineno">  174</span><span class="keyword">module</span> function banded_to_csr(m, ml, mu, a, err) result(rst)</div>
+<div class="line"><a id="l00175" name="l00175"></a><span class="lineno">  175</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00176" name="l00176"></a><span class="lineno">  176</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, ml, mu</div>
+<div class="line"><a id="l00177" name="l00177"></a><span class="lineno">  177</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l00178" name="l00178"></a><span class="lineno">  178</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00179" name="l00179"></a><span class="lineno">  179</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00180" name="l00180"></a><span class="lineno">  180</span> </div>
+<div class="line"><a id="l00181" name="l00181"></a><span class="lineno">  181</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00182" name="l00182"></a><span class="lineno">  182</span>    <span class="keywordtype">integer(int32)</span> :: n, nnz, flag, lowd, lda</div>
+<div class="line"><a id="l00183" name="l00183"></a><span class="lineno">  183</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: ia, ja</div>
+<div class="line"><a id="l00184" name="l00184"></a><span class="lineno">  184</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: v</div>
+<div class="line"><a id="l00185" name="l00185"></a><span class="lineno">  185</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00186" name="l00186"></a><span class="lineno">  186</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00187" name="l00187"></a><span class="lineno">  187</span>    </div>
+<div class="line"><a id="l00188" name="l00188"></a><span class="lineno">  188</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00189" name="l00189"></a><span class="lineno">  189</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00191" name="l00191"></a><span class="lineno">  191</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>    lda = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span>    nnz = lda * n</div>
+<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span>    lowd = ml + mu + 1</div>
+<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span> </div>
+<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    <span class="keywordflow">if</span> (ml &lt; 0 .or. mu &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_csr&quot;</span>, <span class="stringliteral">&quot;The bandwidth &quot;</span> // &amp;</div>
+<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span>            <span class="stringliteral">&quot;dimensions cannot be negative.&quot;</span>, la_invalid_input_error)</div>
+<div class="line"><a id="l00203" name="l00203"></a><span class="lineno">  203</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00204" name="l00204"></a><span class="lineno">  204</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00205" name="l00205"></a><span class="lineno">  205</span>    <span class="keywordflow">if</span> (lda /= ml + mu + 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00206" name="l00206"></a><span class="lineno">  206</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_csr&quot;</span>, <span class="stringliteral">&quot;The number of rows in &quot;</span> // &amp;</div>
+<div class="line"><a id="l00207" name="l00207"></a><span class="lineno">  207</span>            <span class="stringliteral">&quot;the banded matrix does not match the supplied bandwidth &quot;</span> // &amp;</div>
+<div class="line"><a id="l00208" name="l00208"></a><span class="lineno">  208</span>            <span class="stringliteral">&quot;dimensions.&quot;</span>, la_matrix_format_error)</div>
+<div class="line"><a id="l00209" name="l00209"></a><span class="lineno">  209</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00210" name="l00210"></a><span class="lineno">  210</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00211" name="l00211"></a><span class="lineno">  211</span> </div>
+<div class="line"><a id="l00212" name="l00212"></a><span class="lineno">  212</span>    <span class="comment">! Allocation</span></div>
+<div class="line"><a id="l00213" name="l00213"></a><span class="lineno">  213</span>    <span class="keyword">allocate</span>(ia(m + 1), ja(nnz), v(nnz), stat = flag)</div>
+<div class="line"><a id="l00214" name="l00214"></a><span class="lineno">  214</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00215" name="l00215"></a><span class="lineno">  215</span> </div>
+<div class="line"><a id="l00216" name="l00216"></a><span class="lineno">  216</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00217" name="l00217"></a><span class="lineno">  217</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1bndcsr.html">bndcsr</a>(m, a, lda, lowd, ml, mu, v, ja, ia, nnz, flag)</div>
+<div class="line"><a id="l00218" name="l00218"></a><span class="lineno">  218</span>    nnz = ia(m + 1) - 1</div>
+<div class="line"><a id="l00219" name="l00219"></a><span class="lineno">  219</span> </div>
+<div class="line"><a id="l00220" name="l00220"></a><span class="lineno">  220</span>    <span class="comment">! Put into the sparse matrix structure</span></div>
+<div class="line"><a id="l00221" name="l00221"></a><span class="lineno">  221</span>    <span class="keyword">allocate</span>(rst%row_indices(m + 1), source = ia, stat = flag)</div>
+<div class="line"><a id="l00222" name="l00222"></a><span class="lineno">  222</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst%column_indices(nnz), source = ja(:nnz), &amp;</div>
+<div class="line"><a id="l00223" name="l00223"></a><span class="lineno">  223</span>        stat = flag)</div>
+<div class="line"><a id="l00224" name="l00224"></a><span class="lineno">  224</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst%values(nnz), source = v(:nnz), stat = flag)</div>
+<div class="line"><a id="l00225" name="l00225"></a><span class="lineno">  225</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00226" name="l00226"></a><span class="lineno">  226</span>    rst%n = n</div>
+<div class="line"><a id="l00227" name="l00227"></a><span class="lineno">  227</span> </div>
+<div class="line"><a id="l00228" name="l00228"></a><span class="lineno">  228</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l00229" name="l00229"></a><span class="lineno">  229</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00230" name="l00230"></a><span class="lineno">  230</span> </div>
+<div class="line"><a id="l00231" name="l00231"></a><span class="lineno">  231</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l00232" name="l00232"></a><span class="lineno">  232</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00233" name="l00233"></a><span class="lineno">  233</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;banded_to_csr&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00234" name="l00234"></a><span class="lineno">  234</span>        la_out_of_memory_error)</div>
+<div class="line"><a id="l00235" name="l00235"></a><span class="lineno">  235</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00236" name="l00236"></a><span class="lineno">  236</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00237" name="l00237"></a><span class="lineno">  237</span> </div>
+<div class="line"><a id="l00238" name="l00238"></a><span class="lineno">  238</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00239" name="l00239"></a><span class="lineno">  239</span><span class="keyword">module</span> subroutine csr_to_dense(a, x, err)</div>
+<div class="line"><a id="l00240" name="l00240"></a><span class="lineno">  240</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00241" name="l00241"></a><span class="lineno">  241</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00242" name="l00242"></a><span class="lineno">  242</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l00243" name="l00243"></a><span class="lineno">  243</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00244" name="l00244"></a><span class="lineno">  244</span> </div>
+<div class="line"><a id="l00245" name="l00245"></a><span class="lineno">  245</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00246" name="l00246"></a><span class="lineno">  246</span>    <span class="keywordtype">integer(int32)</span> :: i, j, k, m, n, nnz, flag</div>
+<div class="line"><a id="l00247" name="l00247"></a><span class="lineno">  247</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00248" name="l00248"></a><span class="lineno">  248</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00249" name="l00249"></a><span class="lineno">  249</span>    </div>
+<div class="line"><a id="l00250" name="l00250"></a><span class="lineno">  250</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00251" name="l00251"></a><span class="lineno">  251</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00252" name="l00252"></a><span class="lineno">  252</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00253" name="l00253"></a><span class="lineno">  253</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00254" name="l00254"></a><span class="lineno">  254</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00255" name="l00255"></a><span class="lineno">  255</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00256" name="l00256"></a><span class="lineno">  256</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00257" name="l00257"></a><span class="lineno">  257</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00258" name="l00258"></a><span class="lineno">  258</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00259" name="l00259"></a><span class="lineno">  259</span>    </div>
+<div class="line"><a id="l00260" name="l00260"></a><span class="lineno">  260</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l00261" name="l00261"></a><span class="lineno">  261</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= m .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00262" name="l00262"></a><span class="lineno">  262</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_to_dense&quot;</span>, &amp;</div>
+<div class="line"><a id="l00263" name="l00263"></a><span class="lineno">  263</span>            <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00264" name="l00264"></a><span class="lineno">  264</span>            la_array_size_error)</div>
+<div class="line"><a id="l00265" name="l00265"></a><span class="lineno">  265</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00266" name="l00266"></a><span class="lineno">  266</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00267" name="l00267"></a><span class="lineno">  267</span> </div>
+<div class="line"><a id="l00268" name="l00268"></a><span class="lineno">  268</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00269" name="l00269"></a><span class="lineno">  269</span>    <span class="keywordflow">do</span> i = 1, m</div>
+<div class="line"><a id="l00270" name="l00270"></a><span class="lineno">  270</span>        x(i,:) = 0.0d0</div>
+<div class="line"><a id="l00271" name="l00271"></a><span class="lineno">  271</span>        <span class="keywordflow">do</span> k = a%row_indices(i), a%row_indices(i+1) - 1</div>
+<div class="line"><a id="l00272" name="l00272"></a><span class="lineno">  272</span>            j = a%column_indices(k)</div>
+<div class="line"><a id="l00273" name="l00273"></a><span class="lineno">  273</span>            x(i,j) = a%values(k)</div>
+<div class="line"><a id="l00274" name="l00274"></a><span class="lineno">  274</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00275" name="l00275"></a><span class="lineno">  275</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00276" name="l00276"></a><span class="lineno">  276</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00277" name="l00277"></a><span class="lineno">  277</span> </div>
+<div class="line"><a id="l00278" name="l00278"></a><span class="lineno">  278</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00279" name="l00279"></a><span class="lineno">  279</span><span class="keyword">module</span> function diag_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l00280" name="l00280"></a><span class="lineno">  280</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00281" name="l00281"></a><span class="lineno">  281</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: a</div>
+<div class="line"><a id="l00282" name="l00282"></a><span class="lineno">  282</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00283" name="l00283"></a><span class="lineno">  283</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00284" name="l00284"></a><span class="lineno">  284</span> </div>
+<div class="line"><a id="l00285" name="l00285"></a><span class="lineno">  285</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00286" name="l00286"></a><span class="lineno">  286</span>    <span class="keywordtype">integer(int32)</span> :: i, n, n1, flag</div>
+<div class="line"><a id="l00287" name="l00287"></a><span class="lineno">  287</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00288" name="l00288"></a><span class="lineno">  288</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00289" name="l00289"></a><span class="lineno">  289</span>    </div>
+<div class="line"><a id="l00290" name="l00290"></a><span class="lineno">  290</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00291" name="l00291"></a><span class="lineno">  291</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00292" name="l00292"></a><span class="lineno">  292</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00293" name="l00293"></a><span class="lineno">  293</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00294" name="l00294"></a><span class="lineno">  294</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00295" name="l00295"></a><span class="lineno">  295</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00296" name="l00296"></a><span class="lineno">  296</span>    n = <span class="keyword">size</span>(a)</div>
+<div class="line"><a id="l00297" name="l00297"></a><span class="lineno">  297</span>    n1 = n + 1</div>
+<div class="line"><a id="l00298" name="l00298"></a><span class="lineno">  298</span> </div>
+<div class="line"><a id="l00299" name="l00299"></a><span class="lineno">  299</span>    <span class="comment">! Allocation</span></div>
+<div class="line"><a id="l00300" name="l00300"></a><span class="lineno">  300</span>    <span class="keyword">allocate</span>(rst%row_indices(n1), rst%column_indices(n), stat = flag)</div>
+<div class="line"><a id="l00301" name="l00301"></a><span class="lineno">  301</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst%values(n), source = a, stat = flag)</div>
+<div class="line"><a id="l00302" name="l00302"></a><span class="lineno">  302</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00303" name="l00303"></a><span class="lineno">  303</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;diag_to_csr&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00304" name="l00304"></a><span class="lineno">  304</span>            la_out_of_memory_error)</div>
+<div class="line"><a id="l00305" name="l00305"></a><span class="lineno">  305</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00306" name="l00306"></a><span class="lineno">  306</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00307" name="l00307"></a><span class="lineno">  307</span>    rst%n = n</div>
+<div class="line"><a id="l00308" name="l00308"></a><span class="lineno">  308</span> </div>
+<div class="line"><a id="l00309" name="l00309"></a><span class="lineno">  309</span>    <span class="comment">! Populate IA &amp; JA</span></div>
+<div class="line"><a id="l00310" name="l00310"></a><span class="lineno">  310</span>    <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l00311" name="l00311"></a><span class="lineno">  311</span>        rst%column_indices(i) = i</div>
+<div class="line"><a id="l00312" name="l00312"></a><span class="lineno">  312</span>        rst%row_indices(i) = i</div>
+<div class="line"><a id="l00313" name="l00313"></a><span class="lineno">  313</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00314" name="l00314"></a><span class="lineno">  314</span>    rst%row_indices(n1) = n1</div>
+<div class="line"><a id="l00315" name="l00315"></a><span class="lineno">  315</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00316" name="l00316"></a><span class="lineno">  316</span> </div>
+<div class="line"><a id="l00317" name="l00317"></a><span class="lineno">  317</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00318" name="l00318"></a><span class="lineno">  318</span><span class="keyword">module</span> subroutine csr_assign_to_dense(dense, sparse)</div>
+<div class="line"><a id="l00319" name="l00319"></a><span class="lineno">  319</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00320" name="l00320"></a><span class="lineno">  320</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l00321" name="l00321"></a><span class="lineno">  321</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: sparse</div>
+<div class="line"><a id="l00322" name="l00322"></a><span class="lineno">  322</span> </div>
+<div class="line"><a id="l00323" name="l00323"></a><span class="lineno">  323</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00324" name="l00324"></a><span class="lineno">  324</span>    <span class="keyword">call </span>csr_to_dense(sparse, dense)</div>
+<div class="line"><a id="l00325" name="l00325"></a><span class="lineno">  325</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00326" name="l00326"></a><span class="lineno">  326</span> </div>
+<div class="line"><a id="l00327" name="l00327"></a><span class="lineno">  327</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00328" name="l00328"></a><span class="lineno">  328</span><span class="keyword">module</span> subroutine dense_assign_to_csr(sparse, dense)</div>
+<div class="line"><a id="l00329" name="l00329"></a><span class="lineno">  329</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00330" name="l00330"></a><span class="lineno">  330</span>    <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(out)</span> :: sparse</div>
+<div class="line"><a id="l00331" name="l00331"></a><span class="lineno">  331</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l00332" name="l00332"></a><span class="lineno">  332</span> </div>
+<div class="line"><a id="l00333" name="l00333"></a><span class="lineno">  333</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00334" name="l00334"></a><span class="lineno">  334</span>    sparse = dense_to_csr(dense)</div>
+<div class="line"><a id="l00335" name="l00335"></a><span class="lineno">  335</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00336" name="l00336"></a><span class="lineno">  336</span> </div>
+<div class="line"><a id="l00337" name="l00337"></a><span class="lineno">  337</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00338" name="l00338"></a><span class="lineno">  338</span><span class="keyword">module</span> function csr_mtx_mtx_mult(a, b) result(rst)</div>
+<div class="line"><a id="l00339" name="l00339"></a><span class="lineno">  339</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00340" name="l00340"></a><span class="lineno">  340</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l00341" name="l00341"></a><span class="lineno">  341</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00342" name="l00342"></a><span class="lineno">  342</span> </div>
+<div class="line"><a id="l00343" name="l00343"></a><span class="lineno">  343</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00344" name="l00344"></a><span class="lineno">  344</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: sym_mult = 0</div>
+<div class="line"><a id="l00345" name="l00345"></a><span class="lineno">  345</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: full_mult = 1</div>
+<div class="line"><a id="l00346" name="l00346"></a><span class="lineno">  346</span>    <span class="keywordtype">integer(int32)</span> :: flag, m, n, k, nnza, nnzb, nnzc, ierr</div>
+<div class="line"><a id="l00347" name="l00347"></a><span class="lineno">  347</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: ic, jc, iw</div>
+<div class="line"><a id="l00348" name="l00348"></a><span class="lineno">  348</span><span class="keywordtype">    real</span>(real64) :: dummy(1)</div>
+<div class="line"><a id="l00349" name="l00349"></a><span class="lineno">  349</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00350" name="l00350"></a><span class="lineno">  350</span>    </div>
+<div class="line"><a id="l00351" name="l00351"></a><span class="lineno">  351</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00352" name="l00352"></a><span class="lineno">  352</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00353" name="l00353"></a><span class="lineno">  353</span>    n = <span class="keyword">size</span>(b, 2)</div>
+<div class="line"><a id="l00354" name="l00354"></a><span class="lineno">  354</span>    k = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00355" name="l00355"></a><span class="lineno">  355</span>    nnza = nonzero_count(a)</div>
+<div class="line"><a id="l00356" name="l00356"></a><span class="lineno">  356</span>    nnzb = nonzero_count(b)</div>
+<div class="line"><a id="l00357" name="l00357"></a><span class="lineno">  357</span>    nnzc = nnza + nnzb</div>
+<div class="line"><a id="l00358" name="l00358"></a><span class="lineno">  358</span> </div>
+<div class="line"><a id="l00359" name="l00359"></a><span class="lineno">  359</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l00360" name="l00360"></a><span class="lineno">  360</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= k) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00361" name="l00361"></a><span class="lineno">  361</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_mtx_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l00362" name="l00362"></a><span class="lineno">  362</span>            <span class="stringliteral">&quot;Inner matrix dimension mismatch.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00363" name="l00363"></a><span class="lineno">  363</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00364" name="l00364"></a><span class="lineno">  364</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00365" name="l00365"></a><span class="lineno">  365</span> </div>
+<div class="line"><a id="l00366" name="l00366"></a><span class="lineno">  366</span>    <span class="comment">! Local Memory Allocations</span></div>
+<div class="line"><a id="l00367" name="l00367"></a><span class="lineno">  367</span>    <span class="keyword">allocate</span>(ic(m + 1), jc(nnzc), iw(n), stat = flag)</div>
+<div class="line"><a id="l00368" name="l00368"></a><span class="lineno">  368</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00369" name="l00369"></a><span class="lineno">  369</span> </div>
+<div class="line"><a id="l00370" name="l00370"></a><span class="lineno">  370</span>    <span class="comment">! Determine the structure of C</span></div>
+<div class="line"><a id="l00371" name="l00371"></a><span class="lineno">  371</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1amub.html">amub</a>(m, n, sym_mult, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00372" name="l00372"></a><span class="lineno">  372</span>        b%values, b%column_indices, b%row_indices, dummy, jc, ic, &amp;</div>
+<div class="line"><a id="l00373" name="l00373"></a><span class="lineno">  373</span>        nnzc, iw, ierr)</div>
+<div class="line"><a id="l00374" name="l00374"></a><span class="lineno">  374</span>    <span class="keywordflow">if</span> (ierr /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00375" name="l00375"></a><span class="lineno">  375</span>        <span class="comment">! NNZC was too small - try increasing it</span></div>
+<div class="line"><a id="l00376" name="l00376"></a><span class="lineno">  376</span>        <span class="keywordflow">do</span> <span class="keywordflow">while</span> (ierr /= 0)</div>
+<div class="line"><a id="l00377" name="l00377"></a><span class="lineno">  377</span>            <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00378" name="l00378"></a><span class="lineno">  378</span>            nnzc = nnzc + nnza + nnzb</div>
+<div class="line"><a id="l00379" name="l00379"></a><span class="lineno">  379</span>            <span class="keyword">allocate</span>(jc(nnzc), stat = flag)</div>
+<div class="line"><a id="l00380" name="l00380"></a><span class="lineno">  380</span>            <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00381" name="l00381"></a><span class="lineno">  381</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1amub.html">amub</a>(m, n, sym_mult, a%values, a%column_indices, &amp;</div>
+<div class="line"><a id="l00382" name="l00382"></a><span class="lineno">  382</span>                a%row_indices, b%values, b%column_indices, b%row_indices, &amp;</div>
+<div class="line"><a id="l00383" name="l00383"></a><span class="lineno">  383</span>                dummy, jc, ic, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00384" name="l00384"></a><span class="lineno">  384</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00385" name="l00385"></a><span class="lineno">  385</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00386" name="l00386"></a><span class="lineno">  386</span> </div>
+<div class="line"><a id="l00387" name="l00387"></a><span class="lineno">  387</span>    <span class="comment">! Determine the actual NNZ for C &amp; allocate space for the output</span></div>
+<div class="line"><a id="l00388" name="l00388"></a><span class="lineno">  388</span>    nnzc = ic(m + 1) - 1</div>
+<div class="line"><a id="l00389" name="l00389"></a><span class="lineno">  389</span>    <span class="keyword">deallocate</span>(ic)</div>
+<div class="line"><a id="l00390" name="l00390"></a><span class="lineno">  390</span>    <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00391" name="l00391"></a><span class="lineno">  391</span>    rst = create_empty_csr_matrix(m, n, nnzc, errmgr)</div>
+<div class="line"><a id="l00392" name="l00392"></a><span class="lineno">  392</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00393" name="l00393"></a><span class="lineno">  393</span> </div>
+<div class="line"><a id="l00394" name="l00394"></a><span class="lineno">  394</span>    <span class="comment">! Compute the actual product</span></div>
+<div class="line"><a id="l00395" name="l00395"></a><span class="lineno">  395</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1amub.html">amub</a>(m, n, full_mult, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00396" name="l00396"></a><span class="lineno">  396</span>        b%values, b%column_indices, b%row_indices, rst%values, &amp;</div>
+<div class="line"><a id="l00397" name="l00397"></a><span class="lineno">  397</span>        rst%column_indices, rst%row_indices, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00398" name="l00398"></a><span class="lineno">  398</span> </div>
+<div class="line"><a id="l00399" name="l00399"></a><span class="lineno">  399</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l00400" name="l00400"></a><span class="lineno">  400</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00401" name="l00401"></a><span class="lineno">  401</span> </div>
+<div class="line"><a id="l00402" name="l00402"></a><span class="lineno">  402</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l00403" name="l00403"></a><span class="lineno">  403</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00404" name="l00404"></a><span class="lineno">  404</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_mtx_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l00405" name="l00405"></a><span class="lineno">  405</span>        <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00406" name="l00406"></a><span class="lineno">  406</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00407" name="l00407"></a><span class="lineno">  407</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00408" name="l00408"></a><span class="lineno">  408</span> </div>
+<div class="line"><a id="l00409" name="l00409"></a><span class="lineno">  409</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00410" name="l00410"></a><span class="lineno">  410</span><span class="keyword">module</span> function csr_mtx_vec_mult(a, b) result(rst)</div>
+<div class="line"><a id="l00411" name="l00411"></a><span class="lineno">  411</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00412" name="l00412"></a><span class="lineno">  412</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00413" name="l00413"></a><span class="lineno">  413</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l00414" name="l00414"></a><span class="lineno">  414</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: rst</div>
+<div class="line"><a id="l00415" name="l00415"></a><span class="lineno">  415</span> </div>
+<div class="line"><a id="l00416" name="l00416"></a><span class="lineno">  416</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00417" name="l00417"></a><span class="lineno">  417</span>    <span class="keywordtype">integer(int32)</span> :: i, k, k1, k2, n, p, flag</div>
+<div class="line"><a id="l00418" name="l00418"></a><span class="lineno">  418</span><span class="keywordtype">    real</span>(real64) :: t</div>
+<div class="line"><a id="l00419" name="l00419"></a><span class="lineno">  419</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00420" name="l00420"></a><span class="lineno">  420</span> </div>
+<div class="line"><a id="l00421" name="l00421"></a><span class="lineno">  421</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00422" name="l00422"></a><span class="lineno">  422</span>    n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00423" name="l00423"></a><span class="lineno">  423</span>    p = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00424" name="l00424"></a><span class="lineno">  424</span> </div>
+<div class="line"><a id="l00425" name="l00425"></a><span class="lineno">  425</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l00426" name="l00426"></a><span class="lineno">  426</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= p) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00427" name="l00427"></a><span class="lineno">  427</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_vec_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l00428" name="l00428"></a><span class="lineno">  428</span>            <span class="stringliteral">&quot;Inner matrix dimension error.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00429" name="l00429"></a><span class="lineno">  429</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00430" name="l00430"></a><span class="lineno">  430</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00431" name="l00431"></a><span class="lineno">  431</span> </div>
+<div class="line"><a id="l00432" name="l00432"></a><span class="lineno">  432</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l00433" name="l00433"></a><span class="lineno">  433</span>    <span class="keyword">allocate</span>(rst(n), stat = flag)</div>
+<div class="line"><a id="l00434" name="l00434"></a><span class="lineno">  434</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00435" name="l00435"></a><span class="lineno">  435</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_vec_mult&quot;</span>, &amp;</div>
+<div class="line"><a id="l00436" name="l00436"></a><span class="lineno">  436</span>            <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00437" name="l00437"></a><span class="lineno">  437</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00438" name="l00438"></a><span class="lineno">  438</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00439" name="l00439"></a><span class="lineno">  439</span> </div>
+<div class="line"><a id="l00440" name="l00440"></a><span class="lineno">  440</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00441" name="l00441"></a><span class="lineno">  441</span>    <span class="keywordflow">do</span> i = 1, n</div>
+<div class="line"><a id="l00442" name="l00442"></a><span class="lineno">  442</span>        t = 0.0d0</div>
+<div class="line"><a id="l00443" name="l00443"></a><span class="lineno">  443</span>        k1 = a%row_indices(i)</div>
+<div class="line"><a id="l00444" name="l00444"></a><span class="lineno">  444</span>        k2 = a%row_indices(i+1) - 1</div>
+<div class="line"><a id="l00445" name="l00445"></a><span class="lineno">  445</span>        <span class="keywordflow">do</span> k = k1, k2</div>
+<div class="line"><a id="l00446" name="l00446"></a><span class="lineno">  446</span>            t = t + a%values(k) * b(a%column_indices(k))</div>
+<div class="line"><a id="l00447" name="l00447"></a><span class="lineno">  447</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00448" name="l00448"></a><span class="lineno">  448</span>        rst(i) = t</div>
+<div class="line"><a id="l00449" name="l00449"></a><span class="lineno">  449</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00450" name="l00450"></a><span class="lineno">  450</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00451" name="l00451"></a><span class="lineno">  451</span> </div>
+<div class="line"><a id="l00452" name="l00452"></a><span class="lineno">  452</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00453" name="l00453"></a><span class="lineno">  453</span><span class="keyword">module</span> function csr_mtx_add(a, b) result(rst)</div>
+<div class="line"><a id="l00454" name="l00454"></a><span class="lineno">  454</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00455" name="l00455"></a><span class="lineno">  455</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l00456" name="l00456"></a><span class="lineno">  456</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00457" name="l00457"></a><span class="lineno">  457</span> </div>
+<div class="line"><a id="l00458" name="l00458"></a><span class="lineno">  458</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00459" name="l00459"></a><span class="lineno">  459</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: sym_add = 0</div>
+<div class="line"><a id="l00460" name="l00460"></a><span class="lineno">  460</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: full_add = 1</div>
+<div class="line"><a id="l00461" name="l00461"></a><span class="lineno">  461</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnza, nnzb, nnzc, ierr, flag</div>
+<div class="line"><a id="l00462" name="l00462"></a><span class="lineno">  462</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: ic, jc, iw</div>
+<div class="line"><a id="l00463" name="l00463"></a><span class="lineno">  463</span><span class="keywordtype">    real</span>(real64) :: dummy(1)</div>
+<div class="line"><a id="l00464" name="l00464"></a><span class="lineno">  464</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00465" name="l00465"></a><span class="lineno">  465</span>    </div>
+<div class="line"><a id="l00466" name="l00466"></a><span class="lineno">  466</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00467" name="l00467"></a><span class="lineno">  467</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00468" name="l00468"></a><span class="lineno">  468</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00469" name="l00469"></a><span class="lineno">  469</span>    nnza = nonzero_count(a)</div>
+<div class="line"><a id="l00470" name="l00470"></a><span class="lineno">  470</span>    nnzb = nonzero_count(b)</div>
+<div class="line"><a id="l00471" name="l00471"></a><span class="lineno">  471</span>    nnzc = nnza + nnzb</div>
+<div class="line"><a id="l00472" name="l00472"></a><span class="lineno">  472</span> </div>
+<div class="line"><a id="l00473" name="l00473"></a><span class="lineno">  473</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00474" name="l00474"></a><span class="lineno">  474</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= m .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00475" name="l00475"></a><span class="lineno">  475</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_add&quot;</span>, &amp;</div>
+<div class="line"><a id="l00476" name="l00476"></a><span class="lineno">  476</span>            <span class="stringliteral">&quot;The matrix sizes must match.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00477" name="l00477"></a><span class="lineno">  477</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00478" name="l00478"></a><span class="lineno">  478</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00479" name="l00479"></a><span class="lineno">  479</span> </div>
+<div class="line"><a id="l00480" name="l00480"></a><span class="lineno">  480</span>    <span class="comment">! Local Memory Allocations</span></div>
+<div class="line"><a id="l00481" name="l00481"></a><span class="lineno">  481</span>    <span class="keyword">allocate</span>(ic(m + 1), jc(nnzc), iw(n), stat = flag)</div>
+<div class="line"><a id="l00482" name="l00482"></a><span class="lineno">  482</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00483" name="l00483"></a><span class="lineno">  483</span> </div>
+<div class="line"><a id="l00484" name="l00484"></a><span class="lineno">  484</span>    <span class="comment">! Determine the structure of C</span></div>
+<div class="line"><a id="l00485" name="l00485"></a><span class="lineno">  485</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(m, n, sym_add, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00486" name="l00486"></a><span class="lineno">  486</span>        b%values, b%column_indices, b%row_indices, dummy, jc, ic, &amp;</div>
+<div class="line"><a id="l00487" name="l00487"></a><span class="lineno">  487</span>        nnzc, iw, ierr)</div>
+<div class="line"><a id="l00488" name="l00488"></a><span class="lineno">  488</span>    <span class="keywordflow">if</span> (ierr /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00489" name="l00489"></a><span class="lineno">  489</span>        <span class="comment">! NNZC was too small - try increasing it</span></div>
+<div class="line"><a id="l00490" name="l00490"></a><span class="lineno">  490</span>        <span class="keywordflow">do</span> <span class="keywordflow">while</span> (ierr /= 0)</div>
+<div class="line"><a id="l00491" name="l00491"></a><span class="lineno">  491</span>            <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00492" name="l00492"></a><span class="lineno">  492</span>            nnzc = nnzc + nnza + nnzb</div>
+<div class="line"><a id="l00493" name="l00493"></a><span class="lineno">  493</span>            <span class="keyword">allocate</span>(jc(nnzc), stat = flag)</div>
+<div class="line"><a id="l00494" name="l00494"></a><span class="lineno">  494</span>            <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00495" name="l00495"></a><span class="lineno">  495</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(m, n, sym_add, a%values, a%column_indices, &amp;</div>
+<div class="line"><a id="l00496" name="l00496"></a><span class="lineno">  496</span>                a%row_indices, b%values, b%column_indices, b%row_indices, &amp;</div>
+<div class="line"><a id="l00497" name="l00497"></a><span class="lineno">  497</span>                dummy, jc, ic, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00498" name="l00498"></a><span class="lineno">  498</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00499" name="l00499"></a><span class="lineno">  499</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00500" name="l00500"></a><span class="lineno">  500</span> </div>
+<div class="line"><a id="l00501" name="l00501"></a><span class="lineno">  501</span>    <span class="comment">! Determine the actuall NNZ for C &amp; allocate space for the output</span></div>
+<div class="line"><a id="l00502" name="l00502"></a><span class="lineno">  502</span>    nnzc = ic(m + 1) - 1</div>
+<div class="line"><a id="l00503" name="l00503"></a><span class="lineno">  503</span>    <span class="keyword">deallocate</span>(ic)</div>
+<div class="line"><a id="l00504" name="l00504"></a><span class="lineno">  504</span>    <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00505" name="l00505"></a><span class="lineno">  505</span>    rst = create_empty_csr_matrix(m, n, nnzc, errmgr)</div>
+<div class="line"><a id="l00506" name="l00506"></a><span class="lineno">  506</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00507" name="l00507"></a><span class="lineno">  507</span> </div>
+<div class="line"><a id="l00508" name="l00508"></a><span class="lineno">  508</span>    <span class="comment">! Compute the actual sum</span></div>
+<div class="line"><a id="l00509" name="l00509"></a><span class="lineno">  509</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(m, n, full_add, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00510" name="l00510"></a><span class="lineno">  510</span>        b%values, b%column_indices, b%row_indices, rst%values, &amp;</div>
+<div class="line"><a id="l00511" name="l00511"></a><span class="lineno">  511</span>        rst%column_indices, rst%row_indices, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00512" name="l00512"></a><span class="lineno">  512</span> </div>
+<div class="line"><a id="l00513" name="l00513"></a><span class="lineno">  513</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l00514" name="l00514"></a><span class="lineno">  514</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00515" name="l00515"></a><span class="lineno">  515</span> </div>
+<div class="line"><a id="l00516" name="l00516"></a><span class="lineno">  516</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l00517" name="l00517"></a><span class="lineno">  517</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00518" name="l00518"></a><span class="lineno">  518</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_add&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00519" name="l00519"></a><span class="lineno">  519</span>        la_out_of_memory_error)</div>
+<div class="line"><a id="l00520" name="l00520"></a><span class="lineno">  520</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00521" name="l00521"></a><span class="lineno">  521</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00522" name="l00522"></a><span class="lineno">  522</span> </div>
+<div class="line"><a id="l00523" name="l00523"></a><span class="lineno">  523</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00524" name="l00524"></a><span class="lineno">  524</span><span class="keyword">module</span> function csr_mtx_sub(a, b) result(rst)</div>
+<div class="line"><a id="l00525" name="l00525"></a><span class="lineno">  525</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00526" name="l00526"></a><span class="lineno">  526</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a, b</div>
+<div class="line"><a id="l00527" name="l00527"></a><span class="lineno">  527</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00528" name="l00528"></a><span class="lineno">  528</span> </div>
+<div class="line"><a id="l00529" name="l00529"></a><span class="lineno">  529</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00530" name="l00530"></a><span class="lineno">  530</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">parameter</span> :: sym_add = 0</div>
+<div class="line"><a id="l00531" name="l00531"></a><span class="lineno">  531</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnza, nnzb, nnzc, ierr, flag</div>
+<div class="line"><a id="l00532" name="l00532"></a><span class="lineno">  532</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: ic, jc, iw</div>
+<div class="line"><a id="l00533" name="l00533"></a><span class="lineno">  533</span><span class="keywordtype">    real</span>(real64) :: dummy(1)</div>
+<div class="line"><a id="l00534" name="l00534"></a><span class="lineno">  534</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00535" name="l00535"></a><span class="lineno">  535</span>    </div>
+<div class="line"><a id="l00536" name="l00536"></a><span class="lineno">  536</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00537" name="l00537"></a><span class="lineno">  537</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00538" name="l00538"></a><span class="lineno">  538</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00539" name="l00539"></a><span class="lineno">  539</span>    nnza = nonzero_count(a)</div>
+<div class="line"><a id="l00540" name="l00540"></a><span class="lineno">  540</span>    nnzb = nonzero_count(b)</div>
+<div class="line"><a id="l00541" name="l00541"></a><span class="lineno">  541</span>    nnzc = nnza + nnzb</div>
+<div class="line"><a id="l00542" name="l00542"></a><span class="lineno">  542</span> </div>
+<div class="line"><a id="l00543" name="l00543"></a><span class="lineno">  543</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00544" name="l00544"></a><span class="lineno">  544</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b, 1) /= m .or. <span class="keyword">size</span>(b, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00545" name="l00545"></a><span class="lineno">  545</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_sub&quot;</span>, &amp;</div>
+<div class="line"><a id="l00546" name="l00546"></a><span class="lineno">  546</span>            <span class="stringliteral">&quot;The matrix sizes must match.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00547" name="l00547"></a><span class="lineno">  547</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00548" name="l00548"></a><span class="lineno">  548</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00549" name="l00549"></a><span class="lineno">  549</span> </div>
+<div class="line"><a id="l00550" name="l00550"></a><span class="lineno">  550</span>    <span class="comment">! Local Memory Allocations</span></div>
+<div class="line"><a id="l00551" name="l00551"></a><span class="lineno">  551</span>    <span class="keyword">allocate</span>(ic(m + 1), jc(nnzc), iw(n), stat = flag)</div>
+<div class="line"><a id="l00552" name="l00552"></a><span class="lineno">  552</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00553" name="l00553"></a><span class="lineno">  553</span> </div>
+<div class="line"><a id="l00554" name="l00554"></a><span class="lineno">  554</span>    <span class="comment">! Determine the structure of C</span></div>
+<div class="line"><a id="l00555" name="l00555"></a><span class="lineno">  555</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(m, n, sym_add, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00556" name="l00556"></a><span class="lineno">  556</span>        b%values, b%column_indices, b%row_indices, dummy, jc, ic, &amp;</div>
+<div class="line"><a id="l00557" name="l00557"></a><span class="lineno">  557</span>        nnzc, iw, ierr)</div>
+<div class="line"><a id="l00558" name="l00558"></a><span class="lineno">  558</span>    <span class="keywordflow">if</span> (ierr /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00559" name="l00559"></a><span class="lineno">  559</span>        <span class="comment">! NNZC was too small - try increasing it</span></div>
+<div class="line"><a id="l00560" name="l00560"></a><span class="lineno">  560</span>        <span class="keywordflow">do</span> <span class="keywordflow">while</span> (ierr /= 0)</div>
+<div class="line"><a id="l00561" name="l00561"></a><span class="lineno">  561</span>            <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00562" name="l00562"></a><span class="lineno">  562</span>            nnzc = nnzc + nnza + nnzb</div>
+<div class="line"><a id="l00563" name="l00563"></a><span class="lineno">  563</span>            <span class="keyword">allocate</span>(jc(nnzc), stat = flag)</div>
+<div class="line"><a id="l00564" name="l00564"></a><span class="lineno">  564</span>            <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00565" name="l00565"></a><span class="lineno">  565</span>            <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(m, n, sym_add, a%values, a%column_indices, &amp;</div>
+<div class="line"><a id="l00566" name="l00566"></a><span class="lineno">  566</span>                a%row_indices, b%values, b%column_indices, b%row_indices, &amp;</div>
+<div class="line"><a id="l00567" name="l00567"></a><span class="lineno">  567</span>                dummy, jc, ic, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00568" name="l00568"></a><span class="lineno">  568</span><span class="keywordflow">        end do</span></div>
+<div class="line"><a id="l00569" name="l00569"></a><span class="lineno">  569</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00570" name="l00570"></a><span class="lineno">  570</span> </div>
+<div class="line"><a id="l00571" name="l00571"></a><span class="lineno">  571</span>    <span class="comment">! Determine the actuall NNZ for C &amp; allocate space for the output</span></div>
+<div class="line"><a id="l00572" name="l00572"></a><span class="lineno">  572</span>    nnzc = ic(m + 1) - 1</div>
+<div class="line"><a id="l00573" name="l00573"></a><span class="lineno">  573</span>    <span class="keyword">deallocate</span>(ic)</div>
+<div class="line"><a id="l00574" name="l00574"></a><span class="lineno">  574</span>    <span class="keyword">deallocate</span>(jc)</div>
+<div class="line"><a id="l00575" name="l00575"></a><span class="lineno">  575</span>    rst = create_empty_csr_matrix(m, n, nnzc, errmgr)</div>
+<div class="line"><a id="l00576" name="l00576"></a><span class="lineno">  576</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00577" name="l00577"></a><span class="lineno">  577</span> </div>
+<div class="line"><a id="l00578" name="l00578"></a><span class="lineno">  578</span>    <span class="comment">! Compute the actual sum</span></div>
+<div class="line"><a id="l00579" name="l00579"></a><span class="lineno">  579</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1aplsb.html">aplsb</a>(m, n, a%values, a%column_indices, a%row_indices, -1.0d0, &amp;</div>
+<div class="line"><a id="l00580" name="l00580"></a><span class="lineno">  580</span>        b%values, b%column_indices, b%row_indices, rst%values, &amp;</div>
+<div class="line"><a id="l00581" name="l00581"></a><span class="lineno">  581</span>        rst%column_indices, rst%row_indices, nnzc, iw, ierr)</div>
+<div class="line"><a id="l00582" name="l00582"></a><span class="lineno">  582</span> </div>
+<div class="line"><a id="l00583" name="l00583"></a><span class="lineno">  583</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l00584" name="l00584"></a><span class="lineno">  584</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00585" name="l00585"></a><span class="lineno">  585</span> </div>
+<div class="line"><a id="l00586" name="l00586"></a><span class="lineno">  586</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l00587" name="l00587"></a><span class="lineno">  587</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00588" name="l00588"></a><span class="lineno">  588</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_mtx_sub&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00589" name="l00589"></a><span class="lineno">  589</span>        la_out_of_memory_error)</div>
+<div class="line"><a id="l00590" name="l00590"></a><span class="lineno">  590</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00591" name="l00591"></a><span class="lineno">  591</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00592" name="l00592"></a><span class="lineno">  592</span> </div>
+<div class="line"><a id="l00593" name="l00593"></a><span class="lineno">  593</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00594" name="l00594"></a><span class="lineno">  594</span><span class="keyword">module</span> function csr_mtx_mult_scalar_1(a, b) result(rst)</div>
+<div class="line"><a id="l00595" name="l00595"></a><span class="lineno">  595</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00596" name="l00596"></a><span class="lineno">  596</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00597" name="l00597"></a><span class="lineno">  597</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l00598" name="l00598"></a><span class="lineno">  598</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00599" name="l00599"></a><span class="lineno">  599</span> </div>
+<div class="line"><a id="l00600" name="l00600"></a><span class="lineno">  600</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00601" name="l00601"></a><span class="lineno">  601</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00602" name="l00602"></a><span class="lineno">  602</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00603" name="l00603"></a><span class="lineno">  603</span>    </div>
+<div class="line"><a id="l00604" name="l00604"></a><span class="lineno">  604</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00605" name="l00605"></a><span class="lineno">  605</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00606" name="l00606"></a><span class="lineno">  606</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00607" name="l00607"></a><span class="lineno">  607</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00608" name="l00608"></a><span class="lineno">  608</span> </div>
+<div class="line"><a id="l00609" name="l00609"></a><span class="lineno">  609</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00610" name="l00610"></a><span class="lineno">  610</span>    rst = create_empty_csr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l00611" name="l00611"></a><span class="lineno">  611</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00612" name="l00612"></a><span class="lineno">  612</span> </div>
+<div class="line"><a id="l00613" name="l00613"></a><span class="lineno">  613</span>    <span class="comment">! Compute the product</span></div>
+<div class="line"><a id="l00614" name="l00614"></a><span class="lineno">  614</span>    rst%row_indices = a%row_indices</div>
+<div class="line"><a id="l00615" name="l00615"></a><span class="lineno">  615</span>    rst%column_indices = a%column_indices</div>
+<div class="line"><a id="l00616" name="l00616"></a><span class="lineno">  616</span>    rst%values = b * a%values</div>
+<div class="line"><a id="l00617" name="l00617"></a><span class="lineno">  617</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00618" name="l00618"></a><span class="lineno">  618</span> </div>
+<div class="line"><a id="l00619" name="l00619"></a><span class="lineno">  619</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00620" name="l00620"></a><span class="lineno">  620</span><span class="keyword">module</span> function csr_mtx_mult_scalar_2(a, b) result(rst)</div>
+<div class="line"><a id="l00621" name="l00621"></a><span class="lineno">  621</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00622" name="l00622"></a><span class="lineno">  622</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00623" name="l00623"></a><span class="lineno">  623</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l00624" name="l00624"></a><span class="lineno">  624</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00625" name="l00625"></a><span class="lineno">  625</span> </div>
+<div class="line"><a id="l00626" name="l00626"></a><span class="lineno">  626</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00627" name="l00627"></a><span class="lineno">  627</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00628" name="l00628"></a><span class="lineno">  628</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00629" name="l00629"></a><span class="lineno">  629</span>    </div>
+<div class="line"><a id="l00630" name="l00630"></a><span class="lineno">  630</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00631" name="l00631"></a><span class="lineno">  631</span>    m = <span class="keyword">size</span>(b, 1)</div>
+<div class="line"><a id="l00632" name="l00632"></a><span class="lineno">  632</span>    n = <span class="keyword">size</span>(b, 2)</div>
+<div class="line"><a id="l00633" name="l00633"></a><span class="lineno">  633</span>    nnz = nonzero_count(b)</div>
+<div class="line"><a id="l00634" name="l00634"></a><span class="lineno">  634</span> </div>
+<div class="line"><a id="l00635" name="l00635"></a><span class="lineno">  635</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00636" name="l00636"></a><span class="lineno">  636</span>    rst = create_empty_csr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l00637" name="l00637"></a><span class="lineno">  637</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00638" name="l00638"></a><span class="lineno">  638</span> </div>
+<div class="line"><a id="l00639" name="l00639"></a><span class="lineno">  639</span>    <span class="comment">! Compute the product</span></div>
+<div class="line"><a id="l00640" name="l00640"></a><span class="lineno">  640</span>    rst%row_indices = b%row_indices</div>
+<div class="line"><a id="l00641" name="l00641"></a><span class="lineno">  641</span>    rst%column_indices = b%column_indices</div>
+<div class="line"><a id="l00642" name="l00642"></a><span class="lineno">  642</span>    rst%values = a * b%values</div>
+<div class="line"><a id="l00643" name="l00643"></a><span class="lineno">  643</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00644" name="l00644"></a><span class="lineno">  644</span> </div>
+<div class="line"><a id="l00645" name="l00645"></a><span class="lineno">  645</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00646" name="l00646"></a><span class="lineno">  646</span><span class="keyword">module</span> function csr_mtx_divide_scalar_1(a, b) result(rst)</div>
+<div class="line"><a id="l00647" name="l00647"></a><span class="lineno">  647</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00648" name="l00648"></a><span class="lineno">  648</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00649" name="l00649"></a><span class="lineno">  649</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span> :: b</div>
+<div class="line"><a id="l00650" name="l00650"></a><span class="lineno">  650</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00651" name="l00651"></a><span class="lineno">  651</span> </div>
+<div class="line"><a id="l00652" name="l00652"></a><span class="lineno">  652</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00653" name="l00653"></a><span class="lineno">  653</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00654" name="l00654"></a><span class="lineno">  654</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00655" name="l00655"></a><span class="lineno">  655</span>    </div>
+<div class="line"><a id="l00656" name="l00656"></a><span class="lineno">  656</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00657" name="l00657"></a><span class="lineno">  657</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00658" name="l00658"></a><span class="lineno">  658</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00659" name="l00659"></a><span class="lineno">  659</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00660" name="l00660"></a><span class="lineno">  660</span> </div>
+<div class="line"><a id="l00661" name="l00661"></a><span class="lineno">  661</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00662" name="l00662"></a><span class="lineno">  662</span>    rst = create_empty_csr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l00663" name="l00663"></a><span class="lineno">  663</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00664" name="l00664"></a><span class="lineno">  664</span> </div>
+<div class="line"><a id="l00665" name="l00665"></a><span class="lineno">  665</span>    <span class="comment">! Compute the product</span></div>
+<div class="line"><a id="l00666" name="l00666"></a><span class="lineno">  666</span>    rst%row_indices = a%row_indices</div>
+<div class="line"><a id="l00667" name="l00667"></a><span class="lineno">  667</span>    rst%column_indices = a%column_indices</div>
+<div class="line"><a id="l00668" name="l00668"></a><span class="lineno">  668</span>    rst%values = a%values / b</div>
+<div class="line"><a id="l00669" name="l00669"></a><span class="lineno">  669</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00670" name="l00670"></a><span class="lineno">  670</span> </div>
+<div class="line"><a id="l00671" name="l00671"></a><span class="lineno">  671</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00672" name="l00672"></a><span class="lineno">  672</span><span class="keyword">module</span> function csr_transpose(a) result(rst)</div>
+<div class="line"><a id="l00673" name="l00673"></a><span class="lineno">  673</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00674" name="l00674"></a><span class="lineno">  674</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00675" name="l00675"></a><span class="lineno">  675</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l00676" name="l00676"></a><span class="lineno">  676</span> </div>
+<div class="line"><a id="l00677" name="l00677"></a><span class="lineno">  677</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00678" name="l00678"></a><span class="lineno">  678</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00679" name="l00679"></a><span class="lineno">  679</span>    <span class="keywordtype">type</span>(errors) :: errmgr</div>
+<div class="line"><a id="l00680" name="l00680"></a><span class="lineno">  680</span> </div>
+<div class="line"><a id="l00681" name="l00681"></a><span class="lineno">  681</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00682" name="l00682"></a><span class="lineno">  682</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00683" name="l00683"></a><span class="lineno">  683</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00684" name="l00684"></a><span class="lineno">  684</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00685" name="l00685"></a><span class="lineno">  685</span>    rst = create_empty_csr_matrix(n, m, nnz, errmgr)</div>
+<div class="line"><a id="l00686" name="l00686"></a><span class="lineno">  686</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00687" name="l00687"></a><span class="lineno">  687</span> </div>
+<div class="line"><a id="l00688" name="l00688"></a><span class="lineno">  688</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00689" name="l00689"></a><span class="lineno">  689</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1csrcsc2.html">csrcsc2</a>(m, n, 1, 1, a%values, a%column_indices, a%row_indices, &amp;</div>
+<div class="line"><a id="l00690" name="l00690"></a><span class="lineno">  690</span>        rst%values, rst%column_indices, rst%row_indices)</div>
+<div class="line"><a id="l00691" name="l00691"></a><span class="lineno">  691</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00692" name="l00692"></a><span class="lineno">  692</span> </div>
+<div class="line"><a id="l00693" name="l00693"></a><span class="lineno">  693</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00694" name="l00694"></a><span class="lineno">  694</span><span class="keyword">module</span> subroutine extract_diagonal_csr(a, diag, err)</div>
+<div class="line"><a id="l00695" name="l00695"></a><span class="lineno">  695</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00696" name="l00696"></a><span class="lineno">  696</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00697" name="l00697"></a><span class="lineno">  697</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: diag</div>
+<div class="line"><a id="l00698" name="l00698"></a><span class="lineno">  698</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00699" name="l00699"></a><span class="lineno">  699</span> </div>
+<div class="line"><a id="l00700" name="l00700"></a><span class="lineno">  700</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00701" name="l00701"></a><span class="lineno">  701</span>    <span class="keywordtype">integer(int32)</span> :: m, n, mn, len, flag</div>
+<div class="line"><a id="l00702" name="l00702"></a><span class="lineno">  702</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: idiag</div>
+<div class="line"><a id="l00703" name="l00703"></a><span class="lineno">  703</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00704" name="l00704"></a><span class="lineno">  704</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00705" name="l00705"></a><span class="lineno">  705</span>    </div>
+<div class="line"><a id="l00706" name="l00706"></a><span class="lineno">  706</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00707" name="l00707"></a><span class="lineno">  707</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00708" name="l00708"></a><span class="lineno">  708</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00709" name="l00709"></a><span class="lineno">  709</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00710" name="l00710"></a><span class="lineno">  710</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00711" name="l00711"></a><span class="lineno">  711</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00712" name="l00712"></a><span class="lineno">  712</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00713" name="l00713"></a><span class="lineno">  713</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00714" name="l00714"></a><span class="lineno">  714</span>    mn = min(m, n)</div>
+<div class="line"><a id="l00715" name="l00715"></a><span class="lineno">  715</span> </div>
+<div class="line"><a id="l00716" name="l00716"></a><span class="lineno">  716</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l00717" name="l00717"></a><span class="lineno">  717</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(diag) /= mn) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00718" name="l00718"></a><span class="lineno">  718</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;extract_diagonal_csr&quot;</span>, &amp;</div>
+<div class="line"><a id="l00719" name="l00719"></a><span class="lineno">  719</span>            <span class="stringliteral">&quot;The is expected to have MIN(M, N) elements.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00720" name="l00720"></a><span class="lineno">  720</span>            la_array_size_error)</div>
+<div class="line"><a id="l00721" name="l00721"></a><span class="lineno">  721</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00722" name="l00722"></a><span class="lineno">  722</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00723" name="l00723"></a><span class="lineno">  723</span> </div>
+<div class="line"><a id="l00724" name="l00724"></a><span class="lineno">  724</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l00725" name="l00725"></a><span class="lineno">  725</span>    <span class="keyword">allocate</span>(idiag(mn), stat = flag)</div>
+<div class="line"><a id="l00726" name="l00726"></a><span class="lineno">  726</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00727" name="l00727"></a><span class="lineno">  727</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;extract_diagonal_csr&quot;</span>, &amp;</div>
+<div class="line"><a id="l00728" name="l00728"></a><span class="lineno">  728</span>            <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00729" name="l00729"></a><span class="lineno">  729</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00730" name="l00730"></a><span class="lineno">  730</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00731" name="l00731"></a><span class="lineno">  731</span> </div>
+<div class="line"><a id="l00732" name="l00732"></a><span class="lineno">  732</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00733" name="l00733"></a><span class="lineno">  733</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1getdia.html">getdia</a>(m, n, 0, a%values, a%column_indices, a%row_indices, len, &amp;</div>
+<div class="line"><a id="l00734" name="l00734"></a><span class="lineno">  734</span>        diag, idiag, 0)</div>
+<div class="line"><a id="l00735" name="l00735"></a><span class="lineno">  735</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00736" name="l00736"></a><span class="lineno">  736</span> </div>
+<div class="line"><a id="l00737" name="l00737"></a><span class="lineno">  737</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00738" name="l00738"></a><span class="lineno">  738</span><span class="keyword">module</span> subroutine csr_solve_sparse_direct(a, b, x, droptol, err)</div>
+<div class="line"><a id="l00739" name="l00739"></a><span class="lineno">  739</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00740" name="l00740"></a><span class="lineno">  740</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00741" name="l00741"></a><span class="lineno">  741</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l00742" name="l00742"></a><span class="lineno">  742</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l00743" name="l00743"></a><span class="lineno">  743</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: droptol</div>
+<div class="line"><a id="l00744" name="l00744"></a><span class="lineno">  744</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00745" name="l00745"></a><span class="lineno">  745</span> </div>
+<div class="line"><a id="l00746" name="l00746"></a><span class="lineno">  746</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00747" name="l00747"></a><span class="lineno">  747</span>    <span class="keywordtype">integer(int32)</span> :: i, m, n, nnz, lfil, iwk, ierr, flag</div>
+<div class="line"><a id="l00748" name="l00748"></a><span class="lineno">  748</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: jlu, ju, jw</div>
+<div class="line"><a id="l00749" name="l00749"></a><span class="lineno">  749</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: alu, w</div>
+<div class="line"><a id="l00750" name="l00750"></a><span class="lineno">  750</span><span class="keywordtype">    real</span>(real64) :: dt</div>
+<div class="line"><a id="l00751" name="l00751"></a><span class="lineno">  751</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00752" name="l00752"></a><span class="lineno">  752</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00753" name="l00753"></a><span class="lineno">  753</span>    </div>
+<div class="line"><a id="l00754" name="l00754"></a><span class="lineno">  754</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00755" name="l00755"></a><span class="lineno">  755</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00756" name="l00756"></a><span class="lineno">  756</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00757" name="l00757"></a><span class="lineno">  757</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00758" name="l00758"></a><span class="lineno">  758</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00759" name="l00759"></a><span class="lineno">  759</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00760" name="l00760"></a><span class="lineno">  760</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(droptol)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00761" name="l00761"></a><span class="lineno">  761</span>        dt = droptol</div>
+<div class="line"><a id="l00762" name="l00762"></a><span class="lineno">  762</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00763" name="l00763"></a><span class="lineno">  763</span>        dt = sqrt(epsilon(dt))</div>
+<div class="line"><a id="l00764" name="l00764"></a><span class="lineno">  764</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00765" name="l00765"></a><span class="lineno">  765</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00766" name="l00766"></a><span class="lineno">  766</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00767" name="l00767"></a><span class="lineno">  767</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00768" name="l00768"></a><span class="lineno">  768</span> </div>
+<div class="line"><a id="l00769" name="l00769"></a><span class="lineno">  769</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00770" name="l00770"></a><span class="lineno">  770</span>    <span class="keywordflow">if</span> (m /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00771" name="l00771"></a><span class="lineno">  771</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00772" name="l00772"></a><span class="lineno">  772</span>            <span class="stringliteral">&quot;The matrix must be square.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00773" name="l00773"></a><span class="lineno">  773</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00774" name="l00774"></a><span class="lineno">  774</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00775" name="l00775"></a><span class="lineno">  775</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(x) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00776" name="l00776"></a><span class="lineno">  776</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00777" name="l00777"></a><span class="lineno">  777</span>            <span class="stringliteral">&quot;Inner matrix dimension mismatch.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l00778" name="l00778"></a><span class="lineno">  778</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00779" name="l00779"></a><span class="lineno">  779</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00780" name="l00780"></a><span class="lineno">  780</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00781" name="l00781"></a><span class="lineno">  781</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00782" name="l00782"></a><span class="lineno">  782</span>            <span class="stringliteral">&quot;The output array dimension does not match the rest of the problem.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00783" name="l00783"></a><span class="lineno">  783</span>            la_array_size_error)</div>
+<div class="line"><a id="l00784" name="l00784"></a><span class="lineno">  784</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00785" name="l00785"></a><span class="lineno">  785</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00786" name="l00786"></a><span class="lineno">  786</span> </div>
+<div class="line"><a id="l00787" name="l00787"></a><span class="lineno">  787</span>    <span class="comment">! Parameter Determination</span></div>
+<div class="line"><a id="l00788" name="l00788"></a><span class="lineno">  788</span>    lfil = 1</div>
+<div class="line"><a id="l00789" name="l00789"></a><span class="lineno">  789</span>    <span class="keywordflow">do</span> i = 1, m</div>
+<div class="line"><a id="l00790" name="l00790"></a><span class="lineno">  790</span>        lfil = max(lfil, a%row_indices(i+1) - a%row_indices(i))</div>
+<div class="line"><a id="l00791" name="l00791"></a><span class="lineno">  791</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00792" name="l00792"></a><span class="lineno">  792</span>    iwk = max(lfil * m, nnz)  <span class="comment">! somewhat arbitrary - can be adjusted</span></div>
+<div class="line"><a id="l00793" name="l00793"></a><span class="lineno">  793</span> </div>
+<div class="line"><a id="l00794" name="l00794"></a><span class="lineno">  794</span>    <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l00795" name="l00795"></a><span class="lineno">  795</span>    <span class="keyword">allocate</span>(alu(iwk), w(n+1), jlu(iwk), ju(n), jw(2 * n), stat = flag)</div>
+<div class="line"><a id="l00796" name="l00796"></a><span class="lineno">  796</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00797" name="l00797"></a><span class="lineno">  797</span> </div>
+<div class="line"><a id="l00798" name="l00798"></a><span class="lineno">  798</span>    <span class="comment">! Factorization</span></div>
+<div class="line"><a id="l00799" name="l00799"></a><span class="lineno">  799</span>    <span class="keywordflow">do</span></div>
+<div class="line"><a id="l00800" name="l00800"></a><span class="lineno">  800</span>        <span class="comment">! Factor the matrix</span></div>
+<div class="line"><a id="l00801" name="l00801"></a><span class="lineno">  801</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1ilut.html">ilut</a>(n, a%values, a%column_indices, a%row_indices, lfil, dt, &amp;</div>
+<div class="line"><a id="l00802" name="l00802"></a><span class="lineno">  802</span>            alu, jlu, ju, iwk, w, jw, ierr)</div>
+<div class="line"><a id="l00803" name="l00803"></a><span class="lineno">  803</span> </div>
+<div class="line"><a id="l00804" name="l00804"></a><span class="lineno">  804</span>        <span class="comment">! Check the error flag</span></div>
+<div class="line"><a id="l00805" name="l00805"></a><span class="lineno">  805</span>        <span class="keywordflow">if</span> (ierr == 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00806" name="l00806"></a><span class="lineno">  806</span>            <span class="comment">! Success</span></div>
+<div class="line"><a id="l00807" name="l00807"></a><span class="lineno">  807</span>            <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l00808" name="l00808"></a><span class="lineno">  808</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00809" name="l00809"></a><span class="lineno">  809</span>            <span class="comment">! Zero pivot</span></div>
+<div class="line"><a id="l00810" name="l00810"></a><span class="lineno">  810</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00811" name="l00811"></a><span class="lineno">  811</span>            <span class="comment">! The input matrix is not formatted correctly</span></div>
+<div class="line"><a id="l00812" name="l00812"></a><span class="lineno">  812</span>            <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l00813" name="l00813"></a><span class="lineno">  813</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -2 .or. ierr == -3) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00814" name="l00814"></a><span class="lineno">  814</span>            <span class="comment">! ALU and JLU are too small - try something larger</span></div>
+<div class="line"><a id="l00815" name="l00815"></a><span class="lineno">  815</span>            iwk = min(iwk + m + n, m * n)</div>
+<div class="line"><a id="l00816" name="l00816"></a><span class="lineno">  816</span>            <span class="keyword">deallocate</span>(alu)</div>
+<div class="line"><a id="l00817" name="l00817"></a><span class="lineno">  817</span>            <span class="keyword">deallocate</span>(jlu)</div>
+<div class="line"><a id="l00818" name="l00818"></a><span class="lineno">  818</span>            <span class="keyword">allocate</span>(alu(iwk), jlu(iwk), stat = flag)</div>
+<div class="line"><a id="l00819" name="l00819"></a><span class="lineno">  819</span>            <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l00820" name="l00820"></a><span class="lineno">  820</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -4) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00821" name="l00821"></a><span class="lineno">  821</span>            <span class="comment">! Illegal value for LFIL - reset and try again</span></div>
+<div class="line"><a id="l00822" name="l00822"></a><span class="lineno">  822</span>            lfil = n</div>
+<div class="line"><a id="l00823" name="l00823"></a><span class="lineno">  823</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -5) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00824" name="l00824"></a><span class="lineno">  824</span>            <span class="comment">! Zero row encountered</span></div>
+<div class="line"><a id="l00825" name="l00825"></a><span class="lineno">  825</span>            <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l00826" name="l00826"></a><span class="lineno">  826</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00827" name="l00827"></a><span class="lineno">  827</span>            <span class="comment">! We should never get here, but just in case</span></div>
+<div class="line"><a id="l00828" name="l00828"></a><span class="lineno">  828</span>            <span class="keywordflow">go to</span> 40</div>
+<div class="line"><a id="l00829" name="l00829"></a><span class="lineno">  829</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l00830" name="l00830"></a><span class="lineno">  830</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l00831" name="l00831"></a><span class="lineno">  831</span> </div>
+<div class="line"><a id="l00832" name="l00832"></a><span class="lineno">  832</span>    <span class="comment">! Solution</span></div>
+<div class="line"><a id="l00833" name="l00833"></a><span class="lineno">  833</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1lusol.html">lusol</a>(n, b, x, alu, jlu, ju)</div>
+<div class="line"><a id="l00834" name="l00834"></a><span class="lineno">  834</span> </div>
+<div class="line"><a id="l00835" name="l00835"></a><span class="lineno">  835</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l00836" name="l00836"></a><span class="lineno">  836</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00837" name="l00837"></a><span class="lineno">  837</span> </div>
+<div class="line"><a id="l00838" name="l00838"></a><span class="lineno">  838</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l00839" name="l00839"></a><span class="lineno">  839</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00840" name="l00840"></a><span class="lineno">  840</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00841" name="l00841"></a><span class="lineno">  841</span>        <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00842" name="l00842"></a><span class="lineno">  842</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00843" name="l00843"></a><span class="lineno">  843</span> </div>
+<div class="line"><a id="l00844" name="l00844"></a><span class="lineno">  844</span>    <span class="comment">! Matrix Format Error</span></div>
+<div class="line"><a id="l00845" name="l00845"></a><span class="lineno">  845</span>20  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00846" name="l00846"></a><span class="lineno">  846</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00847" name="l00847"></a><span class="lineno">  847</span>        <span class="stringliteral">&quot;The input matrix was incorrectly formatted.  A row with more &quot;</span> // &amp;</div>
+<div class="line"><a id="l00848" name="l00848"></a><span class="lineno">  848</span>        <span class="stringliteral">&quot;than N entries was found.&quot;</span>, la_matrix_format_error)</div>
+<div class="line"><a id="l00849" name="l00849"></a><span class="lineno">  849</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00850" name="l00850"></a><span class="lineno">  850</span> </div>
+<div class="line"><a id="l00851" name="l00851"></a><span class="lineno">  851</span>    <span class="comment">! Zero Row Error</span></div>
+<div class="line"><a id="l00852" name="l00852"></a><span class="lineno">  852</span>30  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00853" name="l00853"></a><span class="lineno">  853</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00854" name="l00854"></a><span class="lineno">  854</span>        <span class="stringliteral">&quot;A row with all zeros was encountered in the matrix.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00855" name="l00855"></a><span class="lineno">  855</span>        la_singular_matrix_error)</div>
+<div class="line"><a id="l00856" name="l00856"></a><span class="lineno">  856</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00857" name="l00857"></a><span class="lineno">  857</span> </div>
+<div class="line"><a id="l00858" name="l00858"></a><span class="lineno">  858</span>    <span class="comment">! Unknown Error</span></div>
+<div class="line"><a id="l00859" name="l00859"></a><span class="lineno">  859</span>40  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00860" name="l00860"></a><span class="lineno">  860</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, <span class="stringliteral">&quot;ILUT encountered &quot;</span> // &amp;</div>
+<div class="line"><a id="l00861" name="l00861"></a><span class="lineno">  861</span>        <span class="stringliteral">&quot;an unknown error.  The error code from the ILUT routine is &quot;</span> // &amp;</div>
+<div class="line"><a id="l00862" name="l00862"></a><span class="lineno">  862</span>        <span class="stringliteral">&quot;provided in the output.&quot;</span>, ierr)</div>
+<div class="line"><a id="l00863" name="l00863"></a><span class="lineno">  863</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00864" name="l00864"></a><span class="lineno">  864</span> </div>
+<div class="line"><a id="l00865" name="l00865"></a><span class="lineno">  865</span>    <span class="comment">! Zero Pivot Error</span></div>
+<div class="line"><a id="l00866" name="l00866"></a><span class="lineno">  866</span>50  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l00867" name="l00867"></a><span class="lineno">  867</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, &amp;</div>
+<div class="line"><a id="l00868" name="l00868"></a><span class="lineno">  868</span>        <span class="stringliteral">&quot;A zero pivot was encountered.&quot;</span>, la_singular_matrix_error)</div>
+<div class="line"><a id="l00869" name="l00869"></a><span class="lineno">  869</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00870" name="l00870"></a><span class="lineno">  870</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00871" name="l00871"></a><span class="lineno">  871</span> </div>
+<div class="line"><a id="l00872" name="l00872"></a><span class="lineno">  872</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l00873" name="l00873"></a><span class="lineno">  873</span><span class="comment">! MSR ROUTINES</span></div>
+<div class="line"><a id="l00874" name="l00874"></a><span class="lineno">  874</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00875" name="l00875"></a><span class="lineno">  875</span><span class="comment">! TO DO: MSR_GET_ELEMENT</span></div>
+<div class="line"><a id="l00876" name="l00876"></a><span class="lineno">  876</span> </div>
+<div class="line"><a id="l00877" name="l00877"></a><span class="lineno">  877</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00878" name="l00878"></a><span class="lineno">  878</span><span class="keywordtype">pure</span> <span class="keyword">module</span> function msr_size(x, dim) result(rst)</div>
+<div class="line"><a id="l00879" name="l00879"></a><span class="lineno">  879</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00880" name="l00880"></a><span class="lineno">  880</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l00881" name="l00881"></a><span class="lineno">  881</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: dim</div>
+<div class="line"><a id="l00882" name="l00882"></a><span class="lineno">  882</span>    <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l00883" name="l00883"></a><span class="lineno">  883</span> </div>
+<div class="line"><a id="l00884" name="l00884"></a><span class="lineno">  884</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00885" name="l00885"></a><span class="lineno">  885</span>    <span class="keywordflow">select case</span> (dim)</div>
+<div class="line"><a id="l00886" name="l00886"></a><span class="lineno">  886</span>    <span class="keywordflow">case</span> (1)</div>
+<div class="line"><a id="l00887" name="l00887"></a><span class="lineno">  887</span>        rst = x%m</div>
+<div class="line"><a id="l00888" name="l00888"></a><span class="lineno">  888</span>    <span class="keywordflow">case</span> (2)</div>
+<div class="line"><a id="l00889" name="l00889"></a><span class="lineno">  889</span>        rst = x%n</div>
+<div class="line"><a id="l00890" name="l00890"></a><span class="lineno">  890</span><span class="keywordflow">    case default</span></div>
+<div class="line"><a id="l00891" name="l00891"></a><span class="lineno">  891</span>        rst = 0</div>
+<div class="line"><a id="l00892" name="l00892"></a><span class="lineno">  892</span><span class="keywordflow">    end select</span></div>
+<div class="line"><a id="l00893" name="l00893"></a><span class="lineno">  893</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00894" name="l00894"></a><span class="lineno">  894</span> </div>
+<div class="line"><a id="l00895" name="l00895"></a><span class="lineno">  895</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00896" name="l00896"></a><span class="lineno">  896</span><span class="keywordtype">pure</span> <span class="keyword">module</span> function nonzero_count_msr(x) result(rst)</div>
+<div class="line"><a id="l00897" name="l00897"></a><span class="lineno">  897</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00898" name="l00898"></a><span class="lineno">  898</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: x</div>
+<div class="line"><a id="l00899" name="l00899"></a><span class="lineno">  899</span>    <span class="keywordtype">integer(int32)</span> :: rst</div>
+<div class="line"><a id="l00900" name="l00900"></a><span class="lineno">  900</span> </div>
+<div class="line"><a id="l00901" name="l00901"></a><span class="lineno">  901</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l00902" name="l00902"></a><span class="lineno">  902</span>    rst = x%nnz</div>
+<div class="line"><a id="l00903" name="l00903"></a><span class="lineno">  903</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00904" name="l00904"></a><span class="lineno">  904</span> </div>
+<div class="line"><a id="l00905" name="l00905"></a><span class="lineno">  905</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00906" name="l00906"></a><span class="lineno">  906</span><span class="keyword">module</span> function create_empty_msr_matrix(m, n, nnz, err) result(rst)</div>
+<div class="line"><a id="l00907" name="l00907"></a><span class="lineno">  907</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00908" name="l00908"></a><span class="lineno">  908</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: m, n, nnz</div>
+<div class="line"><a id="l00909" name="l00909"></a><span class="lineno">  909</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00910" name="l00910"></a><span class="lineno">  910</span>    <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l00911" name="l00911"></a><span class="lineno">  911</span> </div>
+<div class="line"><a id="l00912" name="l00912"></a><span class="lineno">  912</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00913" name="l00913"></a><span class="lineno">  913</span>    <span class="keywordtype">integer(int32)</span> :: nelem, mn, flag</div>
+<div class="line"><a id="l00914" name="l00914"></a><span class="lineno">  914</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00915" name="l00915"></a><span class="lineno">  915</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00916" name="l00916"></a><span class="lineno">  916</span>    </div>
+<div class="line"><a id="l00917" name="l00917"></a><span class="lineno">  917</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00918" name="l00918"></a><span class="lineno">  918</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00919" name="l00919"></a><span class="lineno">  919</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00920" name="l00920"></a><span class="lineno">  920</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00921" name="l00921"></a><span class="lineno">  921</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00922" name="l00922"></a><span class="lineno">  922</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00923" name="l00923"></a><span class="lineno">  923</span> </div>
+<div class="line"><a id="l00924" name="l00924"></a><span class="lineno">  924</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l00925" name="l00925"></a><span class="lineno">  925</span>    <span class="keywordflow">if</span> (m &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00926" name="l00926"></a><span class="lineno">  926</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_msr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00927" name="l00927"></a><span class="lineno">  927</span>            <span class="stringliteral">&quot;The number of rows must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00928" name="l00928"></a><span class="lineno">  928</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00929" name="l00929"></a><span class="lineno">  929</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00930" name="l00930"></a><span class="lineno">  930</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00931" name="l00931"></a><span class="lineno">  931</span>    <span class="keywordflow">if</span> (n &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00932" name="l00932"></a><span class="lineno">  932</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_msr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00933" name="l00933"></a><span class="lineno">  933</span>            <span class="stringliteral">&quot;The number of columns must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00934" name="l00934"></a><span class="lineno">  934</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00935" name="l00935"></a><span class="lineno">  935</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00936" name="l00936"></a><span class="lineno">  936</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00937" name="l00937"></a><span class="lineno">  937</span>    <span class="keywordflow">if</span> (nnz &lt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00938" name="l00938"></a><span class="lineno">  938</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_msr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00939" name="l00939"></a><span class="lineno">  939</span>            <span class="stringliteral">&quot;The number of non-zero values must be a positive value.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00940" name="l00940"></a><span class="lineno">  940</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l00941" name="l00941"></a><span class="lineno">  941</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00942" name="l00942"></a><span class="lineno">  942</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00943" name="l00943"></a><span class="lineno">  943</span> </div>
+<div class="line"><a id="l00944" name="l00944"></a><span class="lineno">  944</span>    <span class="comment">! Allocation</span></div>
+<div class="line"><a id="l00945" name="l00945"></a><span class="lineno">  945</span>    rst%m = m</div>
+<div class="line"><a id="l00946" name="l00946"></a><span class="lineno">  946</span>    rst%n = n</div>
+<div class="line"><a id="l00947" name="l00947"></a><span class="lineno">  947</span>    rst%nnz = nnz</div>
+<div class="line"><a id="l00948" name="l00948"></a><span class="lineno">  948</span>    mn = min(m, n)</div>
+<div class="line"><a id="l00949" name="l00949"></a><span class="lineno">  949</span>    nelem = m + 1 + nnz - mn</div>
+<div class="line"><a id="l00950" name="l00950"></a><span class="lineno">  950</span>    <span class="keyword">allocate</span>(rst%indices(nelem), source = 0, stat = flag)</div>
+<div class="line"><a id="l00951" name="l00951"></a><span class="lineno">  951</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(rst%values(nelem), source = 0.0d0, stat = flag)</div>
+<div class="line"><a id="l00952" name="l00952"></a><span class="lineno">  952</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00953" name="l00953"></a><span class="lineno">  953</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;create_empty_msr_matrix&quot;</span>, &amp;</div>
+<div class="line"><a id="l00954" name="l00954"></a><span class="lineno">  954</span>            <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l00955" name="l00955"></a><span class="lineno">  955</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00956" name="l00956"></a><span class="lineno">  956</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00957" name="l00957"></a><span class="lineno">  957</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00958" name="l00958"></a><span class="lineno">  958</span> </div>
+<div class="line"><a id="l00959" name="l00959"></a><span class="lineno">  959</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l00960" name="l00960"></a><span class="lineno">  960</span><span class="keyword">module</span> function csr_to_msr(a, err) result(rst)</div>
+<div class="line"><a id="l00961" name="l00961"></a><span class="lineno">  961</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l00962" name="l00962"></a><span class="lineno">  962</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l00963" name="l00963"></a><span class="lineno">  963</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l00964" name="l00964"></a><span class="lineno">  964</span>    <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l00965" name="l00965"></a><span class="lineno">  965</span> </div>
+<div class="line"><a id="l00966" name="l00966"></a><span class="lineno">  966</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l00967" name="l00967"></a><span class="lineno">  967</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz, flag</div>
+<div class="line"><a id="l00968" name="l00968"></a><span class="lineno">  968</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: iwork, jc, ic</div>
+<div class="line"><a id="l00969" name="l00969"></a><span class="lineno">  969</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: work, ac</div>
+<div class="line"><a id="l00970" name="l00970"></a><span class="lineno">  970</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l00971" name="l00971"></a><span class="lineno">  971</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l00972" name="l00972"></a><span class="lineno">  972</span>    </div>
+<div class="line"><a id="l00973" name="l00973"></a><span class="lineno">  973</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l00974" name="l00974"></a><span class="lineno">  974</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00975" name="l00975"></a><span class="lineno">  975</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l00976" name="l00976"></a><span class="lineno">  976</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l00977" name="l00977"></a><span class="lineno">  977</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l00978" name="l00978"></a><span class="lineno">  978</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00979" name="l00979"></a><span class="lineno">  979</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l00980" name="l00980"></a><span class="lineno">  980</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l00981" name="l00981"></a><span class="lineno">  981</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l00982" name="l00982"></a><span class="lineno">  982</span> </div>
+<div class="line"><a id="l00983" name="l00983"></a><span class="lineno">  983</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l00984" name="l00984"></a><span class="lineno">  984</span>    rst = create_empty_msr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l00985" name="l00985"></a><span class="lineno">  985</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00986" name="l00986"></a><span class="lineno">  986</span>    <span class="keyword">allocate</span>(work(m), iwork(m + 1), stat = flag)</div>
+<div class="line"><a id="l00987" name="l00987"></a><span class="lineno">  987</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(ac(nnz), source = a%values, stat = flag)</div>
+<div class="line"><a id="l00988" name="l00988"></a><span class="lineno">  988</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(jc(nnz), source = a%column_indices, stat = flag)</div>
+<div class="line"><a id="l00989" name="l00989"></a><span class="lineno">  989</span>    <span class="keywordflow">if</span> (flag == 0) <span class="keyword">allocate</span>(ic(m+1), source = a%row_indices, stat = flag)</div>
+<div class="line"><a id="l00990" name="l00990"></a><span class="lineno">  990</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l00991" name="l00991"></a><span class="lineno">  991</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_to_msr&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l00992" name="l00992"></a><span class="lineno">  992</span>            la_out_of_memory_error)</div>
+<div class="line"><a id="l00993" name="l00993"></a><span class="lineno">  993</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l00994" name="l00994"></a><span class="lineno">  994</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l00995" name="l00995"></a><span class="lineno">  995</span> </div>
+<div class="line"><a id="l00996" name="l00996"></a><span class="lineno">  996</span>    <span class="comment">! Perform the conversion</span></div>
+<div class="line"><a id="l00997" name="l00997"></a><span class="lineno">  997</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1csrmsr.html">csrmsr</a>(m, ac, jc, ic, rst%values, rst%indices, work, iwork)</div>
+<div class="line"><a id="l00998" name="l00998"></a><span class="lineno">  998</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l00999" name="l00999"></a><span class="lineno">  999</span> </div>
+<div class="line"><a id="l01000" name="l01000"></a><span class="lineno"> 1000</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01001" name="l01001"></a><span class="lineno"> 1001</span><span class="keyword">module</span> function msr_to_csr(a, err) result(rst)</div>
+<div class="line"><a id="l01002" name="l01002"></a><span class="lineno"> 1002</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01003" name="l01003"></a><span class="lineno"> 1003</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l01004" name="l01004"></a><span class="lineno"> 1004</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01005" name="l01005"></a><span class="lineno"> 1005</span>    <span class="keywordtype">type</span>(csr_matrix) :: rst</div>
+<div class="line"><a id="l01006" name="l01006"></a><span class="lineno"> 1006</span> </div>
+<div class="line"><a id="l01007" name="l01007"></a><span class="lineno"> 1007</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01008" name="l01008"></a><span class="lineno"> 1008</span>    <span class="keywordtype">integer(int32)</span> :: m, n, nnz, flag</div>
+<div class="line"><a id="l01009" name="l01009"></a><span class="lineno"> 1009</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: iwork</div>
+<div class="line"><a id="l01010" name="l01010"></a><span class="lineno"> 1010</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: work</div>
+<div class="line"><a id="l01011" name="l01011"></a><span class="lineno"> 1011</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01012" name="l01012"></a><span class="lineno"> 1012</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01013" name="l01013"></a><span class="lineno"> 1013</span>    </div>
+<div class="line"><a id="l01014" name="l01014"></a><span class="lineno"> 1014</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01015" name="l01015"></a><span class="lineno"> 1015</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01016" name="l01016"></a><span class="lineno"> 1016</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01017" name="l01017"></a><span class="lineno"> 1017</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01018" name="l01018"></a><span class="lineno"> 1018</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01019" name="l01019"></a><span class="lineno"> 1019</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01020" name="l01020"></a><span class="lineno"> 1020</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01021" name="l01021"></a><span class="lineno"> 1021</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l01022" name="l01022"></a><span class="lineno"> 1022</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l01023" name="l01023"></a><span class="lineno"> 1023</span> </div>
+<div class="line"><a id="l01024" name="l01024"></a><span class="lineno"> 1024</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l01025" name="l01025"></a><span class="lineno"> 1025</span>    rst = create_empty_csr_matrix(m, n, nnz, errmgr)</div>
+<div class="line"><a id="l01026" name="l01026"></a><span class="lineno"> 1026</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01027" name="l01027"></a><span class="lineno"> 1027</span>    <span class="keyword">allocate</span>(work(m), iwork(m+1), stat = flag)</div>
+<div class="line"><a id="l01028" name="l01028"></a><span class="lineno"> 1028</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01029" name="l01029"></a><span class="lineno"> 1029</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;msr_to_csr&quot;</span>, <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01030" name="l01030"></a><span class="lineno"> 1030</span>            la_out_of_memory_error)</div>
+<div class="line"><a id="l01031" name="l01031"></a><span class="lineno"> 1031</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01032" name="l01032"></a><span class="lineno"> 1032</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01033" name="l01033"></a><span class="lineno"> 1033</span> </div>
+<div class="line"><a id="l01034" name="l01034"></a><span class="lineno"> 1034</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01035" name="l01035"></a><span class="lineno"> 1035</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1msrcsr.html">msrcsr</a>(m, a%values, a%indices, rst%values, rst%column_indices, &amp;</div>
+<div class="line"><a id="l01036" name="l01036"></a><span class="lineno"> 1036</span>        rst%row_indices, work, iwork)</div>
+<div class="line"><a id="l01037" name="l01037"></a><span class="lineno"> 1037</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l01038" name="l01038"></a><span class="lineno"> 1038</span> </div>
+<div class="line"><a id="l01039" name="l01039"></a><span class="lineno"> 1039</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01040" name="l01040"></a><span class="lineno"> 1040</span><span class="keyword">module</span> function dense_to_msr(a, err) result(rst)</div>
+<div class="line"><a id="l01041" name="l01041"></a><span class="lineno"> 1041</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01042" name="l01042"></a><span class="lineno"> 1042</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: a</div>
+<div class="line"><a id="l01043" name="l01043"></a><span class="lineno"> 1043</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01044" name="l01044"></a><span class="lineno"> 1044</span>    <span class="keywordtype">type</span>(msr_matrix) :: rst</div>
+<div class="line"><a id="l01045" name="l01045"></a><span class="lineno"> 1045</span> </div>
+<div class="line"><a id="l01046" name="l01046"></a><span class="lineno"> 1046</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01047" name="l01047"></a><span class="lineno"> 1047</span>    <span class="keywordtype">type</span>(csr_matrix) :: csr</div>
+<div class="line"><a id="l01048" name="l01048"></a><span class="lineno"> 1048</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01049" name="l01049"></a><span class="lineno"> 1049</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01050" name="l01050"></a><span class="lineno"> 1050</span>    </div>
+<div class="line"><a id="l01051" name="l01051"></a><span class="lineno"> 1051</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01052" name="l01052"></a><span class="lineno"> 1052</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01053" name="l01053"></a><span class="lineno"> 1053</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01054" name="l01054"></a><span class="lineno"> 1054</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01055" name="l01055"></a><span class="lineno"> 1055</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01056" name="l01056"></a><span class="lineno"> 1056</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01057" name="l01057"></a><span class="lineno"> 1057</span> </div>
+<div class="line"><a id="l01058" name="l01058"></a><span class="lineno"> 1058</span>    <span class="comment">! Convert to CSR, and then from CSR to MSR</span></div>
+<div class="line"><a id="l01059" name="l01059"></a><span class="lineno"> 1059</span>    csr = dense_to_csr(a, errmgr)</div>
+<div class="line"><a id="l01060" name="l01060"></a><span class="lineno"> 1060</span> </div>
+<div class="line"><a id="l01061" name="l01061"></a><span class="lineno"> 1061</span>    <span class="comment">! Convert to MSR</span></div>
+<div class="line"><a id="l01062" name="l01062"></a><span class="lineno"> 1062</span>    rst = csr_to_msr(csr, errmgr)</div>
+<div class="line"><a id="l01063" name="l01063"></a><span class="lineno"> 1063</span><span class="keyword">end function</span></div>
+<div class="line"><a id="l01064" name="l01064"></a><span class="lineno"> 1064</span> </div>
+<div class="line"><a id="l01065" name="l01065"></a><span class="lineno"> 1065</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01066" name="l01066"></a><span class="lineno"> 1066</span><span class="keyword">module</span> subroutine msr_to_dense(a, x, err)</div>
+<div class="line"><a id="l01067" name="l01067"></a><span class="lineno"> 1067</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01068" name="l01068"></a><span class="lineno"> 1068</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l01069" name="l01069"></a><span class="lineno"> 1069</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: x</div>
+<div class="line"><a id="l01070" name="l01070"></a><span class="lineno"> 1070</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01071" name="l01071"></a><span class="lineno"> 1071</span> </div>
+<div class="line"><a id="l01072" name="l01072"></a><span class="lineno"> 1072</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01073" name="l01073"></a><span class="lineno"> 1073</span>    <span class="keywordtype">integer(int32)</span> :: m, n, flag</div>
+<div class="line"><a id="l01074" name="l01074"></a><span class="lineno"> 1074</span>    <span class="keywordtype">type</span>(csr_matrix) :: csr</div>
+<div class="line"><a id="l01075" name="l01075"></a><span class="lineno"> 1075</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01076" name="l01076"></a><span class="lineno"> 1076</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01077" name="l01077"></a><span class="lineno"> 1077</span>    </div>
+<div class="line"><a id="l01078" name="l01078"></a><span class="lineno"> 1078</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01079" name="l01079"></a><span class="lineno"> 1079</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01080" name="l01080"></a><span class="lineno"> 1080</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01081" name="l01081"></a><span class="lineno"> 1081</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01082" name="l01082"></a><span class="lineno"> 1082</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01083" name="l01083"></a><span class="lineno"> 1083</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01084" name="l01084"></a><span class="lineno"> 1084</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01085" name="l01085"></a><span class="lineno"> 1085</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l01086" name="l01086"></a><span class="lineno"> 1086</span> </div>
+<div class="line"><a id="l01087" name="l01087"></a><span class="lineno"> 1087</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01088" name="l01088"></a><span class="lineno"> 1088</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(x, 1) /= m .or. <span class="keyword">size</span>(x, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01089" name="l01089"></a><span class="lineno"> 1089</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;msr_to_dense&quot;</span>, &amp;</div>
+<div class="line"><a id="l01090" name="l01090"></a><span class="lineno"> 1090</span>            <span class="stringliteral">&quot;The output matrix dimensions are not correct.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01091" name="l01091"></a><span class="lineno"> 1091</span>            la_array_size_error)</div>
+<div class="line"><a id="l01092" name="l01092"></a><span class="lineno"> 1092</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01093" name="l01093"></a><span class="lineno"> 1093</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01094" name="l01094"></a><span class="lineno"> 1094</span> </div>
+<div class="line"><a id="l01095" name="l01095"></a><span class="lineno"> 1095</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01096" name="l01096"></a><span class="lineno"> 1096</span>    csr = msr_to_csr(a, errmgr)</div>
+<div class="line"><a id="l01097" name="l01097"></a><span class="lineno"> 1097</span>    <span class="keywordflow">if</span> (errmgr%has_error_occurred()) <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01098" name="l01098"></a><span class="lineno"> 1098</span>    <span class="keyword">call </span>csr_to_dense(csr, x, errmgr)</div>
+<div class="line"><a id="l01099" name="l01099"></a><span class="lineno"> 1099</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01100" name="l01100"></a><span class="lineno"> 1100</span> </div>
+<div class="line"><a id="l01101" name="l01101"></a><span class="lineno"> 1101</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01102" name="l01102"></a><span class="lineno"> 1102</span><span class="keyword">module</span> subroutine msr_assign_to_dense(dense, msr)</div>
+<div class="line"><a id="l01103" name="l01103"></a><span class="lineno"> 1103</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01104" name="l01104"></a><span class="lineno"> 1104</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l01105" name="l01105"></a><span class="lineno"> 1105</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: msr</div>
+<div class="line"><a id="l01106" name="l01106"></a><span class="lineno"> 1106</span> </div>
+<div class="line"><a id="l01107" name="l01107"></a><span class="lineno"> 1107</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01108" name="l01108"></a><span class="lineno"> 1108</span>    <span class="keyword">call </span>msr_to_dense(msr, dense)</div>
+<div class="line"><a id="l01109" name="l01109"></a><span class="lineno"> 1109</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01110" name="l01110"></a><span class="lineno"> 1110</span> </div>
+<div class="line"><a id="l01111" name="l01111"></a><span class="lineno"> 1111</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01112" name="l01112"></a><span class="lineno"> 1112</span><span class="keyword">module</span> subroutine dense_assign_to_msr(msr, dense)</div>
+<div class="line"><a id="l01113" name="l01113"></a><span class="lineno"> 1113</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01114" name="l01114"></a><span class="lineno"> 1114</span>    <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: msr</div>
+<div class="line"><a id="l01115" name="l01115"></a><span class="lineno"> 1115</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:,:)</span> :: dense</div>
+<div class="line"><a id="l01116" name="l01116"></a><span class="lineno"> 1116</span> </div>
+<div class="line"><a id="l01117" name="l01117"></a><span class="lineno"> 1117</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01118" name="l01118"></a><span class="lineno"> 1118</span>    msr = dense_to_msr(dense)</div>
+<div class="line"><a id="l01119" name="l01119"></a><span class="lineno"> 1119</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01120" name="l01120"></a><span class="lineno"> 1120</span> </div>
+<div class="line"><a id="l01121" name="l01121"></a><span class="lineno"> 1121</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01122" name="l01122"></a><span class="lineno"> 1122</span><span class="keyword">module</span> subroutine csr_assign_to_msr(msr, csr)</div>
+<div class="line"><a id="l01123" name="l01123"></a><span class="lineno"> 1123</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01124" name="l01124"></a><span class="lineno"> 1124</span>    <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: msr</div>
+<div class="line"><a id="l01125" name="l01125"></a><span class="lineno"> 1125</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: csr</div>
+<div class="line"><a id="l01126" name="l01126"></a><span class="lineno"> 1126</span> </div>
+<div class="line"><a id="l01127" name="l01127"></a><span class="lineno"> 1127</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01128" name="l01128"></a><span class="lineno"> 1128</span>    msr = csr_to_msr(csr)</div>
+<div class="line"><a id="l01129" name="l01129"></a><span class="lineno"> 1129</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01130" name="l01130"></a><span class="lineno"> 1130</span> </div>
+<div class="line"><a id="l01131" name="l01131"></a><span class="lineno"> 1131</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01132" name="l01132"></a><span class="lineno"> 1132</span><span class="keyword">module</span> subroutine msr_assign_to_csr(csr, msr)</div>
+<div class="line"><a id="l01133" name="l01133"></a><span class="lineno"> 1133</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01134" name="l01134"></a><span class="lineno"> 1134</span>    <span class="keywordtype">type</span>(csr_matrix), <span class="keywordtype">intent(out)</span> :: csr</div>
+<div class="line"><a id="l01135" name="l01135"></a><span class="lineno"> 1135</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: msr</div>
+<div class="line"><a id="l01136" name="l01136"></a><span class="lineno"> 1136</span> </div>
+<div class="line"><a id="l01137" name="l01137"></a><span class="lineno"> 1137</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01138" name="l01138"></a><span class="lineno"> 1138</span>    csr = msr_to_csr(msr)</div>
+<div class="line"><a id="l01139" name="l01139"></a><span class="lineno"> 1139</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01140" name="l01140"></a><span class="lineno"> 1140</span> </div>
+<div class="line"><a id="l01141" name="l01141"></a><span class="lineno"> 1141</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l01142" name="l01142"></a><span class="lineno"> 1142</span><span class="comment">! LU PRECONDITIONER ROUTINES</span></div>
+<div class="line"><a id="l01143" name="l01143"></a><span class="lineno"> 1143</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01144" name="l01144"></a><span class="lineno"> 1144</span><span class="keyword">module</span> subroutine csr_lu_factor(a, lu, ju, droptol, err)</div>
+<div class="line"><a id="l01145" name="l01145"></a><span class="lineno"> 1145</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01146" name="l01146"></a><span class="lineno"> 1146</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l01147" name="l01147"></a><span class="lineno"> 1147</span>    <span class="keywordtype">type</span>(msr_matrix), <span class="keywordtype">intent(out)</span> :: lu</div>
+<div class="line"><a id="l01148" name="l01148"></a><span class="lineno"> 1148</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l01149" name="l01149"></a><span class="lineno"> 1149</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: droptol</div>
+<div class="line"><a id="l01150" name="l01150"></a><span class="lineno"> 1150</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01151" name="l01151"></a><span class="lineno"> 1151</span> </div>
+<div class="line"><a id="l01152" name="l01152"></a><span class="lineno"> 1152</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01153" name="l01153"></a><span class="lineno"> 1153</span>    <span class="keywordtype">integer(int32)</span> :: i, m, n, nn, nnz, lfil, iwk, ierr, flag</div>
+<div class="line"><a id="l01154" name="l01154"></a><span class="lineno"> 1154</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: jlu, jw</div>
+<div class="line"><a id="l01155" name="l01155"></a><span class="lineno"> 1155</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:)</span> :: alu, w</div>
+<div class="line"><a id="l01156" name="l01156"></a><span class="lineno"> 1156</span><span class="keywordtype">    real</span>(real64) :: dt</div>
+<div class="line"><a id="l01157" name="l01157"></a><span class="lineno"> 1157</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01158" name="l01158"></a><span class="lineno"> 1158</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01159" name="l01159"></a><span class="lineno"> 1159</span>    </div>
+<div class="line"><a id="l01160" name="l01160"></a><span class="lineno"> 1160</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01161" name="l01161"></a><span class="lineno"> 1161</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01162" name="l01162"></a><span class="lineno"> 1162</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01163" name="l01163"></a><span class="lineno"> 1163</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01164" name="l01164"></a><span class="lineno"> 1164</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01165" name="l01165"></a><span class="lineno"> 1165</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01166" name="l01166"></a><span class="lineno"> 1166</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(droptol)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01167" name="l01167"></a><span class="lineno"> 1167</span>        dt = droptol</div>
+<div class="line"><a id="l01168" name="l01168"></a><span class="lineno"> 1168</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01169" name="l01169"></a><span class="lineno"> 1169</span>        dt = sqrt(epsilon(dt))</div>
+<div class="line"><a id="l01170" name="l01170"></a><span class="lineno"> 1170</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01171" name="l01171"></a><span class="lineno"> 1171</span>    m = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01172" name="l01172"></a><span class="lineno"> 1172</span>    n = <span class="keyword">size</span>(a, 2)</div>
+<div class="line"><a id="l01173" name="l01173"></a><span class="lineno"> 1173</span>    nnz = nonzero_count(a)</div>
+<div class="line"><a id="l01174" name="l01174"></a><span class="lineno"> 1174</span> </div>
+<div class="line"><a id="l01175" name="l01175"></a><span class="lineno"> 1175</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01176" name="l01176"></a><span class="lineno"> 1176</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(ju) /= m) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01177" name="l01177"></a><span class="lineno"> 1177</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_factor&quot;</span>, &amp;</div>
+<div class="line"><a id="l01178" name="l01178"></a><span class="lineno"> 1178</span>            <span class="stringliteral">&quot;U row tracking array is not sized correctly.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01179" name="l01179"></a><span class="lineno"> 1179</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01180" name="l01180"></a><span class="lineno"> 1180</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01181" name="l01181"></a><span class="lineno"> 1181</span> </div>
+<div class="line"><a id="l01182" name="l01182"></a><span class="lineno"> 1182</span>    <span class="comment">! Parameter Determination</span></div>
+<div class="line"><a id="l01183" name="l01183"></a><span class="lineno"> 1183</span>    lfil = 1</div>
+<div class="line"><a id="l01184" name="l01184"></a><span class="lineno"> 1184</span>    <span class="keywordflow">do</span> i = 1, m</div>
+<div class="line"><a id="l01185" name="l01185"></a><span class="lineno"> 1185</span>        lfil = max(lfil, a%row_indices(i+1) - a%row_indices(i))</div>
+<div class="line"><a id="l01186" name="l01186"></a><span class="lineno"> 1186</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l01187" name="l01187"></a><span class="lineno"> 1187</span>    iwk = max(lfil * m, nnz)  <span class="comment">! somewhat arbitrary - can be adjusted</span></div>
+<div class="line"><a id="l01188" name="l01188"></a><span class="lineno"> 1188</span> </div>
+<div class="line"><a id="l01189" name="l01189"></a><span class="lineno"> 1189</span>    <span class="comment">! Local Memory Allocation</span></div>
+<div class="line"><a id="l01190" name="l01190"></a><span class="lineno"> 1190</span>    <span class="keyword">allocate</span>(alu(iwk), w(n+1), jlu(iwk), jw(2 * n), stat = flag)</div>
+<div class="line"><a id="l01191" name="l01191"></a><span class="lineno"> 1191</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l01192" name="l01192"></a><span class="lineno"> 1192</span> </div>
+<div class="line"><a id="l01193" name="l01193"></a><span class="lineno"> 1193</span>    <span class="comment">! Factorization</span></div>
+<div class="line"><a id="l01194" name="l01194"></a><span class="lineno"> 1194</span>    <span class="keywordflow">do</span></div>
+<div class="line"><a id="l01195" name="l01195"></a><span class="lineno"> 1195</span>        <span class="comment">! Factor the matrix</span></div>
+<div class="line"><a id="l01196" name="l01196"></a><span class="lineno"> 1196</span>        <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1ilut.html">ilut</a>(n, a%values, a%column_indices, a%row_indices, lfil, dt, &amp;</div>
+<div class="line"><a id="l01197" name="l01197"></a><span class="lineno"> 1197</span>            alu, jlu, ju, iwk, w, jw, ierr)</div>
+<div class="line"><a id="l01198" name="l01198"></a><span class="lineno"> 1198</span> </div>
+<div class="line"><a id="l01199" name="l01199"></a><span class="lineno"> 1199</span>        <span class="comment">! Check the error flag</span></div>
+<div class="line"><a id="l01200" name="l01200"></a><span class="lineno"> 1200</span>        <span class="keywordflow">if</span> (ierr == 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01201" name="l01201"></a><span class="lineno"> 1201</span>            <span class="comment">! Success</span></div>
+<div class="line"><a id="l01202" name="l01202"></a><span class="lineno"> 1202</span>            <span class="keywordflow">exit</span></div>
+<div class="line"><a id="l01203" name="l01203"></a><span class="lineno"> 1203</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr &gt; 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01204" name="l01204"></a><span class="lineno"> 1204</span>            <span class="comment">! Zero pivot</span></div>
+<div class="line"><a id="l01205" name="l01205"></a><span class="lineno"> 1205</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01206" name="l01206"></a><span class="lineno"> 1206</span>            <span class="comment">! The input matrix is not formatted correctly</span></div>
+<div class="line"><a id="l01207" name="l01207"></a><span class="lineno"> 1207</span>            <span class="keywordflow">go to</span> 20</div>
+<div class="line"><a id="l01208" name="l01208"></a><span class="lineno"> 1208</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -2 .or. ierr == -3) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01209" name="l01209"></a><span class="lineno"> 1209</span>            <span class="comment">! ALU and JLU are too small - try something larger</span></div>
+<div class="line"><a id="l01210" name="l01210"></a><span class="lineno"> 1210</span>            <span class="comment">! This is the main reason for the loop - to offload worrying about</span></div>
+<div class="line"><a id="l01211" name="l01211"></a><span class="lineno"> 1211</span>            <span class="comment">! workspace size from the user</span></div>
+<div class="line"><a id="l01212" name="l01212"></a><span class="lineno"> 1212</span>            iwk = min(iwk + m + n, m * n)</div>
+<div class="line"><a id="l01213" name="l01213"></a><span class="lineno"> 1213</span>            <span class="keyword">deallocate</span>(alu)</div>
+<div class="line"><a id="l01214" name="l01214"></a><span class="lineno"> 1214</span>            <span class="keyword">deallocate</span>(jlu)</div>
+<div class="line"><a id="l01215" name="l01215"></a><span class="lineno"> 1215</span>            <span class="keyword">allocate</span>(alu(iwk), jlu(iwk), stat = flag)</div>
+<div class="line"><a id="l01216" name="l01216"></a><span class="lineno"> 1216</span>            <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l01217" name="l01217"></a><span class="lineno"> 1217</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -4) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01218" name="l01218"></a><span class="lineno"> 1218</span>            <span class="comment">! Illegal value for LFIL - reset and try again</span></div>
+<div class="line"><a id="l01219" name="l01219"></a><span class="lineno"> 1219</span>            lfil = n</div>
+<div class="line"><a id="l01220" name="l01220"></a><span class="lineno"> 1220</span>        <span class="keywordflow">else</span> <span class="keywordflow">if</span> (ierr == -5) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01221" name="l01221"></a><span class="lineno"> 1221</span>            <span class="comment">! Zero row encountered</span></div>
+<div class="line"><a id="l01222" name="l01222"></a><span class="lineno"> 1222</span>            <span class="keywordflow">go to</span> 30</div>
+<div class="line"><a id="l01223" name="l01223"></a><span class="lineno"> 1223</span>        <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01224" name="l01224"></a><span class="lineno"> 1224</span>            <span class="comment">! We should never get here, but just in case</span></div>
+<div class="line"><a id="l01225" name="l01225"></a><span class="lineno"> 1225</span>            <span class="keywordflow">go to</span> 40</div>
+<div class="line"><a id="l01226" name="l01226"></a><span class="lineno"> 1226</span><span class="keywordflow">        end if</span></div>
+<div class="line"><a id="l01227" name="l01227"></a><span class="lineno"> 1227</span><span class="keywordflow">    end do</span></div>
+<div class="line"><a id="l01228" name="l01228"></a><span class="lineno"> 1228</span> </div>
+<div class="line"><a id="l01229" name="l01229"></a><span class="lineno"> 1229</span>    <span class="comment">! Determine the actual number of non-zero elements</span></div>
+<div class="line"><a id="l01230" name="l01230"></a><span class="lineno"> 1230</span>    nnz = jlu(m+1) - 1</div>
+<div class="line"><a id="l01231" name="l01231"></a><span class="lineno"> 1231</span> </div>
+<div class="line"><a id="l01232" name="l01232"></a><span class="lineno"> 1232</span>    <span class="comment">! Copy the contents to the output arrays</span></div>
+<div class="line"><a id="l01233" name="l01233"></a><span class="lineno"> 1233</span>    lu%m = m</div>
+<div class="line"><a id="l01234" name="l01234"></a><span class="lineno"> 1234</span>    lu%n = n</div>
+<div class="line"><a id="l01235" name="l01235"></a><span class="lineno"> 1235</span>    lu%nnz = nnz</div>
+<div class="line"><a id="l01236" name="l01236"></a><span class="lineno"> 1236</span>    nn = m + 1 + nnz - min(m, n)</div>
+<div class="line"><a id="l01237" name="l01237"></a><span class="lineno"> 1237</span>    <span class="keyword">allocate</span>(lu%values(nn), source = alu(:nn), stat = flag)</div>
+<div class="line"><a id="l01238" name="l01238"></a><span class="lineno"> 1238</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">go to</span> 10</div>
+<div class="line"><a id="l01239" name="l01239"></a><span class="lineno"> 1239</span>    <span class="keyword">allocate</span>(lu%indices(nn), source = jlu(:nn), stat = flag)</div>
+<div class="line"><a id="l01240" name="l01240"></a><span class="lineno"> 1240</span> </div>
+<div class="line"><a id="l01241" name="l01241"></a><span class="lineno"> 1241</span>    <span class="comment">! End</span></div>
+<div class="line"><a id="l01242" name="l01242"></a><span class="lineno"> 1242</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01243" name="l01243"></a><span class="lineno"> 1243</span> </div>
+<div class="line"><a id="l01244" name="l01244"></a><span class="lineno"> 1244</span>    <span class="comment">! Memory Error</span></div>
+<div class="line"><a id="l01245" name="l01245"></a><span class="lineno"> 1245</span>10  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l01246" name="l01246"></a><span class="lineno"> 1246</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_factor&quot;</span>, &amp;</div>
+<div class="line"><a id="l01247" name="l01247"></a><span class="lineno"> 1247</span>        <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l01248" name="l01248"></a><span class="lineno"> 1248</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01249" name="l01249"></a><span class="lineno"> 1249</span> </div>
+<div class="line"><a id="l01250" name="l01250"></a><span class="lineno"> 1250</span>    <span class="comment">! Matrix Format Error</span></div>
+<div class="line"><a id="l01251" name="l01251"></a><span class="lineno"> 1251</span>20  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l01252" name="l01252"></a><span class="lineno"> 1252</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_factor&quot;</span>, &amp;</div>
+<div class="line"><a id="l01253" name="l01253"></a><span class="lineno"> 1253</span>        <span class="stringliteral">&quot;The input matrix was incorrectly formatted.  A row with more &quot;</span> // &amp;</div>
+<div class="line"><a id="l01254" name="l01254"></a><span class="lineno"> 1254</span>        <span class="stringliteral">&quot;than N entries was found.&quot;</span>, la_matrix_format_error)</div>
+<div class="line"><a id="l01255" name="l01255"></a><span class="lineno"> 1255</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01256" name="l01256"></a><span class="lineno"> 1256</span> </div>
+<div class="line"><a id="l01257" name="l01257"></a><span class="lineno"> 1257</span>    <span class="comment">! Zero Row Error</span></div>
+<div class="line"><a id="l01258" name="l01258"></a><span class="lineno"> 1258</span>30  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l01259" name="l01259"></a><span class="lineno"> 1259</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_factor&quot;</span>, &amp;</div>
+<div class="line"><a id="l01260" name="l01260"></a><span class="lineno"> 1260</span>        <span class="stringliteral">&quot;A row with all zeros was encountered in the matrix.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01261" name="l01261"></a><span class="lineno"> 1261</span>        la_singular_matrix_error)</div>
+<div class="line"><a id="l01262" name="l01262"></a><span class="lineno"> 1262</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01263" name="l01263"></a><span class="lineno"> 1263</span> </div>
+<div class="line"><a id="l01264" name="l01264"></a><span class="lineno"> 1264</span>    <span class="comment">! Unknown Error</span></div>
+<div class="line"><a id="l01265" name="l01265"></a><span class="lineno"> 1265</span>40  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l01266" name="l01266"></a><span class="lineno"> 1266</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_solve_sparse_direct&quot;</span>, <span class="stringliteral">&quot;ILUT encountered &quot;</span> // &amp;</div>
+<div class="line"><a id="l01267" name="l01267"></a><span class="lineno"> 1267</span>        <span class="stringliteral">&quot;an unknown error.  The error code from the ILUT routine is &quot;</span> // &amp;</div>
+<div class="line"><a id="l01268" name="l01268"></a><span class="lineno"> 1268</span>        <span class="stringliteral">&quot;provided in the output.&quot;</span>, ierr)</div>
+<div class="line"><a id="l01269" name="l01269"></a><span class="lineno"> 1269</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01270" name="l01270"></a><span class="lineno"> 1270</span> </div>
+<div class="line"><a id="l01271" name="l01271"></a><span class="lineno"> 1271</span>    <span class="comment">! Zero Pivot Error</span></div>
+<div class="line"><a id="l01272" name="l01272"></a><span class="lineno"> 1272</span>50  <span class="keywordflow">continue</span></div>
+<div class="line"><a id="l01273" name="l01273"></a><span class="lineno"> 1273</span>    <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_factor&quot;</span>, &amp;</div>
+<div class="line"><a id="l01274" name="l01274"></a><span class="lineno"> 1274</span>        <span class="stringliteral">&quot;A zero pivot was encountered.&quot;</span>, la_singular_matrix_error)</div>
+<div class="line"><a id="l01275" name="l01275"></a><span class="lineno"> 1275</span>    <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01276" name="l01276"></a><span class="lineno"> 1276</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01277" name="l01277"></a><span class="lineno"> 1277</span> </div>
+<div class="line"><a id="l01278" name="l01278"></a><span class="lineno"> 1278</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01279" name="l01279"></a><span class="lineno"> 1279</span><span class="keyword">module</span> subroutine csr_lu_solve(lu, ju, b, x, err)</div>
+<div class="line"><a id="l01280" name="l01280"></a><span class="lineno"> 1280</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01281" name="l01281"></a><span class="lineno"> 1281</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: lu</div>
+<div class="line"><a id="l01282" name="l01282"></a><span class="lineno"> 1282</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l01283" name="l01283"></a><span class="lineno"> 1283</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l01284" name="l01284"></a><span class="lineno"> 1284</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l01285" name="l01285"></a><span class="lineno"> 1285</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01286" name="l01286"></a><span class="lineno"> 1286</span> </div>
+<div class="line"><a id="l01287" name="l01287"></a><span class="lineno"> 1287</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01288" name="l01288"></a><span class="lineno"> 1288</span>    <span class="keywordtype">integer(int32)</span> :: m, n</div>
+<div class="line"><a id="l01289" name="l01289"></a><span class="lineno"> 1289</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01290" name="l01290"></a><span class="lineno"> 1290</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01291" name="l01291"></a><span class="lineno"> 1291</span>    </div>
+<div class="line"><a id="l01292" name="l01292"></a><span class="lineno"> 1292</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01293" name="l01293"></a><span class="lineno"> 1293</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01294" name="l01294"></a><span class="lineno"> 1294</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01295" name="l01295"></a><span class="lineno"> 1295</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01296" name="l01296"></a><span class="lineno"> 1296</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01297" name="l01297"></a><span class="lineno"> 1297</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01298" name="l01298"></a><span class="lineno"> 1298</span>    m = <span class="keyword">size</span>(lu, 1)</div>
+<div class="line"><a id="l01299" name="l01299"></a><span class="lineno"> 1299</span>    n = <span class="keyword">size</span>(lu, 2)</div>
+<div class="line"><a id="l01300" name="l01300"></a><span class="lineno"> 1300</span> </div>
+<div class="line"><a id="l01301" name="l01301"></a><span class="lineno"> 1301</span>    <span class="comment">! Input Check</span></div>
+<div class="line"><a id="l01302" name="l01302"></a><span class="lineno"> 1302</span>    <span class="keywordflow">if</span> (m /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01303" name="l01303"></a><span class="lineno"> 1303</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_solve&quot;</span>, &amp;</div>
+<div class="line"><a id="l01304" name="l01304"></a><span class="lineno"> 1304</span>            <span class="stringliteral">&quot;The input matrix is expected to be square.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01305" name="l01305"></a><span class="lineno"> 1305</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01306" name="l01306"></a><span class="lineno"> 1306</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01307" name="l01307"></a><span class="lineno"> 1307</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(x) /= m) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01308" name="l01308"></a><span class="lineno"> 1308</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_solve&quot;</span>, &amp;</div>
+<div class="line"><a id="l01309" name="l01309"></a><span class="lineno"> 1309</span>            <span class="stringliteral">&quot;Inner matrix dimension mismatch.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01310" name="l01310"></a><span class="lineno"> 1310</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01311" name="l01311"></a><span class="lineno"> 1311</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01312" name="l01312"></a><span class="lineno"> 1312</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= m) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01313" name="l01313"></a><span class="lineno"> 1313</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_solve&quot;</span>, &amp;</div>
+<div class="line"><a id="l01314" name="l01314"></a><span class="lineno"> 1314</span>            <span class="stringliteral">&quot;The output array dimension does not match the rest of the problem.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01315" name="l01315"></a><span class="lineno"> 1315</span>            la_array_size_error)</div>
+<div class="line"><a id="l01316" name="l01316"></a><span class="lineno"> 1316</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01317" name="l01317"></a><span class="lineno"> 1317</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01318" name="l01318"></a><span class="lineno"> 1318</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(ju) /= m) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01319" name="l01319"></a><span class="lineno"> 1319</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_lu_solve&quot;</span>, &amp;</div>
+<div class="line"><a id="l01320" name="l01320"></a><span class="lineno"> 1320</span>            <span class="stringliteral">&quot;The U row tracking array is not sized correctly.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01321" name="l01321"></a><span class="lineno"> 1321</span>            la_array_size_error)</div>
+<div class="line"><a id="l01322" name="l01322"></a><span class="lineno"> 1322</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01323" name="l01323"></a><span class="lineno"> 1323</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01324" name="l01324"></a><span class="lineno"> 1324</span> </div>
+<div class="line"><a id="l01325" name="l01325"></a><span class="lineno"> 1325</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01326" name="l01326"></a><span class="lineno"> 1326</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1lusol.html">lusol</a>(m, b, x, lu%values, lu%indices, ju)</div>
+<div class="line"><a id="l01327" name="l01327"></a><span class="lineno"> 1327</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01328" name="l01328"></a><span class="lineno"> 1328</span> </div>
+<div class="line"><a id="l01329" name="l01329"></a><span class="lineno"> 1329</span><span class="comment">! ******************************************************************************</span></div>
+<div class="line"><a id="l01330" name="l01330"></a><span class="lineno"> 1330</span><span class="comment">! ITERATIVE SOLVERS</span></div>
+<div class="line"><a id="l01331" name="l01331"></a><span class="lineno"> 1331</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01332" name="l01332"></a><span class="lineno"> 1332</span><span class="comment">! Additional References:</span></div>
+<div class="line"><a id="l01333" name="l01333"></a><span class="lineno"> 1333</span><span class="comment">! - https://www.diva-portal.org/smash/get/diva2:360739/FULLTEXT01.pdf</span></div>
+<div class="line"><a id="l01334" name="l01334"></a><span class="lineno"> 1334</span><span class="keyword">module</span> subroutine csr_pgmres_solver(a, lu, ju, b, x, im, tol, maxits, iout, err)</div>
+<div class="line"><a id="l01335" name="l01335"></a><span class="lineno"> 1335</span>    <span class="comment">! Arguments</span></div>
+<div class="line"><a id="l01336" name="l01336"></a><span class="lineno"> 1336</span>    <span class="keywordtype">class</span>(csr_matrix), <span class="keywordtype">intent(in)</span> :: a</div>
+<div class="line"><a id="l01337" name="l01337"></a><span class="lineno"> 1337</span>    <span class="keywordtype">class</span>(msr_matrix), <span class="keywordtype">intent(in)</span> :: lu</div>
+<div class="line"><a id="l01338" name="l01338"></a><span class="lineno"> 1338</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">dimension(:)</span> :: ju</div>
+<div class="line"><a id="l01339" name="l01339"></a><span class="lineno"> 1339</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">dimension(:)</span> :: b</div>
+<div class="line"><a id="l01340" name="l01340"></a><span class="lineno"> 1340</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(out)</span>, <span class="keywordtype">dimension(:)</span> :: x</div>
+<div class="line"><a id="l01341" name="l01341"></a><span class="lineno"> 1341</span>    <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: im, maxits, iout</div>
+<div class="line"><a id="l01342" name="l01342"></a><span class="lineno"> 1342</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">intent(in)</span>, <span class="keywordtype">optional</span> :: tol</div>
+<div class="line"><a id="l01343" name="l01343"></a><span class="lineno"> 1343</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">intent(inout)</span>, <span class="keywordtype">optional</span>, <span class="keywordtype">target</span> :: err</div>
+<div class="line"><a id="l01344" name="l01344"></a><span class="lineno"> 1344</span> </div>
+<div class="line"><a id="l01345" name="l01345"></a><span class="lineno"> 1345</span>    <span class="comment">! Local Variables</span></div>
+<div class="line"><a id="l01346" name="l01346"></a><span class="lineno"> 1346</span>    <span class="keywordtype">integer(int32)</span> :: n, ierr, flag, io, mit, krylov</div>
+<div class="line"><a id="l01347" name="l01347"></a><span class="lineno"> 1347</span><span class="keywordtype">    real</span>(real64) :: eps</div>
+<div class="line"><a id="l01348" name="l01348"></a><span class="lineno"> 1348</span><span class="keywordtype">    real</span>(real64), <span class="keywordtype">allocatable</span>, <span class="keywordtype">dimension(:,:)</span> :: vv</div>
+<div class="line"><a id="l01349" name="l01349"></a><span class="lineno"> 1349</span>    <span class="keywordtype">class</span>(errors), <span class="keywordtype">pointer</span> :: errmgr</div>
+<div class="line"><a id="l01350" name="l01350"></a><span class="lineno"> 1350</span>    <span class="keywordtype">type</span>(errors), <span class="keywordtype">target</span> :: deferr</div>
+<div class="line"><a id="l01351" name="l01351"></a><span class="lineno"> 1351</span>    </div>
+<div class="line"><a id="l01352" name="l01352"></a><span class="lineno"> 1352</span>    <span class="comment">! Initialization</span></div>
+<div class="line"><a id="l01353" name="l01353"></a><span class="lineno"> 1353</span>    n = <span class="keyword">size</span>(a, 1)</div>
+<div class="line"><a id="l01354" name="l01354"></a><span class="lineno"> 1354</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(err)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01355" name="l01355"></a><span class="lineno"> 1355</span>        errmgr =&gt; err</div>
+<div class="line"><a id="l01356" name="l01356"></a><span class="lineno"> 1356</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01357" name="l01357"></a><span class="lineno"> 1357</span>        errmgr =&gt; deferr</div>
+<div class="line"><a id="l01358" name="l01358"></a><span class="lineno"> 1358</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01359" name="l01359"></a><span class="lineno"> 1359</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(im)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01360" name="l01360"></a><span class="lineno"> 1360</span>        krylov = im</div>
+<div class="line"><a id="l01361" name="l01361"></a><span class="lineno"> 1361</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01362" name="l01362"></a><span class="lineno"> 1362</span>        krylov = min(n, 50)</div>
+<div class="line"><a id="l01363" name="l01363"></a><span class="lineno"> 1363</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01364" name="l01364"></a><span class="lineno"> 1364</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(tol)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01365" name="l01365"></a><span class="lineno"> 1365</span>        eps = tol</div>
+<div class="line"><a id="l01366" name="l01366"></a><span class="lineno"> 1366</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01367" name="l01367"></a><span class="lineno"> 1367</span>        eps = sqrt(epsilon(eps))</div>
+<div class="line"><a id="l01368" name="l01368"></a><span class="lineno"> 1368</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01369" name="l01369"></a><span class="lineno"> 1369</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(maxits)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01370" name="l01370"></a><span class="lineno"> 1370</span>        mit = maxits</div>
+<div class="line"><a id="l01371" name="l01371"></a><span class="lineno"> 1371</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01372" name="l01372"></a><span class="lineno"> 1372</span>        mit = 100</div>
+<div class="line"><a id="l01373" name="l01373"></a><span class="lineno"> 1373</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01374" name="l01374"></a><span class="lineno"> 1374</span>    <span class="keywordflow">if</span> (<span class="keyword">present</span>(iout)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01375" name="l01375"></a><span class="lineno"> 1375</span>        io = iout</div>
+<div class="line"><a id="l01376" name="l01376"></a><span class="lineno"> 1376</span>    <span class="keywordflow">else</span></div>
+<div class="line"><a id="l01377" name="l01377"></a><span class="lineno"> 1377</span>        io = 0</div>
+<div class="line"><a id="l01378" name="l01378"></a><span class="lineno"> 1378</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01379" name="l01379"></a><span class="lineno"> 1379</span> </div>
+<div class="line"><a id="l01380" name="l01380"></a><span class="lineno"> 1380</span>    <span class="comment">! Input Checking</span></div>
+<div class="line"><a id="l01381" name="l01381"></a><span class="lineno"> 1381</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(a, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01382" name="l01382"></a><span class="lineno"> 1382</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01383" name="l01383"></a><span class="lineno"> 1383</span>            <span class="stringliteral">&quot;The input matrix is not square.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01384" name="l01384"></a><span class="lineno"> 1384</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01385" name="l01385"></a><span class="lineno"> 1385</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01386" name="l01386"></a><span class="lineno"> 1386</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(lu, 1) /= n .or. <span class="keyword">size</span>(lu, 2) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01387" name="l01387"></a><span class="lineno"> 1387</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01388" name="l01388"></a><span class="lineno"> 1388</span>            <span class="stringliteral">&quot;The LU factored matrix size is not compatible with the &quot;</span> // &amp;</div>
+<div class="line"><a id="l01389" name="l01389"></a><span class="lineno"> 1389</span>            <span class="stringliteral">&quot;input matrix.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01390" name="l01390"></a><span class="lineno"> 1390</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01391" name="l01391"></a><span class="lineno"> 1391</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01392" name="l01392"></a><span class="lineno"> 1392</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(b) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01393" name="l01393"></a><span class="lineno"> 1393</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01394" name="l01394"></a><span class="lineno"> 1394</span>            <span class="stringliteral">&quot;The output array dimension does not match the rest of the problem.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01395" name="l01395"></a><span class="lineno"> 1395</span>            la_array_size_error)</div>
+<div class="line"><a id="l01396" name="l01396"></a><span class="lineno"> 1396</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01397" name="l01397"></a><span class="lineno"> 1397</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01398" name="l01398"></a><span class="lineno"> 1398</span>    <span class="keywordflow">if</span> (<span class="keyword">size</span>(x) /= n) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01399" name="l01399"></a><span class="lineno"> 1399</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01400" name="l01400"></a><span class="lineno"> 1400</span>            <span class="stringliteral">&quot;Inner matrix dimension mismatch.&quot;</span>, la_array_size_error)</div>
+<div class="line"><a id="l01401" name="l01401"></a><span class="lineno"> 1401</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01402" name="l01402"></a><span class="lineno"> 1402</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01403" name="l01403"></a><span class="lineno"> 1403</span>    <span class="keywordflow">if</span> (eps &lt; epsilon(eps)) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01404" name="l01404"></a><span class="lineno"> 1404</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01405" name="l01405"></a><span class="lineno"> 1405</span>            <span class="stringliteral">&quot;The convergence tolerance is too small.&quot;</span>, la_invalid_input_error)</div>
+<div class="line"><a id="l01406" name="l01406"></a><span class="lineno"> 1406</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01407" name="l01407"></a><span class="lineno"> 1407</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01408" name="l01408"></a><span class="lineno"> 1408</span>    <span class="keywordflow">if</span> (mit &lt; 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01409" name="l01409"></a><span class="lineno"> 1409</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01410" name="l01410"></a><span class="lineno"> 1410</span>            <span class="stringliteral">&quot;Too few iterations allowed.&quot;</span>, la_invalid_input_error)</div>
+<div class="line"><a id="l01411" name="l01411"></a><span class="lineno"> 1411</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01412" name="l01412"></a><span class="lineno"> 1412</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01413" name="l01413"></a><span class="lineno"> 1413</span>    <span class="keywordflow">if</span> (krylov &lt; 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01414" name="l01414"></a><span class="lineno"> 1414</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01415" name="l01415"></a><span class="lineno"> 1415</span>            <span class="stringliteral">&quot;The requested Krylov subspace size is too small.&quot;</span>, &amp;</div>
+<div class="line"><a id="l01416" name="l01416"></a><span class="lineno"> 1416</span>            la_invalid_input_error)</div>
+<div class="line"><a id="l01417" name="l01417"></a><span class="lineno"> 1417</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01418" name="l01418"></a><span class="lineno"> 1418</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01419" name="l01419"></a><span class="lineno"> 1419</span> </div>
+<div class="line"><a id="l01420" name="l01420"></a><span class="lineno"> 1420</span>    <span class="comment">! Memory Allocation</span></div>
+<div class="line"><a id="l01421" name="l01421"></a><span class="lineno"> 1421</span>    <span class="keyword">allocate</span>(vv(n,krylov+1), stat = flag)</div>
+<div class="line"><a id="l01422" name="l01422"></a><span class="lineno"> 1422</span>    <span class="keywordflow">if</span> (flag /= 0) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01423" name="l01423"></a><span class="lineno"> 1423</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01424" name="l01424"></a><span class="lineno"> 1424</span>            <span class="stringliteral">&quot;Memory allocation error.&quot;</span>, la_out_of_memory_error)</div>
+<div class="line"><a id="l01425" name="l01425"></a><span class="lineno"> 1425</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01426" name="l01426"></a><span class="lineno"> 1426</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01427" name="l01427"></a><span class="lineno"> 1427</span> </div>
+<div class="line"><a id="l01428" name="l01428"></a><span class="lineno"> 1428</span>    <span class="comment">! Process</span></div>
+<div class="line"><a id="l01429" name="l01429"></a><span class="lineno"> 1429</span>    <span class="keyword">call </span><a class="code hl_interface" href="interfacesparskit_1_1pgmres.html">pgmres</a>(n, krylov, b, x, vv, eps, mit, io, a%values, a%column_indices, &amp;</div>
+<div class="line"><a id="l01430" name="l01430"></a><span class="lineno"> 1430</span>        a%row_indices, lu%values, lu%indices, ju, ierr)</div>
+<div class="line"><a id="l01431" name="l01431"></a><span class="lineno"> 1431</span>    <span class="keywordflow">if</span> (ierr == 1) <span class="keywordflow">then</span></div>
+<div class="line"><a id="l01432" name="l01432"></a><span class="lineno"> 1432</span>        <span class="keyword">call </span>errmgr%report_error(<span class="stringliteral">&quot;csr_pgmres_solver&quot;</span>, &amp;</div>
+<div class="line"><a id="l01433" name="l01433"></a><span class="lineno"> 1433</span>            <span class="stringliteral">&quot;Convergence could not be achieved to the requested tolerance &quot;</span> // &amp;</div>
+<div class="line"><a id="l01434" name="l01434"></a><span class="lineno"> 1434</span>            <span class="stringliteral">&quot;in the allowed number of iterations.&quot;</span>, la_convergence_error)</div>
+<div class="line"><a id="l01435" name="l01435"></a><span class="lineno"> 1435</span>        <span class="keywordflow">return</span></div>
+<div class="line"><a id="l01436" name="l01436"></a><span class="lineno"> 1436</span><span class="keywordflow">    end if</span></div>
+<div class="line"><a id="l01437" name="l01437"></a><span class="lineno"> 1437</span><span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l01438" name="l01438"></a><span class="lineno"> 1438</span> </div>
+<div class="line"><a id="l01439" name="l01439"></a><span class="lineno"> 1439</span><span class="comment">! ------------------------------------------------------------------------------</span></div>
+<div class="line"><a id="l01440" name="l01440"></a><span class="lineno"> 1440</span><span class="keyword">end </span>submodule</div>
+<div class="ttc" id="ainterfacesparskit_1_1amub_html"><div class="ttname"><a href="interfacesparskit_1_1amub.html">sparskit::amub</a></div><div class="ttdoc">Computes the matrix product: C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00031">sparskit.f90:31</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1aplb_html"><div class="ttname"><a href="interfacesparskit_1_1aplb.html">sparskit::aplb</a></div><div class="ttdoc">Computes the matrix sum: C = A + B, where the matrices are given in CSR format.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00063">sparskit.f90:63</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1aplsb_html"><div class="ttname"><a href="interfacesparskit_1_1aplsb.html">sparskit::aplsb</a></div><div class="ttdoc">Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00096">sparskit.f90:96</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1bndcsr_html"><div class="ttname"><a href="interfacesparskit_1_1bndcsr.html">sparskit::bndcsr</a></div><div class="ttdoc">Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00150">sparskit.f90:150</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1csrcsc2_html"><div class="ttname"><a href="interfacesparskit_1_1csrcsc2.html">sparskit::csrcsc2</a></div><div class="ttdoc">Converts a CSR matrix into a CSC matrix (transposition).</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00124">sparskit.f90:124</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1csrmsr_html"><div class="ttname"><a href="interfacesparskit_1_1csrmsr.html">sparskit::csrmsr</a></div><div class="ttdoc">Converts a CSR matrix to an MSR matrix.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00170">sparskit.f90:170</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1getdia_html"><div class="ttname"><a href="interfacesparskit_1_1getdia.html">sparskit::getdia</a></div><div class="ttdoc">Extracts the diagonal from a matrix.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00234">sparskit.f90:234</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1getelm_html"><div class="ttname"><a href="interfacesparskit_1_1getelm.html">sparskit::getelm</a></div><div class="ttdoc">Gets element A(i,j) of matrix A for any pair (i,j).</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00214">sparskit.f90:214</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1ilut_html"><div class="ttname"><a href="interfacesparskit_1_1ilut.html">sparskit::ilut</a></div><div class="ttdoc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mec...</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00277">sparskit.f90:277</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1lusol_html"><div class="ttname"><a href="interfacesparskit_1_1lusol.html">sparskit::lusol</a></div><div class="ttdoc">Solves the LU-factored system (LU) x = y.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00493">sparskit.f90:493</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1msrcsr_html"><div class="ttname"><a href="interfacesparskit_1_1msrcsr.html">sparskit::msrcsr</a></div><div class="ttdoc">Converts and MSR matrix to a CSR matrix.</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00191">sparskit.f90:191</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1pgmres_html"><div class="ttname"><a href="interfacesparskit_1_1pgmres.html">sparskit::pgmres</a></div><div class="ttdoc">An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the I...</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00474">sparskit.f90:474</a></div></div>
+<div class="ttc" id="anamespaceblas_html"><div class="ttname"><a href="namespaceblas.html">blas</a></div><div class="ttdoc">A module providing explicit interfaces to BLAS routines.</div><div class="ttdef"><b>Definition</b> <a href="blas_8f90_source.html#l00002">blas.f90:2</a></div></div>
+<div class="ttc" id="anamespacelinalg_html"><div class="ttname"><a href="namespacelinalg.html">linalg</a></div><div class="ttdoc">Provides a set of common linear algebra routines.</div><div class="ttdef"><b>Definition</b> <a href="linalg_8f90_source.html#l00145">linalg.f90:145</a></div></div>
+<div class="ttc" id="anamespacesparskit_html"><div class="ttname"><a href="namespacesparskit.html">sparskit</a></div><div class="ttdoc">An interface to the SPARSKIT library available at https://www-users.cse.umn.edu/~saad/software/SPARSK...</div><div class="ttdef"><b>Definition</b> <a href="sparskit_8f90_source.html#l00003">sparskit.f90:3</a></div></div>
+</div><!-- fragment --></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="dir_68267d1309a1af8e8297ef4c3efbcdba.html">src</a></li><li class="navelem"><b>linalg_sparse.f90</b></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/menudata.js b/docs/html/menudata.js
index bacf15b3..89a37524 100644
--- a/docs/html/menudata.js
+++ b/docs/html/menudata.js
@@ -31,7 +31,11 @@ var menudata={children:[
 {text:"Variables",url:"namespacemembers_vars.html"}]}]},
 {text:"Data Types",url:"annotated.html",children:[
 {text:"Data Types List",url:"annotated.html"},
-{text:"Data Type Index",url:"classes.html"}]},
+{text:"Data Type Index",url:"classes.html"},
+{text:"Data Fields",url:"functions.html",children:[
+{text:"All",url:"functions.html"},
+{text:"Functions/Subroutines",url:"functions_func.html"},
+{text:"Variables",url:"functions_vars.html"}]}]},
 {text:"Files",url:"files.html",children:[
 {text:"File List",url:"files.html"},
 {text:"File Members",url:"globals.html",children:[
diff --git a/docs/html/namespaceblas.html b/docs/html/namespaceblas.html
index e56b19a5..f356f6a6 100644
--- a/docs/html/namespaceblas.html
+++ b/docs/html/namespaceblas.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -110,6 +110,8 @@
 <table class="memberdecls">
 <tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="nested-classes" name="nested-classes"></a>
 Data Types</h2></td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfaceblas_1_1ddot.html">ddot</a></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfaceblas_1_1dgbmv.html">dgbmv</a></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfaceblas_1_1dgemm.html">dgemm</a></td></tr>
diff --git a/docs/html/namespaceblas.js b/docs/html/namespaceblas.js
index 86cd3bf2..1ac1add9 100644
--- a/docs/html/namespaceblas.js
+++ b/docs/html/namespaceblas.js
@@ -1,5 +1,6 @@
 var namespaceblas =
 [
+    [ "ddot", "interfaceblas_1_1ddot.html", null ],
     [ "dgbmv", "interfaceblas_1_1dgbmv.html", null ],
     [ "dgemm", "interfaceblas_1_1dgemm.html", null ],
     [ "dgemv", "interfaceblas_1_1dgemv.html", null ],
diff --git a/docs/html/namespacelinalg.html b/docs/html/namespacelinalg.html
index 6196e5e8..afadc764 100644
--- a/docs/html/namespacelinalg.html
+++ b/docs/html/namespacelinalg.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -120,6 +120,9 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html">band_mtx_to_full_mtx</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts a banded matrix stored in dense form to a full matrix.  <a href="interfacelinalg_1_1band__mtx__to__full__mtx.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1banded__to__dense.html">banded_to_dense</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts a banded matrix to a dense matrix.  <a href="interfacelinalg_1_1banded__to__dense.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1cholesky__factor.html">cholesky_factor</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the Cholesky factorization of a symmetric, positive definite matrix.  <a href="interfacelinalg_1_1cholesky__factor.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -129,6 +132,12 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html">cholesky_rank1_update</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the rank 1 update to a Cholesky factored matrix (upper triangular).  <a href="interfacelinalg_1_1cholesky__rank1__update.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">type &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="structlinalg_1_1csr__matrix.html">csr_matrix</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">A sparse matrix stored in compressed sparse row (CSR) format.  <a href="structlinalg_1_1csr__matrix.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1dense__to__banded.html">dense_to_banded</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts a dense matrix to a banded matrix.  <a href="interfacelinalg_1_1dense__to__banded.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1det.html">det</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the determinant of a square matrix.  <a href="interfacelinalg_1_1det.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -138,6 +147,9 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1eigen.html">eigen</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the eigenvalues, and optionally the eigenvectors, of a matrix.  <a href="interfacelinalg_1_1eigen.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1extract__diagonal.html">extract_diagonal</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Extracts the diagonal of a matrix.  <a href="interfacelinalg_1_1extract__diagonal.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1form__lq.html">form_lq</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorithm.  <a href="interfacelinalg_1_1form__lq.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -153,6 +165,12 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the LU factorization of an M-by-N matrix.  <a href="interfacelinalg_1_1lu__factor.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1matmul.html">matmul</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Performs sparse matrix multiplication C = A * B.  <a href="interfacelinalg_1_1matmul.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">type &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="structlinalg_1_1msr__matrix.html">msr_matrix</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">A sparse matrix stored in modified sparse row format. This format is convenient for situations where the diagonal is fully populated.  <a href="structlinalg_1_1msr__matrix.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1mtx__inverse.html">mtx_inverse</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the inverse of a square matrix.  <a href="interfacelinalg_1_1mtx__inverse.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -174,6 +192,24 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1mult__rz.html">mult_rz</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization.  <a href="interfacelinalg_1_1mult__rz.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1nonzero__count.html">nonzero_count</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Determines the number of nonzero entries in a sparse matrix.  <a href="interfacelinalg_1_1nonzero__count.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1operator_07_5_08.html">operator(*)</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Multiplies a sparse matrix and a scalar.  <a href="interfacelinalg_1_1operator_07_5_08.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1operator_07_09_08.html">operator(+)</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Adds two sparse matrices.  <a href="interfacelinalg_1_1operator_07_09_08.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1operator_07-_08.html">operator(-)</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Subtracts two sparse matrices.  <a href="interfacelinalg_1_1operator_07-_08.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1operator_07_2_08.html">operator(/)</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Multiplies a sparse matrix by a scalar.  <a href="interfacelinalg_1_1operator_07_2_08.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1pgmres__solver.html">pgmres_solver</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">A preconditioned GMRES solver.  <a href="interfacelinalg_1_1pgmres__solver.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1qr__factor.html">qr_factor</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the QR factorization of an M-by-N matrix.  <a href="interfacelinalg_1_1qr__factor.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -189,6 +225,9 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1rz__factor.html">rz_factor</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Factors an upper trapezoidal matrix by means of orthogonal transformations such that \( A = R Z = (R 0) Z \). Z is an orthogonal matrix of dimension N-by-N, and R is an M-by-M upper triangular matrix.  <a href="interfacelinalg_1_1rz__factor.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1size.html">size</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Determines the size of the requested dimension of the supplied sparse matrix.  <a href="interfacelinalg_1_1size.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1solve__cholesky.html">solve_cholesky</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Solves a system of Cholesky factored equations.  <a href="interfacelinalg_1_1solve__cholesky.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -216,6 +255,9 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1sort.html">sort</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Sorts an array.  <a href="interfacelinalg_1_1sort.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html">sparse_direct_solve</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Provides a direct solution to a square, sparse system.  <a href="interfacelinalg_1_1sparse__direct__solve.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1svd.html">svd</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the singular value decomposition of a matrix A. The SVD is defined as: \( A = U S V^T \), where \( U \) is an M-by-M orthogonal matrix, \( S \) is an M-by-N diagonal matrix, and \( V \) is an N-by-N orthogonal matrix. In the event that \( V \) is complex valued, \( V^H \) is computed instead of \( V^T \).  <a href="interfacelinalg_1_1svd.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -225,6 +267,9 @@
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1trace.html">trace</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the trace of a matrix (the sum of the main diagonal elements).  <a href="interfacelinalg_1_1trace.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1transpose.html">transpose</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Provides the transpose of a sparse matrix.  <a href="interfacelinalg_1_1transpose.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
 <tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html">tri_mtx_mult</a></td></tr>
 <tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the triangular matrix operation: \( B = \alpha A^T A + \beta B \), or \( B = \alpha A A^T + \beta B \), where A is a triangular matrix.  <a href="interfacelinalg_1_1tri__mtx__mult.html#details">More...</a><br /></td></tr>
 <tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
@@ -282,7 +327,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#a7974856c0c0c76e6f1f2098a
 
 <p>An error flag denoting an improperly sized array. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00220">220</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00284">284</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -300,7 +345,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#ac691dea40873ac2a70c8b44c
 
 <p>An error flag denoting a convergence failure. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00228">228</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00292">292</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -318,7 +363,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#a0e420096028b759a87f2f4f4
 
 <p>Defines a Hermitian transpose operation for a complex-valued matrix. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00210">210</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00274">274</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -336,7 +381,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#ace738355659bce2e9591473f
 
 <p>An error flag denoting an invalid input. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00218">218</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00282">282</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -354,7 +399,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#a4f47021e96cd813b568422a2
 
 <p>An error resulting from an invalid operation. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00230">230</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00294">294</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -372,7 +417,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#ad89b9d502b7c484df53f9b10
 
 <p>An error flag denoting an issue with the matrix format. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00224">224</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00288">288</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -390,7 +435,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#aefdfc0979567e89aa3b8c599
 
 <p>A flag denoting no error condition. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00216">216</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00280">280</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -408,7 +453,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#a665d131453840e869510e9e8
 
 <p>Defines no operation should be performed on the matrix. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00206">206</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00270">270</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -426,7 +471,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#abfb78ba61c0c2751f1c771c9
 
 <p>An error flag denoting that there is insufficient memory available. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00226">226</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00290">290</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -444,7 +489,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#af5dc9d60151bb81436b44252
 
 <p>An error flag denoting a singular matrix. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00222">222</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00286">286</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
@@ -462,7 +507,7 @@ <h2 class="memtitle"><span class="permalink"><a href="#a2b842a1fb17710d7ec2f117f
 
 <p>Defines a transpose operation. </p>
 
-<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00208">208</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00272">272</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
 
 </div>
 </div>
diff --git a/docs/html/namespacelinalg.js b/docs/html/namespacelinalg.js
index 546a7df4..1fd49e52 100644
--- a/docs/html/namespacelinalg.js
+++ b/docs/html/namespacelinalg.js
@@ -3,17 +3,23 @@ var namespacelinalg =
     [ "band_diag_mtx_mult", "interfacelinalg_1_1band__diag__mtx__mult.html", null ],
     [ "band_mtx_mult", "interfacelinalg_1_1band__mtx__mult.html", null ],
     [ "band_mtx_to_full_mtx", "interfacelinalg_1_1band__mtx__to__full__mtx.html", null ],
+    [ "banded_to_dense", "interfacelinalg_1_1banded__to__dense.html", null ],
     [ "cholesky_factor", "interfacelinalg_1_1cholesky__factor.html", null ],
     [ "cholesky_rank1_downdate", "interfacelinalg_1_1cholesky__rank1__downdate.html", null ],
     [ "cholesky_rank1_update", "interfacelinalg_1_1cholesky__rank1__update.html", null ],
+    [ "csr_matrix", "structlinalg_1_1csr__matrix.html", "structlinalg_1_1csr__matrix" ],
+    [ "dense_to_banded", "interfacelinalg_1_1dense__to__banded.html", null ],
     [ "det", "interfacelinalg_1_1det.html", null ],
     [ "diag_mtx_mult", "interfacelinalg_1_1diag__mtx__mult.html", null ],
     [ "eigen", "interfacelinalg_1_1eigen.html", null ],
+    [ "extract_diagonal", "interfacelinalg_1_1extract__diagonal.html", null ],
     [ "form_lq", "interfacelinalg_1_1form__lq.html", null ],
     [ "form_lu", "interfacelinalg_1_1form__lu.html", null ],
     [ "form_qr", "interfacelinalg_1_1form__qr.html", null ],
     [ "lq_factor", "interfacelinalg_1_1lq__factor.html", null ],
     [ "lu_factor", "interfacelinalg_1_1lu__factor.html", null ],
+    [ "matmul", "interfacelinalg_1_1matmul.html", null ],
+    [ "msr_matrix", "structlinalg_1_1msr__matrix.html", "structlinalg_1_1msr__matrix" ],
     [ "mtx_inverse", "interfacelinalg_1_1mtx__inverse.html", null ],
     [ "mtx_mult", "interfacelinalg_1_1mtx__mult.html", null ],
     [ "mtx_pinverse", "interfacelinalg_1_1mtx__pinverse.html", null ],
@@ -21,11 +27,18 @@ var namespacelinalg =
     [ "mult_lq", "interfacelinalg_1_1mult__lq.html", null ],
     [ "mult_qr", "interfacelinalg_1_1mult__qr.html", null ],
     [ "mult_rz", "interfacelinalg_1_1mult__rz.html", null ],
+    [ "nonzero_count", "interfacelinalg_1_1nonzero__count.html", null ],
+    [ "operator(*)", "interfacelinalg_1_1operator_07_5_08.html", null ],
+    [ "operator(+)", "interfacelinalg_1_1operator_07_09_08.html", null ],
+    [ "operator(-)", "interfacelinalg_1_1operator_07-_08.html", null ],
+    [ "operator(/)", "interfacelinalg_1_1operator_07_2_08.html", null ],
+    [ "pgmres_solver", "interfacelinalg_1_1pgmres__solver.html", null ],
     [ "qr_factor", "interfacelinalg_1_1qr__factor.html", null ],
     [ "qr_rank1_update", "interfacelinalg_1_1qr__rank1__update.html", null ],
     [ "rank1_update", "interfacelinalg_1_1rank1__update.html", null ],
     [ "recip_mult_array", "interfacelinalg_1_1recip__mult__array.html", null ],
     [ "rz_factor", "interfacelinalg_1_1rz__factor.html", null ],
+    [ "size", "interfacelinalg_1_1size.html", null ],
     [ "solve_cholesky", "interfacelinalg_1_1solve__cholesky.html", null ],
     [ "solve_least_squares", "interfacelinalg_1_1solve__least__squares.html", null ],
     [ "solve_least_squares_full", "interfacelinalg_1_1solve__least__squares__full.html", null ],
@@ -35,9 +48,11 @@ var namespacelinalg =
     [ "solve_qr", "interfacelinalg_1_1solve__qr.html", null ],
     [ "solve_triangular_system", "interfacelinalg_1_1solve__triangular__system.html", null ],
     [ "sort", "interfacelinalg_1_1sort.html", null ],
+    [ "sparse_direct_solve", "interfacelinalg_1_1sparse__direct__solve.html", null ],
     [ "svd", "interfacelinalg_1_1svd.html", null ],
     [ "swap", "interfacelinalg_1_1swap.html", null ],
     [ "trace", "interfacelinalg_1_1trace.html", null ],
+    [ "transpose", "interfacelinalg_1_1transpose.html", null ],
     [ "tri_mtx_mult", "interfacelinalg_1_1tri__mtx__mult.html", null ],
     [ "la_array_size_error", "namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9", null ],
     [ "la_convergence_error", "namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7", null ],
diff --git a/docs/html/namespacemembers.html b/docs/html/namespacemembers.html
index 8efee7f6..17568e00 100644
--- a/docs/html/namespacemembers.html
+++ b/docs/html/namespacemembers.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/namespacemembers_vars.html b/docs/html/namespacemembers_vars.html
index 6b554917..9ae7b497 100644
--- a/docs/html/namespacemembers_vars.html
+++ b/docs/html/namespacemembers_vars.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/namespaceqrupdate.html b/docs/html/namespaceqrupdate.html
index 051f57f7..72bc3e06 100644
--- a/docs/html/namespaceqrupdate.html
+++ b/docs/html/namespaceqrupdate.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/namespaces.html b/docs/html/namespaces.html
index 06ad37b6..0e9dd32c 100644
--- a/docs/html/namespaces.html
+++ b/docs/html/namespaces.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
@@ -105,59 +105,75 @@
 <div class="textblock">Here is a list of all documented modules with brief descriptions:</div><div class="directory">
 <div class="levels">[detail level <span onclick="javascript:dynsection.toggleLevel(1);">1</span><span onclick="javascript:dynsection.toggleLevel(2);">2</span>]</div><table class="directory">
 <tr id="row_0_" class="even"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_0_" class="arrow" onclick="dynsection.toggleFolder('0_')">&#9660;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespaceblas.html" target="_self">blas</a></td><td class="desc">A module providing explicit interfaces to BLAS routines </td></tr>
-<tr id="row_0_0_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgbmv.html" target="_self">dgbmv</a></td><td class="desc"></td></tr>
-<tr id="row_0_1_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemm.html" target="_self">dgemm</a></td><td class="desc"></td></tr>
-<tr id="row_0_2_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemv.html" target="_self">dgemv</a></td><td class="desc"></td></tr>
-<tr id="row_0_3_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dscal.html" target="_self">dscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_4_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsm.html" target="_self">dtrsm</a></td><td class="desc"></td></tr>
-<tr id="row_0_5_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsv.html" target="_self">dtrsv</a></td><td class="desc"></td></tr>
-<tr id="row_0_6_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zdscal.html" target="_self">zdscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_7_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgbmv.html" target="_self">zgbmv</a></td><td class="desc"></td></tr>
-<tr id="row_0_8_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemm.html" target="_self">zgemm</a></td><td class="desc"></td></tr>
-<tr id="row_0_9_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemv.html" target="_self">zgemv</a></td><td class="desc"></td></tr>
-<tr id="row_0_10_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zscal.html" target="_self">zscal</a></td><td class="desc"></td></tr>
-<tr id="row_0_11_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsm.html" target="_self">ztrsm</a></td><td class="desc"></td></tr>
-<tr id="row_0_12_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsv.html" target="_self">ztrsv</a></td><td class="desc"></td></tr>
-<tr id="row_1_" class="even"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_1_" class="arrow" onclick="dynsection.toggleFolder('1_')">&#9660;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespacelinalg.html" target="_self">linalg</a></td><td class="desc">Provides a set of common linear algebra routines </td></tr>
-<tr id="row_1_0_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__diag__mtx__mult.html" target="_self">band_diag_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, with a diagonal matrix, B, such that A = alpha * A * B, or A = alpha * B * A </td></tr>
-<tr id="row_1_1_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__mult.html" target="_self">band_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, by a vector x such that alpha * op(A) * x + beta * y = y </td></tr>
-<tr id="row_1_2_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html" target="_self">band_mtx_to_full_mtx</a></td><td class="desc">Converts a banded matrix stored in dense form to a full matrix </td></tr>
-<tr id="row_1_3_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__factor.html" target="_self">cholesky_factor</a></td><td class="desc">Computes the Cholesky factorization of a symmetric, positive definite matrix </td></tr>
-<tr id="row_1_4_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html" target="_self">cholesky_rank1_downdate</a></td><td class="desc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular) </td></tr>
-<tr id="row_1_5_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html" target="_self">cholesky_rank1_update</a></td><td class="desc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular) </td></tr>
-<tr id="row_1_6_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1det.html" target="_self">det</a></td><td class="desc">Computes the determinant of a square matrix </td></tr>
-<tr id="row_1_7_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html" target="_self">diag_mtx_mult</a></td><td class="desc">Multiplies a diagonal matrix with another matrix or array </td></tr>
-<tr id="row_1_8_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1eigen.html" target="_self">eigen</a></td><td class="desc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix </td></tr>
-<tr id="row_1_9_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lq.html" target="_self">form_lq</a></td><td class="desc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorithm </td></tr>
-<tr id="row_1_10_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lu.html" target="_self">form_lu</a></td><td class="desc">Extracts the L and U matrices from the condensed [L\U] storage format used by the <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> </td></tr>
-<tr id="row_1_11_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__qr.html" target="_self">form_qr</a></td><td class="desc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR factorization algorithm </td></tr>
-<tr id="row_1_12_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lq__factor.html" target="_self">lq_factor</a></td><td class="desc">Computes the LQ factorization of an M-by-N matrix </td></tr>
-<tr id="row_1_13_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lu__factor.html" target="_self">lu_factor</a></td><td class="desc">Computes the LU factorization of an M-by-N matrix </td></tr>
-<tr id="row_1_14_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__inverse.html" target="_self">mtx_inverse</a></td><td class="desc">Computes the inverse of a square matrix </td></tr>
-<tr id="row_1_15_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__mult.html" target="_self">mtx_mult</a></td><td class="desc">Performs the matrix operation: \( C = \alpha op(A) op(B) + \beta C \) </td></tr>
-<tr id="row_1_16_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__pinverse.html" target="_self">mtx_pinverse</a></td><td class="desc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition of the matrix </td></tr>
-<tr id="row_1_17_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__rank.html" target="_self">mtx_rank</a></td><td class="desc">Computes the rank of a matrix </td></tr>
-<tr id="row_1_18_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__lq.html" target="_self">mult_lq</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization </td></tr>
-<tr id="row_1_19_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__qr.html" target="_self">mult_qr</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization </td></tr>
-<tr id="row_1_20_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__rz.html" target="_self">mult_rz</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization </td></tr>
-<tr id="row_1_21_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__factor.html" target="_self">qr_factor</a></td><td class="desc">Computes the QR factorization of an M-by-N matrix </td></tr>
-<tr id="row_1_22_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__rank1__update.html" target="_self">qr_rank1_update</a></td><td class="desc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where \( A = Q R \), and \( A1 = A + U V^T \) such that \( A1 = Q1 R1 \). In the event \( V \) is complex-valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
-<tr id="row_1_23_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rank1__update.html" target="_self">rank1_update</a></td><td class="desc">Performs the rank-1 update to matrix A such that: \( A = \alpha X Y^T + A \), where \( A \) is an M-by-N matrix, \( \alpha \)is a scalar, \( X \) is an M-element array, and \( Y \) is an N-element array. In the event that \( Y \) is complex, \( Y^H \) is used instead of \( Y^T \) </td></tr>
-<tr id="row_1_24_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1recip__mult__array.html" target="_self">recip_mult_array</a></td><td class="desc">Multiplies a vector by the reciprocal of a real scalar </td></tr>
-<tr id="row_1_25_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rz__factor.html" target="_self">rz_factor</a></td><td class="desc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that \( A = R Z = (R 0) Z \). Z is an orthogonal matrix of dimension N-by-N, and R is an M-by-M upper triangular matrix </td></tr>
-<tr id="row_1_26_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__cholesky.html" target="_self">solve_cholesky</a></td><td class="desc">Solves a system of Cholesky factored equations </td></tr>
-<tr id="row_1_27_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares.html" target="_self">solve_least_squares</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns. Notice, it is assumed that matrix A has full rank </td></tr>
-<tr id="row_1_28_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html" target="_self">solve_least_squares_full</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns, but uses a full orthogonal factorization of the system </td></tr>
-<tr id="row_1_29_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html" target="_self">solve_least_squares_svd</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns using a singular value decomposition of matrix A </td></tr>
-<tr id="row_1_30_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lq.html" target="_self">solve_lq</a></td><td class="desc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M </td></tr>
-<tr id="row_1_31_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lu.html" target="_self">solve_lu</a></td><td class="desc">Solves a system of LU-factored equations </td></tr>
-<tr id="row_1_32_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__qr.html" target="_self">solve_qr</a></td><td class="desc">Solves a system of M QR-factored equations of N unknowns </td></tr>
-<tr id="row_1_33_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__triangular__system.html" target="_self">solve_triangular_system</a></td><td class="desc">Solves a triangular system of equations </td></tr>
-<tr id="row_1_34_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sort.html" target="_self">sort</a></td><td class="desc">Sorts an array </td></tr>
-<tr id="row_1_35_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1svd.html" target="_self">svd</a></td><td class="desc">Computes the singular value decomposition of a matrix A. The SVD is defined as: \( A = U S V^T \), where \( U \) is an M-by-M orthogonal matrix, \( S \) is an M-by-N diagonal matrix, and \( V \) is an N-by-N orthogonal matrix. In the event that \( V \) is complex valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
-<tr id="row_1_36_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1swap.html" target="_self">swap</a></td><td class="desc">Swaps the contents of two arrays </td></tr>
-<tr id="row_1_37_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1trace.html" target="_self">trace</a></td><td class="desc">Computes the trace of a matrix (the sum of the main diagonal elements) </td></tr>
-<tr id="row_1_38_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html" target="_self">tri_mtx_mult</a></td><td class="desc">Computes the triangular matrix operation: \( B = \alpha A^T A + \beta B \), or \( B = \alpha A A^T + \beta B \), where A is a triangular matrix </td></tr>
+<tr id="row_0_0_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ddot.html" target="_self">ddot</a></td><td class="desc"></td></tr>
+<tr id="row_0_1_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgbmv.html" target="_self">dgbmv</a></td><td class="desc"></td></tr>
+<tr id="row_0_2_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemm.html" target="_self">dgemm</a></td><td class="desc"></td></tr>
+<tr id="row_0_3_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dgemv.html" target="_self">dgemv</a></td><td class="desc"></td></tr>
+<tr id="row_0_4_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dscal.html" target="_self">dscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_5_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsm.html" target="_self">dtrsm</a></td><td class="desc"></td></tr>
+<tr id="row_0_6_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1dtrsv.html" target="_self">dtrsv</a></td><td class="desc"></td></tr>
+<tr id="row_0_7_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zdscal.html" target="_self">zdscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_8_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgbmv.html" target="_self">zgbmv</a></td><td class="desc"></td></tr>
+<tr id="row_0_9_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemm.html" target="_self">zgemm</a></td><td class="desc"></td></tr>
+<tr id="row_0_10_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zgemv.html" target="_self">zgemv</a></td><td class="desc"></td></tr>
+<tr id="row_0_11_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1zscal.html" target="_self">zscal</a></td><td class="desc"></td></tr>
+<tr id="row_0_12_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsm.html" target="_self">ztrsm</a></td><td class="desc"></td></tr>
+<tr id="row_0_13_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceblas_1_1ztrsv.html" target="_self">ztrsv</a></td><td class="desc"></td></tr>
+<tr id="row_1_" class="odd"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_1_" class="arrow" onclick="dynsection.toggleFolder('1_')">&#9660;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespacelinalg.html" target="_self">linalg</a></td><td class="desc">Provides a set of common linear algebra routines </td></tr>
+<tr id="row_1_0_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__diag__mtx__mult.html" target="_self">band_diag_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, with a diagonal matrix, B, such that A = alpha * A * B, or A = alpha * B * A </td></tr>
+<tr id="row_1_1_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__mult.html" target="_self">band_mtx_mult</a></td><td class="desc">Multiplies a banded matrix, A, by a vector x such that alpha * op(A) * x + beta * y = y </td></tr>
+<tr id="row_1_2_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1band__mtx__to__full__mtx.html" target="_self">band_mtx_to_full_mtx</a></td><td class="desc">Converts a banded matrix stored in dense form to a full matrix </td></tr>
+<tr id="row_1_3_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1banded__to__dense.html" target="_self">banded_to_dense</a></td><td class="desc">Converts a banded matrix to a dense matrix </td></tr>
+<tr id="row_1_4_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__factor.html" target="_self">cholesky_factor</a></td><td class="desc">Computes the Cholesky factorization of a symmetric, positive definite matrix </td></tr>
+<tr id="row_1_5_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__downdate.html" target="_self">cholesky_rank1_downdate</a></td><td class="desc">Computes the rank 1 downdate to a Cholesky factored matrix (upper triangular) </td></tr>
+<tr id="row_1_6_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1cholesky__rank1__update.html" target="_self">cholesky_rank1_update</a></td><td class="desc">Computes the rank 1 update to a Cholesky factored matrix (upper triangular) </td></tr>
+<tr id="row_1_7_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="structlinalg_1_1csr__matrix.html" target="_self">csr_matrix</a></td><td class="desc">A sparse matrix stored in compressed sparse row (CSR) format </td></tr>
+<tr id="row_1_8_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1dense__to__banded.html" target="_self">dense_to_banded</a></td><td class="desc">Converts a dense matrix to a banded matrix </td></tr>
+<tr id="row_1_9_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1det.html" target="_self">det</a></td><td class="desc">Computes the determinant of a square matrix </td></tr>
+<tr id="row_1_10_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1diag__mtx__mult.html" target="_self">diag_mtx_mult</a></td><td class="desc">Multiplies a diagonal matrix with another matrix or array </td></tr>
+<tr id="row_1_11_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1eigen.html" target="_self">eigen</a></td><td class="desc">Computes the eigenvalues, and optionally the eigenvectors, of a matrix </td></tr>
+<tr id="row_1_12_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1extract__diagonal.html" target="_self">extract_diagonal</a></td><td class="desc">Extracts the diagonal of a matrix </td></tr>
+<tr id="row_1_13_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lq.html" target="_self">form_lq</a></td><td class="desc">Forms the orthogonal matrix Q from the elementary reflectors returned by the LQ factorization algorithm </td></tr>
+<tr id="row_1_14_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__lu.html" target="_self">form_lu</a></td><td class="desc">Extracts the L and U matrices from the condensed [L\U] storage format used by the <a class="el" href="interfacelinalg_1_1lu__factor.html">lu_factor</a> </td></tr>
+<tr id="row_1_15_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1form__qr.html" target="_self">form_qr</a></td><td class="desc">Forms the full M-by-M orthogonal matrix Q from the elementary reflectors returned by the base QR factorization algorithm </td></tr>
+<tr id="row_1_16_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lq__factor.html" target="_self">lq_factor</a></td><td class="desc">Computes the LQ factorization of an M-by-N matrix </td></tr>
+<tr id="row_1_17_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1lu__factor.html" target="_self">lu_factor</a></td><td class="desc">Computes the LU factorization of an M-by-N matrix </td></tr>
+<tr id="row_1_18_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1matmul.html" target="_self">matmul</a></td><td class="desc">Performs sparse matrix multiplication C = A * B </td></tr>
+<tr id="row_1_19_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="structlinalg_1_1msr__matrix.html" target="_self">msr_matrix</a></td><td class="desc">A sparse matrix stored in modified sparse row format. This format is convenient for situations where the diagonal is fully populated </td></tr>
+<tr id="row_1_20_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__inverse.html" target="_self">mtx_inverse</a></td><td class="desc">Computes the inverse of a square matrix </td></tr>
+<tr id="row_1_21_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__mult.html" target="_self">mtx_mult</a></td><td class="desc">Performs the matrix operation: \( C = \alpha op(A) op(B) + \beta C \) </td></tr>
+<tr id="row_1_22_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__pinverse.html" target="_self">mtx_pinverse</a></td><td class="desc">Computes the Moore-Penrose pseudo-inverse of a M-by-N matrix using the singular value decomposition of the matrix </td></tr>
+<tr id="row_1_23_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mtx__rank.html" target="_self">mtx_rank</a></td><td class="desc">Computes the rank of a matrix </td></tr>
+<tr id="row_1_24_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__lq.html" target="_self">mult_lq</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a LQ factorization </td></tr>
+<tr id="row_1_25_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__qr.html" target="_self">mult_qr</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Q from a QR factorization </td></tr>
+<tr id="row_1_26_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1mult__rz.html" target="_self">mult_rz</a></td><td class="desc">Multiplies a general matrix by the orthogonal matrix Z from an RZ factorization </td></tr>
+<tr id="row_1_27_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1nonzero__count.html" target="_self">nonzero_count</a></td><td class="desc">Determines the number of nonzero entries in a sparse matrix </td></tr>
+<tr id="row_1_28_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_5_08.html" target="_self">operator(*)</a></td><td class="desc">Multiplies a sparse matrix and a scalar </td></tr>
+<tr id="row_1_29_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_09_08.html" target="_self">operator(+)</a></td><td class="desc">Adds two sparse matrices </td></tr>
+<tr id="row_1_30_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07-_08.html" target="_self">operator(-)</a></td><td class="desc">Subtracts two sparse matrices </td></tr>
+<tr id="row_1_31_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1operator_07_2_08.html" target="_self">operator(/)</a></td><td class="desc">Multiplies a sparse matrix by a scalar </td></tr>
+<tr id="row_1_32_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1pgmres__solver.html" target="_self">pgmres_solver</a></td><td class="desc">A preconditioned GMRES solver </td></tr>
+<tr id="row_1_33_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__factor.html" target="_self">qr_factor</a></td><td class="desc">Computes the QR factorization of an M-by-N matrix </td></tr>
+<tr id="row_1_34_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1qr__rank1__update.html" target="_self">qr_rank1_update</a></td><td class="desc">Computes the rank 1 update to an M-by-N QR factored matrix A (M &gt;= N) where \( A = Q R \), and \( A1 = A + U V^T \) such that \( A1 = Q1 R1 \). In the event \( V \) is complex-valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
+<tr id="row_1_35_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rank1__update.html" target="_self">rank1_update</a></td><td class="desc">Performs the rank-1 update to matrix A such that: \( A = \alpha X Y^T + A \), where \( A \) is an M-by-N matrix, \( \alpha \)is a scalar, \( X \) is an M-element array, and \( Y \) is an N-element array. In the event that \( Y \) is complex, \( Y^H \) is used instead of \( Y^T \) </td></tr>
+<tr id="row_1_36_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1recip__mult__array.html" target="_self">recip_mult_array</a></td><td class="desc">Multiplies a vector by the reciprocal of a real scalar </td></tr>
+<tr id="row_1_37_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1rz__factor.html" target="_self">rz_factor</a></td><td class="desc">Factors an upper trapezoidal matrix by means of orthogonal transformations such that \( A = R Z = (R 0) Z \). Z is an orthogonal matrix of dimension N-by-N, and R is an M-by-M upper triangular matrix </td></tr>
+<tr id="row_1_38_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1size.html" target="_self">size</a></td><td class="desc">Determines the size of the requested dimension of the supplied sparse matrix </td></tr>
+<tr id="row_1_39_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__cholesky.html" target="_self">solve_cholesky</a></td><td class="desc">Solves a system of Cholesky factored equations </td></tr>
+<tr id="row_1_40_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares.html" target="_self">solve_least_squares</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns. Notice, it is assumed that matrix A has full rank </td></tr>
+<tr id="row_1_41_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__full.html" target="_self">solve_least_squares_full</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns, but uses a full orthogonal factorization of the system </td></tr>
+<tr id="row_1_42_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__least__squares__svd.html" target="_self">solve_least_squares_svd</a></td><td class="desc">Solves the overdetermined or underdetermined system \( A X = B \) of M equations of N unknowns using a singular value decomposition of matrix A </td></tr>
+<tr id="row_1_43_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lq.html" target="_self">solve_lq</a></td><td class="desc">Solves a system of M LQ-factored equations of N unknowns. N must be greater than or equal to M </td></tr>
+<tr id="row_1_44_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__lu.html" target="_self">solve_lu</a></td><td class="desc">Solves a system of LU-factored equations </td></tr>
+<tr id="row_1_45_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__qr.html" target="_self">solve_qr</a></td><td class="desc">Solves a system of M QR-factored equations of N unknowns </td></tr>
+<tr id="row_1_46_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1solve__triangular__system.html" target="_self">solve_triangular_system</a></td><td class="desc">Solves a triangular system of equations </td></tr>
+<tr id="row_1_47_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sort.html" target="_self">sort</a></td><td class="desc">Sorts an array </td></tr>
+<tr id="row_1_48_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1sparse__direct__solve.html" target="_self">sparse_direct_solve</a></td><td class="desc">Provides a direct solution to a square, sparse system </td></tr>
+<tr id="row_1_49_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1svd.html" target="_self">svd</a></td><td class="desc">Computes the singular value decomposition of a matrix A. The SVD is defined as: \( A = U S V^T \), where \( U \) is an M-by-M orthogonal matrix, \( S \) is an M-by-N diagonal matrix, and \( V \) is an N-by-N orthogonal matrix. In the event that \( V \) is complex valued, \( V^H \) is computed instead of \( V^T \) </td></tr>
+<tr id="row_1_50_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1swap.html" target="_self">swap</a></td><td class="desc">Swaps the contents of two arrays </td></tr>
+<tr id="row_1_51_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1trace.html" target="_self">trace</a></td><td class="desc">Computes the trace of a matrix (the sum of the main diagonal elements) </td></tr>
+<tr id="row_1_52_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1transpose.html" target="_self">transpose</a></td><td class="desc">Provides the transpose of a sparse matrix </td></tr>
+<tr id="row_1_53_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacelinalg_1_1tri__mtx__mult.html" target="_self">tri_mtx_mult</a></td><td class="desc">Computes the triangular matrix operation: \( B = \alpha A^T A + \beta B \), or \( B = \alpha A A^T + \beta B \), where A is a triangular matrix </td></tr>
 <tr id="row_2_" class="even"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_2_" class="arrow" onclick="dynsection.toggleFolder('2_')">&#9660;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespaceqrupdate.html" target="_self">qrupdate</a></td><td class="desc">A module providing explicit interfaces for the QRUPDATE library </td></tr>
 <tr id="row_2_0_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1dch1dn.html" target="_self">dch1dn</a></td><td class="desc"></td></tr>
 <tr id="row_2_1_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1dch1up.html" target="_self">dch1up</a></td><td class="desc"></td></tr>
@@ -165,6 +181,22 @@
 <tr id="row_2_3_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zch1dn.html" target="_self">zch1dn</a></td><td class="desc"></td></tr>
 <tr id="row_2_4_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zch1up.html" target="_self">zch1up</a></td><td class="desc"></td></tr>
 <tr id="row_2_5_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfaceqrupdate_1_1zqr1up.html" target="_self">zqr1up</a></td><td class="desc"></td></tr>
+<tr id="row_3_" class="odd"><td class="entry"><span style="width:0px;display:inline-block;">&#160;</span><span id="arr_3_" class="arrow" onclick="dynsection.toggleFolder('3_')">&#9660;</span><span class="icona"><span class="icon">M</span></span><a class="el" href="namespacesparskit.html" target="_self">sparskit</a></td><td class="desc">An interface to the SPARSKIT library available at <a href="https://www-users.cse.umn.edu/~saad/software/SPARSKIT/">https://www-users.cse.umn.edu/~saad/software/SPARSKIT/</a> </td></tr>
+<tr id="row_3_0_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1amub.html" target="_self">amub</a></td><td class="desc">Computes the matrix product: C = A * B </td></tr>
+<tr id="row_3_1_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1aplb.html" target="_self">aplb</a></td><td class="desc">Computes the matrix sum: C = A + B, where the matrices are given in CSR format </td></tr>
+<tr id="row_3_2_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1aplsb.html" target="_self">aplsb</a></td><td class="desc">Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format </td></tr>
+<tr id="row_3_3_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1bndcsr.html" target="_self">bndcsr</a></td><td class="desc">Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format </td></tr>
+<tr id="row_3_4_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1csrcsc2.html" target="_self">csrcsc2</a></td><td class="desc">Converts a CSR matrix into a CSC matrix (transposition) </td></tr>
+<tr id="row_3_5_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1csrmsr.html" target="_self">csrmsr</a></td><td class="desc">Converts a CSR matrix to an MSR matrix </td></tr>
+<tr id="row_3_6_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1getdia.html" target="_self">getdia</a></td><td class="desc">Extracts the diagonal from a matrix </td></tr>
+<tr id="row_3_7_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1getelm.html" target="_self">getelm</a></td><td class="desc">Gets element A(i,j) of matrix A for any pair (i,j) </td></tr>
+<tr id="row_3_8_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilud.html" target="_self">ilud</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy </td></tr>
+<tr id="row_3_9_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1iludp.html" target="_self">iludp</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy </td></tr>
+<tr id="row_3_10_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilut.html" target="_self">ilut</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism </td></tr>
+<tr id="row_3_11_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1ilutp.html" target="_self">ilutp</a></td><td class="desc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism and pivoting </td></tr>
+<tr id="row_3_12_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1lusol.html" target="_self">lusol</a></td><td class="desc">Solves the LU-factored system (LU) x = y </td></tr>
+<tr id="row_3_13_" class="odd"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1msrcsr.html" target="_self">msrcsr</a></td><td class="desc">Converts and MSR matrix to a CSR matrix </td></tr>
+<tr id="row_3_14_" class="even"><td class="entry"><span style="width:32px;display:inline-block;">&#160;</span><span class="icona"><span class="icon">C</span></span><a class="el" href="interfacesparskit_1_1pgmres.html" target="_self">pgmres</a></td><td class="desc">An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the ILUT routine to precondition the GMRES algorithm. The stopping criteria utilized is based simply on reducing the residual norm to the requested tolerance </td></tr>
 </table>
 </div><!-- directory -->
 </div><!-- contents -->
diff --git a/docs/html/namespaces_dup.js b/docs/html/namespaces_dup.js
index 3bb306fb..a56a08aa 100644
--- a/docs/html/namespaces_dup.js
+++ b/docs/html/namespaces_dup.js
@@ -2,5 +2,6 @@ var namespaces_dup =
 [
     [ "blas", "namespaceblas.html", "namespaceblas" ],
     [ "linalg", "namespacelinalg.html", "namespacelinalg" ],
-    [ "qrupdate", "namespaceqrupdate.html", "namespaceqrupdate" ]
+    [ "qrupdate", "namespaceqrupdate.html", "namespaceqrupdate" ],
+    [ "sparskit", "namespacesparskit.html", "namespacesparskit" ]
 ];
\ No newline at end of file
diff --git a/docs/html/namespacesparskit.html b/docs/html/namespacesparskit.html
new file mode 100644
index 00000000..af4fcdcf
--- /dev/null
+++ b/docs/html/namespacesparskit.html
@@ -0,0 +1,171 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: sparskit Module Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('namespacesparskit.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#nested-classes">Data Types</a>  </div>
+  <div class="headertitle"><div class="title">sparskit Module Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>An interface to the SPARSKIT library available at <a href="https://www-users.cse.umn.edu/~saad/software/SPARSKIT/">https://www-users.cse.umn.edu/~saad/software/SPARSKIT/</a>.  
+<a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="nested-classes" name="nested-classes"></a>
+Data Types</h2></td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1amub.html">amub</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the matrix product: C = A * B.  <a href="interfacesparskit_1_1amub.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1aplb.html">aplb</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the matrix sum: C = A + B, where the matrices are given in CSR format.  <a href="interfacesparskit_1_1aplb.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1aplsb.html">aplsb</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format.  <a href="interfacesparskit_1_1aplsb.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1bndcsr.html">bndcsr</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format.  <a href="interfacesparskit_1_1bndcsr.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1csrcsc2.html">csrcsc2</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts a CSR matrix into a CSC matrix (transposition).  <a href="interfacesparskit_1_1csrcsc2.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1csrmsr.html">csrmsr</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts a CSR matrix to an MSR matrix.  <a href="interfacesparskit_1_1csrmsr.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1getdia.html">getdia</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Extracts the diagonal from a matrix.  <a href="interfacesparskit_1_1getdia.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1getelm.html">getelm</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Gets element A(i,j) of matrix A for any pair (i,j).  <a href="interfacesparskit_1_1getelm.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1ilud.html">ilud</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy.  <a href="interfacesparskit_1_1ilud.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1iludp.html">iludp</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping strategy.  <a href="interfacesparskit_1_1iludp.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1ilut.html">ilut</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism.  <a href="interfacesparskit_1_1ilut.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1ilutp.html">ilutp</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mechanism and pivoting.  <a href="interfacesparskit_1_1ilutp.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1lusol.html">lusol</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Solves the LU-factored system (LU) x = y.  <a href="interfacesparskit_1_1lusol.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1msrcsr.html">msrcsr</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">Converts and MSR matrix to a CSR matrix.  <a href="interfacesparskit_1_1msrcsr.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:"><td class="memItemLeft" align="right" valign="top">interface &#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="interfacesparskit_1_1pgmres.html">pgmres</a></td></tr>
+<tr class="memdesc:"><td class="mdescLeft">&#160;</td><td class="mdescRight">An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the ILUT routine to precondition the GMRES algorithm. The stopping criteria utilized is based simply on reducing the residual norm to the requested tolerance.  <a href="interfacesparskit_1_1pgmres.html#details">More...</a><br /></td></tr>
+<tr class="separator:"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>An interface to the SPARSKIT library available at <a href="https://www-users.cse.umn.edu/~saad/software/SPARSKIT/">https://www-users.cse.umn.edu/~saad/software/SPARSKIT/</a>. </p>
+</div></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacesparskit.html">sparskit</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/namespacesparskit.js b/docs/html/namespacesparskit.js
new file mode 100644
index 00000000..cbaedf38
--- /dev/null
+++ b/docs/html/namespacesparskit.js
@@ -0,0 +1,18 @@
+var namespacesparskit =
+[
+    [ "amub", "interfacesparskit_1_1amub.html", null ],
+    [ "aplb", "interfacesparskit_1_1aplb.html", null ],
+    [ "aplsb", "interfacesparskit_1_1aplsb.html", null ],
+    [ "bndcsr", "interfacesparskit_1_1bndcsr.html", null ],
+    [ "csrcsc2", "interfacesparskit_1_1csrcsc2.html", null ],
+    [ "csrmsr", "interfacesparskit_1_1csrmsr.html", null ],
+    [ "getdia", "interfacesparskit_1_1getdia.html", null ],
+    [ "getelm", "interfacesparskit_1_1getelm.html", null ],
+    [ "ilud", "interfacesparskit_1_1ilud.html", null ],
+    [ "iludp", "interfacesparskit_1_1iludp.html", null ],
+    [ "ilut", "interfacesparskit_1_1ilut.html", null ],
+    [ "ilutp", "interfacesparskit_1_1ilutp.html", null ],
+    [ "lusol", "interfacesparskit_1_1lusol.html", null ],
+    [ "msrcsr", "interfacesparskit_1_1msrcsr.html", null ],
+    [ "pgmres", "interfacesparskit_1_1pgmres.html", null ]
+];
\ No newline at end of file
diff --git a/docs/html/navtreedata.js b/docs/html/navtreedata.js
index 51686446..c9361726 100644
--- a/docs/html/navtreedata.js
+++ b/docs/html/navtreedata.js
@@ -35,7 +35,12 @@ var NAVTREE =
     ] ],
     [ "Data Types", "annotated.html", [
       [ "Data Types List", "annotated.html", "annotated_dup" ],
-      [ "Data Type Index", "classes.html", null ]
+      [ "Data Type Index", "classes.html", null ],
+      [ "Data Fields", "functions.html", [
+        [ "All", "functions.html", null ],
+        [ "Functions/Subroutines", "functions_func.html", null ],
+        [ "Variables", "functions_vars.html", null ]
+      ] ]
     ] ],
     [ "Files", "files.html", [
       [ "File List", "files.html", "files_dup" ],
@@ -50,7 +55,7 @@ var NAVTREE =
 var NAVTREEINDEX =
 [
 "annotated.html",
-"linalg__basic_8f90_source.html"
+"linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15"
 ];
 
 var SYNCONMSG = 'click to disable panel synchronisation';
diff --git a/docs/html/navtreeindex0.js b/docs/html/navtreeindex0.js
index 7bd2d973..d3558b3c 100644
--- a/docs/html/navtreeindex0.js
+++ b/docs/html/navtreeindex0.js
@@ -6,36 +6,41 @@ var NAVTREEINDEX0 =
 "dir_68267d1309a1af8e8297ef4c3efbcdba.html":[3,0,1],
 "dir_d44c64559bbebec7f509842c48db8b23.html":[3,0,0],
 "files.html":[3,0],
+"functions.html":[2,2,0],
+"functions_func.html":[2,2,1],
+"functions_vars.html":[2,2,2],
 "globals.html":[3,1,0],
 "globals_func.html":[3,1,1],
 "index.html":[],
 "index.html#intro_sec":[0],
-"interfaceblas_1_1dgbmv.html":[2,0,0,0],
-"interfaceblas_1_1dgbmv.html":[1,0,0,0],
-"interfaceblas_1_1dgemm.html":[1,0,0,1],
-"interfaceblas_1_1dgemm.html":[2,0,0,1],
-"interfaceblas_1_1dgemv.html":[1,0,0,2],
-"interfaceblas_1_1dgemv.html":[2,0,0,2],
-"interfaceblas_1_1dscal.html":[2,0,0,3],
-"interfaceblas_1_1dscal.html":[1,0,0,3],
-"interfaceblas_1_1dtrsm.html":[2,0,0,4],
-"interfaceblas_1_1dtrsm.html":[1,0,0,4],
-"interfaceblas_1_1dtrsv.html":[2,0,0,5],
-"interfaceblas_1_1dtrsv.html":[1,0,0,5],
-"interfaceblas_1_1zdscal.html":[2,0,0,6],
-"interfaceblas_1_1zdscal.html":[1,0,0,6],
-"interfaceblas_1_1zgbmv.html":[2,0,0,7],
-"interfaceblas_1_1zgbmv.html":[1,0,0,7],
-"interfaceblas_1_1zgemm.html":[2,0,0,8],
-"interfaceblas_1_1zgemm.html":[1,0,0,8],
-"interfaceblas_1_1zgemv.html":[1,0,0,9],
-"interfaceblas_1_1zgemv.html":[2,0,0,9],
-"interfaceblas_1_1zscal.html":[1,0,0,10],
-"interfaceblas_1_1zscal.html":[2,0,0,10],
-"interfaceblas_1_1ztrsm.html":[1,0,0,11],
-"interfaceblas_1_1ztrsm.html":[2,0,0,11],
-"interfaceblas_1_1ztrsv.html":[2,0,0,12],
-"interfaceblas_1_1ztrsv.html":[1,0,0,12],
+"interfaceblas_1_1ddot.html":[1,0,0,0],
+"interfaceblas_1_1ddot.html":[2,0,0,0],
+"interfaceblas_1_1dgbmv.html":[1,0,0,1],
+"interfaceblas_1_1dgbmv.html":[2,0,0,1],
+"interfaceblas_1_1dgemm.html":[2,0,0,2],
+"interfaceblas_1_1dgemm.html":[1,0,0,2],
+"interfaceblas_1_1dgemv.html":[2,0,0,3],
+"interfaceblas_1_1dgemv.html":[1,0,0,3],
+"interfaceblas_1_1dscal.html":[1,0,0,4],
+"interfaceblas_1_1dscal.html":[2,0,0,4],
+"interfaceblas_1_1dtrsm.html":[1,0,0,5],
+"interfaceblas_1_1dtrsm.html":[2,0,0,5],
+"interfaceblas_1_1dtrsv.html":[1,0,0,6],
+"interfaceblas_1_1dtrsv.html":[2,0,0,6],
+"interfaceblas_1_1zdscal.html":[1,0,0,7],
+"interfaceblas_1_1zdscal.html":[2,0,0,7],
+"interfaceblas_1_1zgbmv.html":[1,0,0,8],
+"interfaceblas_1_1zgbmv.html":[2,0,0,8],
+"interfaceblas_1_1zgemm.html":[1,0,0,9],
+"interfaceblas_1_1zgemm.html":[2,0,0,9],
+"interfaceblas_1_1zgemv.html":[2,0,0,10],
+"interfaceblas_1_1zgemv.html":[1,0,0,10],
+"interfaceblas_1_1zscal.html":[2,0,0,11],
+"interfaceblas_1_1zscal.html":[1,0,0,11],
+"interfaceblas_1_1ztrsm.html":[2,0,0,12],
+"interfaceblas_1_1ztrsm.html":[1,0,0,12],
+"interfaceblas_1_1ztrsv.html":[2,0,0,13],
+"interfaceblas_1_1ztrsv.html":[1,0,0,13],
 "interfacelapack_1_1dgeev.html":[2,0,1,0],
 "interfacelapack_1_1dgelqf.html":[2,0,1,1],
 "interfacelapack_1_1dgels.html":[2,0,1,2],
@@ -81,96 +86,152 @@ var NAVTREEINDEX0 =
 "interfacelapack_1_1zunmlq.html":[2,0,1,42],
 "interfacelapack_1_1zunmqr.html":[2,0,1,43],
 "interfacelapack_1_1zunmrz.html":[2,0,1,44],
-"interfacelinalg_1_1band__diag__mtx__mult.html":[2,0,2,0],
 "interfacelinalg_1_1band__diag__mtx__mult.html":[1,0,1,0],
+"interfacelinalg_1_1band__diag__mtx__mult.html":[2,0,2,0],
 "interfacelinalg_1_1band__mtx__mult.html":[1,0,1,1],
 "interfacelinalg_1_1band__mtx__mult.html":[2,0,2,1],
 "interfacelinalg_1_1band__mtx__to__full__mtx.html":[2,0,2,2],
 "interfacelinalg_1_1band__mtx__to__full__mtx.html":[1,0,1,2],
-"interfacelinalg_1_1cholesky__factor.html":[2,0,2,3],
-"interfacelinalg_1_1cholesky__factor.html":[1,0,1,3],
-"interfacelinalg_1_1cholesky__rank1__downdate.html":[2,0,2,4],
-"interfacelinalg_1_1cholesky__rank1__downdate.html":[1,0,1,4],
-"interfacelinalg_1_1cholesky__rank1__update.html":[1,0,1,5],
-"interfacelinalg_1_1cholesky__rank1__update.html":[2,0,2,5],
-"interfacelinalg_1_1det.html":[1,0,1,6],
-"interfacelinalg_1_1det.html":[2,0,2,6],
-"interfacelinalg_1_1diag__mtx__mult.html":[1,0,1,7],
-"interfacelinalg_1_1diag__mtx__mult.html":[2,0,2,7],
-"interfacelinalg_1_1eigen.html":[2,0,2,8],
-"interfacelinalg_1_1eigen.html":[1,0,1,8],
-"interfacelinalg_1_1form__lq.html":[2,0,2,9],
-"interfacelinalg_1_1form__lq.html":[1,0,1,9],
-"interfacelinalg_1_1form__lu.html":[1,0,1,10],
-"interfacelinalg_1_1form__lu.html":[2,0,2,10],
-"interfacelinalg_1_1form__qr.html":[2,0,2,11],
-"interfacelinalg_1_1form__qr.html":[1,0,1,11],
-"interfacelinalg_1_1lq__factor.html":[1,0,1,12],
-"interfacelinalg_1_1lq__factor.html":[2,0,2,12],
-"interfacelinalg_1_1lu__factor.html":[1,0,1,13],
-"interfacelinalg_1_1lu__factor.html":[2,0,2,13],
-"interfacelinalg_1_1mtx__inverse.html":[1,0,1,14],
-"interfacelinalg_1_1mtx__inverse.html":[2,0,2,14],
-"interfacelinalg_1_1mtx__mult.html":[1,0,1,15],
-"interfacelinalg_1_1mtx__mult.html":[2,0,2,15],
-"interfacelinalg_1_1mtx__pinverse.html":[2,0,2,16],
-"interfacelinalg_1_1mtx__pinverse.html":[1,0,1,16],
-"interfacelinalg_1_1mtx__rank.html":[2,0,2,17],
-"interfacelinalg_1_1mtx__rank.html":[1,0,1,17],
-"interfacelinalg_1_1mult__lq.html":[2,0,2,18],
-"interfacelinalg_1_1mult__lq.html":[1,0,1,18],
-"interfacelinalg_1_1mult__qr.html":[1,0,1,19],
-"interfacelinalg_1_1mult__qr.html":[2,0,2,19],
-"interfacelinalg_1_1mult__rz.html":[2,0,2,20],
-"interfacelinalg_1_1mult__rz.html":[1,0,1,20],
-"interfacelinalg_1_1qr__factor.html":[2,0,2,21],
-"interfacelinalg_1_1qr__factor.html":[1,0,1,21],
-"interfacelinalg_1_1qr__rank1__update.html":[2,0,2,22],
-"interfacelinalg_1_1qr__rank1__update.html":[1,0,1,22],
-"interfacelinalg_1_1rank1__update.html":[1,0,1,23],
-"interfacelinalg_1_1rank1__update.html":[2,0,2,23],
-"interfacelinalg_1_1recip__mult__array.html":[2,0,2,24],
-"interfacelinalg_1_1recip__mult__array.html":[1,0,1,24],
-"interfacelinalg_1_1rz__factor.html":[2,0,2,25],
-"interfacelinalg_1_1rz__factor.html":[1,0,1,25],
-"interfacelinalg_1_1solve__cholesky.html":[2,0,2,26],
-"interfacelinalg_1_1solve__cholesky.html":[1,0,1,26],
-"interfacelinalg_1_1solve__least__squares.html":[2,0,2,27],
-"interfacelinalg_1_1solve__least__squares.html":[1,0,1,27],
-"interfacelinalg_1_1solve__least__squares__full.html":[2,0,2,28],
-"interfacelinalg_1_1solve__least__squares__full.html":[1,0,1,28],
-"interfacelinalg_1_1solve__least__squares__svd.html":[2,0,2,29],
-"interfacelinalg_1_1solve__least__squares__svd.html":[1,0,1,29],
-"interfacelinalg_1_1solve__lq.html":[2,0,2,30],
-"interfacelinalg_1_1solve__lq.html":[1,0,1,30],
-"interfacelinalg_1_1solve__lu.html":[2,0,2,31],
-"interfacelinalg_1_1solve__lu.html":[1,0,1,31],
-"interfacelinalg_1_1solve__qr.html":[2,0,2,32],
-"interfacelinalg_1_1solve__qr.html":[1,0,1,32],
-"interfacelinalg_1_1solve__triangular__system.html":[2,0,2,33],
-"interfacelinalg_1_1solve__triangular__system.html":[1,0,1,33],
-"interfacelinalg_1_1sort.html":[2,0,2,34],
-"interfacelinalg_1_1sort.html":[1,0,1,34],
-"interfacelinalg_1_1svd.html":[2,0,2,35],
-"interfacelinalg_1_1svd.html":[1,0,1,35],
-"interfacelinalg_1_1swap.html":[2,0,2,36],
-"interfacelinalg_1_1swap.html":[1,0,1,36],
-"interfacelinalg_1_1trace.html":[1,0,1,37],
-"interfacelinalg_1_1trace.html":[2,0,2,37],
-"interfacelinalg_1_1tri__mtx__mult.html":[1,0,1,38],
-"interfacelinalg_1_1tri__mtx__mult.html":[2,0,2,38],
-"interfaceqrupdate_1_1dch1dn.html":[2,0,3,0],
+"interfacelinalg_1_1banded__to__dense.html":[1,0,1,3],
+"interfacelinalg_1_1banded__to__dense.html":[2,0,2,3],
+"interfacelinalg_1_1cholesky__factor.html":[2,0,2,4],
+"interfacelinalg_1_1cholesky__factor.html":[1,0,1,4],
+"interfacelinalg_1_1cholesky__rank1__downdate.html":[2,0,2,5],
+"interfacelinalg_1_1cholesky__rank1__downdate.html":[1,0,1,5],
+"interfacelinalg_1_1cholesky__rank1__update.html":[2,0,2,6],
+"interfacelinalg_1_1cholesky__rank1__update.html":[1,0,1,6],
+"interfacelinalg_1_1dense__to__banded.html":[2,0,2,8],
+"interfacelinalg_1_1dense__to__banded.html":[1,0,1,8],
+"interfacelinalg_1_1det.html":[2,0,2,9],
+"interfacelinalg_1_1det.html":[1,0,1,9],
+"interfacelinalg_1_1diag__mtx__mult.html":[2,0,2,10],
+"interfacelinalg_1_1diag__mtx__mult.html":[1,0,1,10],
+"interfacelinalg_1_1eigen.html":[2,0,2,11],
+"interfacelinalg_1_1eigen.html":[1,0,1,11],
+"interfacelinalg_1_1extract__diagonal.html":[2,0,2,12],
+"interfacelinalg_1_1extract__diagonal.html":[1,0,1,12],
+"interfacelinalg_1_1form__lq.html":[2,0,2,13],
+"interfacelinalg_1_1form__lq.html":[1,0,1,13],
+"interfacelinalg_1_1form__lu.html":[2,0,2,14],
+"interfacelinalg_1_1form__lu.html":[1,0,1,14],
+"interfacelinalg_1_1form__qr.html":[2,0,2,15],
+"interfacelinalg_1_1form__qr.html":[1,0,1,15],
+"interfacelinalg_1_1lq__factor.html":[1,0,1,16],
+"interfacelinalg_1_1lq__factor.html":[2,0,2,16],
+"interfacelinalg_1_1lu__factor.html":[2,0,2,17],
+"interfacelinalg_1_1lu__factor.html":[1,0,1,17],
+"interfacelinalg_1_1matmul.html":[1,0,1,18],
+"interfacelinalg_1_1matmul.html":[2,0,2,18],
+"interfacelinalg_1_1mtx__inverse.html":[1,0,1,20],
+"interfacelinalg_1_1mtx__inverse.html":[2,0,2,20],
+"interfacelinalg_1_1mtx__mult.html":[1,0,1,21],
+"interfacelinalg_1_1mtx__mult.html":[2,0,2,21],
+"interfacelinalg_1_1mtx__pinverse.html":[1,0,1,22],
+"interfacelinalg_1_1mtx__pinverse.html":[2,0,2,22],
+"interfacelinalg_1_1mtx__rank.html":[2,0,2,23],
+"interfacelinalg_1_1mtx__rank.html":[1,0,1,23],
+"interfacelinalg_1_1mult__lq.html":[1,0,1,24],
+"interfacelinalg_1_1mult__lq.html":[2,0,2,24],
+"interfacelinalg_1_1mult__qr.html":[2,0,2,25],
+"interfacelinalg_1_1mult__qr.html":[1,0,1,25],
+"interfacelinalg_1_1mult__rz.html":[2,0,2,26],
+"interfacelinalg_1_1mult__rz.html":[1,0,1,26],
+"interfacelinalg_1_1nonzero__count.html":[1,0,1,27],
+"interfacelinalg_1_1nonzero__count.html":[2,0,2,27],
+"interfacelinalg_1_1operator_07-_08.html":[1,0,1,30],
+"interfacelinalg_1_1operator_07-_08.html":[2,0,2,30],
+"interfacelinalg_1_1operator_07_09_08.html":[1,0,1,29],
+"interfacelinalg_1_1operator_07_09_08.html":[2,0,2,29],
+"interfacelinalg_1_1operator_07_2_08.html":[1,0,1,31],
+"interfacelinalg_1_1operator_07_2_08.html":[2,0,2,31],
+"interfacelinalg_1_1operator_07_5_08.html":[1,0,1,28],
+"interfacelinalg_1_1operator_07_5_08.html":[2,0,2,28],
+"interfacelinalg_1_1pgmres__solver.html":[1,0,1,32],
+"interfacelinalg_1_1pgmres__solver.html":[2,0,2,32],
+"interfacelinalg_1_1qr__factor.html":[1,0,1,33],
+"interfacelinalg_1_1qr__factor.html":[2,0,2,33],
+"interfacelinalg_1_1qr__rank1__update.html":[1,0,1,34],
+"interfacelinalg_1_1qr__rank1__update.html":[2,0,2,34],
+"interfacelinalg_1_1rank1__update.html":[2,0,2,35],
+"interfacelinalg_1_1rank1__update.html":[1,0,1,35],
+"interfacelinalg_1_1recip__mult__array.html":[2,0,2,36],
+"interfacelinalg_1_1recip__mult__array.html":[1,0,1,36],
+"interfacelinalg_1_1rz__factor.html":[1,0,1,37],
+"interfacelinalg_1_1rz__factor.html":[2,0,2,37],
+"interfacelinalg_1_1size.html":[1,0,1,38],
+"interfacelinalg_1_1size.html":[2,0,2,38],
+"interfacelinalg_1_1solve__cholesky.html":[1,0,1,39],
+"interfacelinalg_1_1solve__cholesky.html":[2,0,2,39],
+"interfacelinalg_1_1solve__least__squares.html":[2,0,2,40],
+"interfacelinalg_1_1solve__least__squares.html":[1,0,1,40],
+"interfacelinalg_1_1solve__least__squares__full.html":[2,0,2,41],
+"interfacelinalg_1_1solve__least__squares__full.html":[1,0,1,41],
+"interfacelinalg_1_1solve__least__squares__svd.html":[2,0,2,42],
+"interfacelinalg_1_1solve__least__squares__svd.html":[1,0,1,42],
+"interfacelinalg_1_1solve__lq.html":[2,0,2,43],
+"interfacelinalg_1_1solve__lq.html":[1,0,1,43],
+"interfacelinalg_1_1solve__lu.html":[2,0,2,44],
+"interfacelinalg_1_1solve__lu.html":[1,0,1,44],
+"interfacelinalg_1_1solve__qr.html":[1,0,1,45],
+"interfacelinalg_1_1solve__qr.html":[2,0,2,45],
+"interfacelinalg_1_1solve__triangular__system.html":[2,0,2,46],
+"interfacelinalg_1_1solve__triangular__system.html":[1,0,1,46],
+"interfacelinalg_1_1sort.html":[2,0,2,47],
+"interfacelinalg_1_1sort.html":[1,0,1,47],
+"interfacelinalg_1_1sparse__direct__solve.html":[2,0,2,48],
+"interfacelinalg_1_1sparse__direct__solve.html":[1,0,1,48],
+"interfacelinalg_1_1svd.html":[1,0,1,49],
+"interfacelinalg_1_1svd.html":[2,0,2,49],
+"interfacelinalg_1_1swap.html":[1,0,1,50],
+"interfacelinalg_1_1swap.html":[2,0,2,50],
+"interfacelinalg_1_1trace.html":[2,0,2,51],
+"interfacelinalg_1_1trace.html":[1,0,1,51],
+"interfacelinalg_1_1transpose.html":[2,0,2,52],
+"interfacelinalg_1_1transpose.html":[1,0,1,52],
+"interfacelinalg_1_1tri__mtx__mult.html":[2,0,2,53],
+"interfacelinalg_1_1tri__mtx__mult.html":[1,0,1,53],
 "interfaceqrupdate_1_1dch1dn.html":[1,0,2,0],
-"interfaceqrupdate_1_1dch1up.html":[2,0,3,1],
+"interfaceqrupdate_1_1dch1dn.html":[2,0,3,0],
 "interfaceqrupdate_1_1dch1up.html":[1,0,2,1],
+"interfaceqrupdate_1_1dch1up.html":[2,0,3,1],
 "interfaceqrupdate_1_1dqr1up.html":[1,0,2,2],
 "interfaceqrupdate_1_1dqr1up.html":[2,0,3,2],
-"interfaceqrupdate_1_1zch1dn.html":[2,0,3,3],
 "interfaceqrupdate_1_1zch1dn.html":[1,0,2,3],
-"interfaceqrupdate_1_1zch1up.html":[2,0,3,4],
+"interfaceqrupdate_1_1zch1dn.html":[2,0,3,3],
 "interfaceqrupdate_1_1zch1up.html":[1,0,2,4],
-"interfaceqrupdate_1_1zqr1up.html":[2,0,3,5],
+"interfaceqrupdate_1_1zch1up.html":[2,0,3,4],
 "interfaceqrupdate_1_1zqr1up.html":[1,0,2,5],
+"interfaceqrupdate_1_1zqr1up.html":[2,0,3,5],
+"interfacesparskit_1_1amub.html":[1,0,3,0],
+"interfacesparskit_1_1amub.html":[2,0,4,0],
+"interfacesparskit_1_1aplb.html":[1,0,3,1],
+"interfacesparskit_1_1aplb.html":[2,0,4,1],
+"interfacesparskit_1_1aplsb.html":[2,0,4,2],
+"interfacesparskit_1_1aplsb.html":[1,0,3,2],
+"interfacesparskit_1_1bndcsr.html":[2,0,4,3],
+"interfacesparskit_1_1bndcsr.html":[1,0,3,3],
+"interfacesparskit_1_1csrcsc2.html":[2,0,4,4],
+"interfacesparskit_1_1csrcsc2.html":[1,0,3,4],
+"interfacesparskit_1_1csrmsr.html":[2,0,4,5],
+"interfacesparskit_1_1csrmsr.html":[1,0,3,5],
+"interfacesparskit_1_1getdia.html":[1,0,3,6],
+"interfacesparskit_1_1getdia.html":[2,0,4,6],
+"interfacesparskit_1_1getelm.html":[1,0,3,7],
+"interfacesparskit_1_1getelm.html":[2,0,4,7],
+"interfacesparskit_1_1ilud.html":[1,0,3,8],
+"interfacesparskit_1_1ilud.html":[2,0,4,8],
+"interfacesparskit_1_1iludp.html":[2,0,4,9],
+"interfacesparskit_1_1iludp.html":[1,0,3,9],
+"interfacesparskit_1_1ilut.html":[2,0,4,10],
+"interfacesparskit_1_1ilut.html":[1,0,3,10],
+"interfacesparskit_1_1ilutp.html":[2,0,4,11],
+"interfacesparskit_1_1ilutp.html":[1,0,3,11],
+"interfacesparskit_1_1lusol.html":[2,0,4,12],
+"interfacesparskit_1_1lusol.html":[1,0,3,12],
+"interfacesparskit_1_1msrcsr.html":[2,0,4,13],
+"interfacesparskit_1_1msrcsr.html":[1,0,3,13],
+"interfacesparskit_1_1pgmres.html":[1,0,3,14],
+"interfacesparskit_1_1pgmres.html":[2,0,4,14],
 "lapack_8f90_source.html":[3,0,1,1],
 "linalg_8f90_source.html":[3,0,1,2],
 "linalg_8h.html":[3,0,0,0],
@@ -188,66 +249,5 @@ var NAVTREEINDEX0 =
 "linalg_8h.html#a248142a5f0826cddac5daf1c74f234a6":[3,0,0,0,33],
 "linalg_8h.html#a292e54c48a8e7f0203bf11f02844691f":[3,0,0,0,8],
 "linalg_8h.html#a2c485d619c24435be713cf4356285e9a":[3,0,0,0,57],
-"linalg_8h.html#a3967bc139cba341a513d1353bea62ac9":[3,0,0,0,6],
-"linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15":[3,0,0,0,51],
-"linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97":[3,0,0,0,45],
-"linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7":[3,0,0,0,14],
-"linalg_8h.html#a4bc671dad87b42ff285a4241322a3764":[3,0,0,0,46],
-"linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d":[3,0,0,0,16],
-"linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54":[3,0,0,0,58],
-"linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d":[3,0,0,0,69],
-"linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa":[3,0,0,0,32],
-"linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb":[3,0,0,0,64],
-"linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65":[3,0,0,0,15],
-"linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437":[3,0,0,0,0],
-"linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf":[3,0,0,0,54],
-"linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b":[3,0,0,0,42],
-"linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14":[3,0,0,0,24],
-"linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9":[3,0,0,0,43],
-"linalg_8h.html#a7a821b41c61670f5710214a4d9178998":[3,0,0,0,30],
-"linalg_8h.html#a7b2048bb219e58f455175041558ac44f":[3,0,0,0,31],
-"linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112":[3,0,0,0,71],
-"linalg_8h.html#a910a1ec23e1112487573f35765a421ca":[3,0,0,0,1],
-"linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74":[3,0,0,0,17],
-"linalg_8h.html#a95d6ed56844c62d553b940091837014b":[3,0,0,0,29],
-"linalg_8h.html#a95f921847131eaedd62a439490d2a801":[3,0,0,0,39],
-"linalg_8h.html#a968b10545320af7bbe1030867ae88e8c":[3,0,0,0,35],
-"linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f":[3,0,0,0,47],
-"linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74":[3,0,0,0,60],
-"linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f":[3,0,0,0,5],
-"linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed":[3,0,0,0,22],
-"linalg_8h.html#aace787c5b11959a457b936ace4995033":[3,0,0,0,28],
-"linalg_8h.html#aae725d3247301d1163c58f89edff3d4b":[3,0,0,0,59],
-"linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74":[3,0,0,0,50],
-"linalg_8h.html#abeb7ee58d4151498be96aa91432f296f":[3,0,0,0,10],
-"linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493":[3,0,0,0,67],
-"linalg_8h.html#ac208d5e6849972a77ef261f2e368868c":[3,0,0,0,20],
-"linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64":[3,0,0,0,56],
-"linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96":[3,0,0,0,21],
-"linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773":[3,0,0,0,37],
-"linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913":[3,0,0,0,12],
-"linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0":[3,0,0,0,3],
-"linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3":[3,0,0,0,40],
-"linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47":[3,0,0,0,34],
-"linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431":[3,0,0,0,13],
-"linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef":[3,0,0,0,48],
-"linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070":[3,0,0,0,63],
-"linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38":[3,0,0,0,27],
-"linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5":[3,0,0,0,38],
-"linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea":[3,0,0,0,4],
-"linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e":[3,0,0,0,2],
-"linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf":[3,0,0,0,18],
-"linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896":[3,0,0,0,44],
-"linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e":[3,0,0,0,73],
-"linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4":[3,0,0,0,65],
-"linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0":[3,0,0,0,61],
-"linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76":[3,0,0,0,36],
-"linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3":[3,0,0,0,11],
-"linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2":[3,0,0,0,19],
-"linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6":[3,0,0,0,41],
-"linalg_8h.html#af87823d73fb5a319e4262594d147e38c":[3,0,0,0,66],
-"linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e":[3,0,0,0,70],
-"linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258":[3,0,0,0,52],
-"linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548":[3,0,0,0,25],
-"linalg_8h_source.html":[3,0,0,0]
+"linalg_8h.html#a3967bc139cba341a513d1353bea62ac9":[3,0,0,0,6]
 };
diff --git a/docs/html/navtreeindex1.js b/docs/html/navtreeindex1.js
index 18ceddde..f92e52f0 100644
--- a/docs/html/navtreeindex1.js
+++ b/docs/html/navtreeindex1.js
@@ -1,27 +1,107 @@
 var NAVTREEINDEX1 =
 {
+"linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15":[3,0,0,0,51],
+"linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97":[3,0,0,0,45],
+"linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7":[3,0,0,0,14],
+"linalg_8h.html#a4bc671dad87b42ff285a4241322a3764":[3,0,0,0,46],
+"linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d":[3,0,0,0,16],
+"linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54":[3,0,0,0,58],
+"linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d":[3,0,0,0,69],
+"linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa":[3,0,0,0,32],
+"linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb":[3,0,0,0,64],
+"linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65":[3,0,0,0,15],
+"linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437":[3,0,0,0,0],
+"linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf":[3,0,0,0,54],
+"linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b":[3,0,0,0,42],
+"linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14":[3,0,0,0,24],
+"linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9":[3,0,0,0,43],
+"linalg_8h.html#a7a821b41c61670f5710214a4d9178998":[3,0,0,0,30],
+"linalg_8h.html#a7b2048bb219e58f455175041558ac44f":[3,0,0,0,31],
+"linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112":[3,0,0,0,71],
+"linalg_8h.html#a910a1ec23e1112487573f35765a421ca":[3,0,0,0,1],
+"linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74":[3,0,0,0,17],
+"linalg_8h.html#a95d6ed56844c62d553b940091837014b":[3,0,0,0,29],
+"linalg_8h.html#a95f921847131eaedd62a439490d2a801":[3,0,0,0,39],
+"linalg_8h.html#a968b10545320af7bbe1030867ae88e8c":[3,0,0,0,35],
+"linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f":[3,0,0,0,47],
+"linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74":[3,0,0,0,60],
+"linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f":[3,0,0,0,5],
+"linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed":[3,0,0,0,22],
+"linalg_8h.html#aace787c5b11959a457b936ace4995033":[3,0,0,0,28],
+"linalg_8h.html#aae725d3247301d1163c58f89edff3d4b":[3,0,0,0,59],
+"linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74":[3,0,0,0,50],
+"linalg_8h.html#abeb7ee58d4151498be96aa91432f296f":[3,0,0,0,10],
+"linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493":[3,0,0,0,67],
+"linalg_8h.html#ac208d5e6849972a77ef261f2e368868c":[3,0,0,0,20],
+"linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64":[3,0,0,0,56],
+"linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96":[3,0,0,0,21],
+"linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773":[3,0,0,0,37],
+"linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913":[3,0,0,0,12],
+"linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0":[3,0,0,0,3],
+"linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3":[3,0,0,0,40],
+"linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47":[3,0,0,0,34],
+"linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431":[3,0,0,0,13],
+"linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef":[3,0,0,0,48],
+"linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070":[3,0,0,0,63],
+"linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38":[3,0,0,0,27],
+"linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5":[3,0,0,0,38],
+"linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea":[3,0,0,0,4],
+"linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e":[3,0,0,0,2],
+"linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf":[3,0,0,0,18],
+"linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896":[3,0,0,0,44],
+"linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e":[3,0,0,0,73],
+"linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4":[3,0,0,0,65],
+"linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0":[3,0,0,0,61],
+"linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76":[3,0,0,0,36],
+"linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3":[3,0,0,0,11],
+"linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2":[3,0,0,0,19],
+"linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6":[3,0,0,0,41],
+"linalg_8h.html#af87823d73fb5a319e4262594d147e38c":[3,0,0,0,66],
+"linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e":[3,0,0,0,70],
+"linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258":[3,0,0,0,52],
+"linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548":[3,0,0,0,25],
+"linalg_8h_source.html":[3,0,0,0],
 "linalg__basic_8f90_source.html":[3,0,1,3],
 "linalg__eigen_8f90_source.html":[3,0,1,4],
 "linalg__factor_8f90_source.html":[3,0,1,5],
 "linalg__solve_8f90_source.html":[3,0,1,6],
 "linalg__sorting_8f90_source.html":[3,0,1,7],
+"linalg__sparse_8f90_source.html":[3,0,1,8],
 "namespaceblas.html":[1,0,0],
 "namespacelinalg.html":[1,0,1],
-"namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a":[1,0,1,41],
-"namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59":[1,0,1,49],
-"namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc":[1,0,1,43],
-"namespacelinalg.html#a665d131453840e869510e9e8d2f7f151":[1,0,1,46],
-"namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9":[1,0,1,39],
-"namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006":[1,0,1,47],
-"namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7":[1,0,1,40],
-"namespacelinalg.html#ace738355659bce2e9591473f0d543ef7":[1,0,1,42],
-"namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776":[1,0,1,44],
-"namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4":[1,0,1,45],
-"namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9":[1,0,1,48],
+"namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a":[1,0,1,56],
+"namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59":[1,0,1,64],
+"namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc":[1,0,1,58],
+"namespacelinalg.html#a665d131453840e869510e9e8d2f7f151":[1,0,1,61],
+"namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9":[1,0,1,54],
+"namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006":[1,0,1,62],
+"namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7":[1,0,1,55],
+"namespacelinalg.html#ace738355659bce2e9591473f0d543ef7":[1,0,1,57],
+"namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776":[1,0,1,59],
+"namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4":[1,0,1,60],
+"namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9":[1,0,1,63],
 "namespacemembers.html":[1,1,0],
 "namespacemembers_vars.html":[1,1,1],
 "namespaceqrupdate.html":[1,0,2],
 "namespaces.html":[1,0],
+"namespacesparskit.html":[1,0,3],
 "pages.html":[],
-"qrupdate_8f90_source.html":[3,0,1,8]
+"qrupdate_8f90_source.html":[3,0,1,9],
+"sparskit_8f90_source.html":[3,0,1,10],
+"structlinalg_1_1csr__matrix.html":[1,0,1,7],
+"structlinalg_1_1csr__matrix.html":[2,0,2,7],
+"structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de":[1,0,1,7,2],
+"structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de":[2,0,2,7,2],
+"structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf":[1,0,1,7,0],
+"structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf":[2,0,2,7,0],
+"structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307":[1,0,1,7,1],
+"structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307":[2,0,2,7,1],
+"structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5":[1,0,1,7,3],
+"structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5":[2,0,2,7,3],
+"structlinalg_1_1msr__matrix.html":[1,0,1,19],
+"structlinalg_1_1msr__matrix.html":[2,0,2,19],
+"structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a":[1,0,1,19,0],
+"structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a":[2,0,2,19,0],
+"structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75":[1,0,1,19,1],
+"structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75":[2,0,2,19,1]
 };
diff --git a/docs/html/qrupdate_8f90_source.html b/docs/html/qrupdate_8f90_source.html
index b1356b0d..78e03e00 100644
--- a/docs/html/qrupdate_8f90_source.html
+++ b/docs/html/qrupdate_8f90_source.html
@@ -34,7 +34,7 @@
  <tbody>
  <tr id="projectrow">
   <td id="projectalign">
-   <div id="projectname">linalg<span id="projectnumber">&#160;1.7.4</span>
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
    </div>
    <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
   </td>
diff --git a/docs/html/search/all_0.js b/docs/html/search/all_0.js
index aca5fb3e..d6dd5479 100644
--- a/docs/html/search/all_0.js
+++ b/docs/html/search/all_0.js
@@ -1,7 +1,6 @@
 var searchData=
 [
-  ['band_5fdiag_5fmtx_5fmult_0',['band_diag_mtx_mult',['../interfacelinalg_1_1band__diag__mtx__mult.html',1,'linalg']]],
-  ['band_5fmtx_5fmult_1',['band_mtx_mult',['../interfacelinalg_1_1band__mtx__mult.html',1,'linalg']]],
-  ['band_5fmtx_5fto_5ffull_5fmtx_2',['band_mtx_to_full_mtx',['../interfacelinalg_1_1band__mtx__to__full__mtx.html',1,'linalg']]],
-  ['blas_3',['blas',['../namespaceblas.html',1,'']]]
+  ['amub_0',['amub',['../interfacesparskit_1_1amub.html',1,'sparskit']]],
+  ['aplb_1',['aplb',['../interfacesparskit_1_1aplb.html',1,'sparskit']]],
+  ['aplsb_2',['aplsb',['../interfacesparskit_1_1aplsb.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/all_1.js b/docs/html/search/all_1.js
index 23e04882..9e6702ce 100644
--- a/docs/html/search/all_1.js
+++ b/docs/html/search/all_1.js
@@ -1,6 +1,9 @@
 var searchData=
 [
-  ['cholesky_5ffactor_0',['cholesky_factor',['../interfacelinalg_1_1cholesky__factor.html',1,'linalg']]],
-  ['cholesky_5frank1_5fdowndate_1',['cholesky_rank1_downdate',['../interfacelinalg_1_1cholesky__rank1__downdate.html',1,'linalg']]],
-  ['cholesky_5frank1_5fupdate_2',['cholesky_rank1_update',['../interfacelinalg_1_1cholesky__rank1__update.html',1,'linalg']]]
+  ['band_5fdiag_5fmtx_5fmult_0',['band_diag_mtx_mult',['../interfacelinalg_1_1band__diag__mtx__mult.html',1,'linalg']]],
+  ['band_5fmtx_5fmult_1',['band_mtx_mult',['../interfacelinalg_1_1band__mtx__mult.html',1,'linalg']]],
+  ['band_5fmtx_5fto_5ffull_5fmtx_2',['band_mtx_to_full_mtx',['../interfacelinalg_1_1band__mtx__to__full__mtx.html',1,'linalg']]],
+  ['banded_5fto_5fdense_3',['banded_to_dense',['../interfacelinalg_1_1banded__to__dense.html',1,'linalg']]],
+  ['blas_4',['blas',['../namespaceblas.html',1,'']]],
+  ['bndcsr_5',['bndcsr',['../interfacesparskit_1_1bndcsr.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/all_10.js b/docs/html/search/all_10.js
new file mode 100644
index 00000000..00bd9d8e
--- /dev/null
+++ b/docs/html/search/all_10.js
@@ -0,0 +1,6 @@
+var searchData=
+[
+  ['trace_0',['trace',['../interfacelinalg_1_1trace.html',1,'linalg']]],
+  ['transpose_1',['transpose',['../interfacelinalg_1_1transpose.html',1,'linalg']]],
+  ['tri_5fmtx_5fmult_2',['tri_mtx_mult',['../interfacelinalg_1_1tri__mtx__mult.html',1,'linalg']]]
+];
diff --git a/docs/html/search/all_11.js b/docs/html/search/all_11.js
new file mode 100644
index 00000000..3f9b2fe2
--- /dev/null
+++ b/docs/html/search/all_11.js
@@ -0,0 +1,4 @@
+var searchData=
+[
+  ['values_0',['values',['../structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5',1,'linalg::csr_matrix::values'],['../structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75',1,'linalg::msr_matrix::values']]]
+];
diff --git a/docs/html/search/all_12.js b/docs/html/search/all_12.js
new file mode 100644
index 00000000..81ee744d
--- /dev/null
+++ b/docs/html/search/all_12.js
@@ -0,0 +1,33 @@
+var searchData=
+[
+  ['zch1dn_0',['zch1dn',['../interfaceqrupdate_1_1zch1dn.html',1,'qrupdate']]],
+  ['zch1up_1',['zch1up',['../interfaceqrupdate_1_1zch1up.html',1,'qrupdate']]],
+  ['zdscal_2',['zdscal',['../interfaceblas_1_1zdscal.html',1,'blas']]],
+  ['zgbmv_3',['zgbmv',['../interfaceblas_1_1zgbmv.html',1,'blas']]],
+  ['zgeev_4',['zgeev',['../interfacelapack_1_1zgeev.html',1,'lapack']]],
+  ['zgelqf_5',['zgelqf',['../interfacelapack_1_1zgelqf.html',1,'lapack']]],
+  ['zgels_6',['zgels',['../interfacelapack_1_1zgels.html',1,'lapack']]],
+  ['zgelss_7',['zgelss',['../interfacelapack_1_1zgelss.html',1,'lapack']]],
+  ['zgelsy_8',['zgelsy',['../interfacelapack_1_1zgelsy.html',1,'lapack']]],
+  ['zgemm_9',['zgemm',['../interfaceblas_1_1zgemm.html',1,'blas']]],
+  ['zgemv_10',['zgemv',['../interfaceblas_1_1zgemv.html',1,'blas']]],
+  ['zgeqp3_11',['zgeqp3',['../interfacelapack_1_1zgeqp3.html',1,'lapack']]],
+  ['zgeqrf_12',['zgeqrf',['../interfacelapack_1_1zgeqrf.html',1,'lapack']]],
+  ['zgesvd_13',['zgesvd',['../interfacelapack_1_1zgesvd.html',1,'lapack']]],
+  ['zgetrf_14',['zgetrf',['../interfacelapack_1_1zgetrf.html',1,'lapack']]],
+  ['zgetri_15',['zgetri',['../interfacelapack_1_1zgetri.html',1,'lapack']]],
+  ['zgetrs_16',['zgetrs',['../interfacelapack_1_1zgetrs.html',1,'lapack']]],
+  ['zlaic1_17',['zlaic1',['../interfacelapack_1_1zlaic1.html',1,'lapack']]],
+  ['zpotrf_18',['zpotrf',['../interfacelapack_1_1zpotrf.html',1,'lapack']]],
+  ['zpotrs_19',['zpotrs',['../interfacelapack_1_1zpotrs.html',1,'lapack']]],
+  ['zqr1up_20',['zqr1up',['../interfaceqrupdate_1_1zqr1up.html',1,'qrupdate']]],
+  ['zscal_21',['zscal',['../interfaceblas_1_1zscal.html',1,'blas']]],
+  ['ztrsm_22',['ztrsm',['../interfaceblas_1_1ztrsm.html',1,'blas']]],
+  ['ztrsv_23',['ztrsv',['../interfaceblas_1_1ztrsv.html',1,'blas']]],
+  ['ztzrzf_24',['ztzrzf',['../interfacelapack_1_1ztzrzf.html',1,'lapack']]],
+  ['zunglq_25',['zunglq',['../interfacelapack_1_1zunglq.html',1,'lapack']]],
+  ['zungqr_26',['zungqr',['../interfacelapack_1_1zungqr.html',1,'lapack']]],
+  ['zunmlq_27',['zunmlq',['../interfacelapack_1_1zunmlq.html',1,'lapack']]],
+  ['zunmqr_28',['zunmqr',['../interfacelapack_1_1zunmqr.html',1,'lapack']]],
+  ['zunmrz_29',['zunmrz',['../interfacelapack_1_1zunmrz.html',1,'lapack']]]
+];
diff --git a/docs/html/search/all_2.js b/docs/html/search/all_2.js
index 765b640d..69a7740c 100644
--- a/docs/html/search/all_2.js
+++ b/docs/html/search/all_2.js
@@ -1,39 +1,10 @@
 var searchData=
 [
-  ['dch1dn_0',['dch1dn',['../interfaceqrupdate_1_1dch1dn.html',1,'qrupdate']]],
-  ['dch1up_1',['dch1up',['../interfaceqrupdate_1_1dch1up.html',1,'qrupdate']]],
-  ['det_2',['det',['../interfacelinalg_1_1det.html',1,'linalg']]],
-  ['dgbmv_3',['dgbmv',['../interfaceblas_1_1dgbmv.html',1,'blas']]],
-  ['dgeev_4',['dgeev',['../interfacelapack_1_1dgeev.html',1,'lapack']]],
-  ['dgelqf_5',['dgelqf',['../interfacelapack_1_1dgelqf.html',1,'lapack']]],
-  ['dgels_6',['dgels',['../interfacelapack_1_1dgels.html',1,'lapack']]],
-  ['dgelss_7',['dgelss',['../interfacelapack_1_1dgelss.html',1,'lapack']]],
-  ['dgelsy_8',['dgelsy',['../interfacelapack_1_1dgelsy.html',1,'lapack']]],
-  ['dgemm_9',['dgemm',['../interfaceblas_1_1dgemm.html',1,'blas']]],
-  ['dgemv_10',['dgemv',['../interfaceblas_1_1dgemv.html',1,'blas']]],
-  ['dgeqp3_11',['dgeqp3',['../interfacelapack_1_1dgeqp3.html',1,'lapack']]],
-  ['dgeqrf_12',['dgeqrf',['../interfacelapack_1_1dgeqrf.html',1,'lapack']]],
-  ['dgesvd_13',['dgesvd',['../interfacelapack_1_1dgesvd.html',1,'lapack']]],
-  ['dgetrf_14',['dgetrf',['../interfacelapack_1_1dgetrf.html',1,'lapack']]],
-  ['dgetri_15',['dgetri',['../interfacelapack_1_1dgetri.html',1,'lapack']]],
-  ['dgetrs_16',['dgetrs',['../interfacelapack_1_1dgetrs.html',1,'lapack']]],
-  ['dggev_17',['dggev',['../interfacelapack_1_1dggev.html',1,'lapack']]],
-  ['diag_5fmtx_5fmult_18',['diag_mtx_mult',['../interfacelinalg_1_1diag__mtx__mult.html',1,'linalg']]],
-  ['dlaic1_19',['dlaic1',['../interfacelapack_1_1dlaic1.html',1,'lapack']]],
-  ['dlamch_20',['dlamch',['../interfacelapack_1_1dlamch.html',1,'lapack']]],
-  ['dlaset_21',['dlaset',['../interfacelapack_1_1dlaset.html',1,'lapack']]],
-  ['dlasrt_22',['dlasrt',['../interfacelapack_1_1dlasrt.html',1,'lapack']]],
-  ['dorglq_23',['dorglq',['../interfacelapack_1_1dorglq.html',1,'lapack']]],
-  ['dorgqr_24',['dorgqr',['../interfacelapack_1_1dorgqr.html',1,'lapack']]],
-  ['dormlq_25',['dormlq',['../interfacelapack_1_1dormlq.html',1,'lapack']]],
-  ['dormqr_26',['dormqr',['../interfacelapack_1_1dormqr.html',1,'lapack']]],
-  ['dormrz_27',['dormrz',['../interfacelapack_1_1dormrz.html',1,'lapack']]],
-  ['dpotrf_28',['dpotrf',['../interfacelapack_1_1dpotrf.html',1,'lapack']]],
-  ['dpotrs_29',['dpotrs',['../interfacelapack_1_1dpotrs.html',1,'lapack']]],
-  ['dqr1up_30',['dqr1up',['../interfaceqrupdate_1_1dqr1up.html',1,'qrupdate']]],
-  ['dscal_31',['dscal',['../interfaceblas_1_1dscal.html',1,'blas']]],
-  ['dsyev_32',['dsyev',['../interfacelapack_1_1dsyev.html',1,'lapack']]],
-  ['dtrsm_33',['dtrsm',['../interfaceblas_1_1dtrsm.html',1,'blas']]],
-  ['dtrsv_34',['dtrsv',['../interfaceblas_1_1dtrsv.html',1,'blas']]],
-  ['dtzrzf_35',['dtzrzf',['../interfacelapack_1_1dtzrzf.html',1,'lapack']]]
+  ['cholesky_5ffactor_0',['cholesky_factor',['../interfacelinalg_1_1cholesky__factor.html',1,'linalg']]],
+  ['cholesky_5frank1_5fdowndate_1',['cholesky_rank1_downdate',['../interfacelinalg_1_1cholesky__rank1__downdate.html',1,'linalg']]],
+  ['cholesky_5frank1_5fupdate_2',['cholesky_rank1_update',['../interfacelinalg_1_1cholesky__rank1__update.html',1,'linalg']]],
+  ['column_5findices_3',['column_indices',['../structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307',1,'linalg::csr_matrix']]],
+  ['csr_5fmatrix_4',['csr_matrix',['../structlinalg_1_1csr__matrix.html',1,'linalg']]],
+  ['csrcsc2_5',['csrcsc2',['../interfacesparskit_1_1csrcsc2.html',1,'sparskit']]],
+  ['csrmsr_6',['csrmsr',['../interfacesparskit_1_1csrmsr.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/all_3.js b/docs/html/search/all_3.js
index 66cad2be..13834bf8 100644
--- a/docs/html/search/all_3.js
+++ b/docs/html/search/all_3.js
@@ -1,4 +1,41 @@
 var searchData=
 [
-  ['eigen_0',['eigen',['../interfacelinalg_1_1eigen.html',1,'linalg']]]
+  ['dch1dn_0',['dch1dn',['../interfaceqrupdate_1_1dch1dn.html',1,'qrupdate']]],
+  ['dch1up_1',['dch1up',['../interfaceqrupdate_1_1dch1up.html',1,'qrupdate']]],
+  ['ddot_2',['ddot',['../interfaceblas_1_1ddot.html',1,'blas']]],
+  ['dense_5fto_5fbanded_3',['dense_to_banded',['../interfacelinalg_1_1dense__to__banded.html',1,'linalg']]],
+  ['det_4',['det',['../interfacelinalg_1_1det.html',1,'linalg']]],
+  ['dgbmv_5',['dgbmv',['../interfaceblas_1_1dgbmv.html',1,'blas']]],
+  ['dgeev_6',['dgeev',['../interfacelapack_1_1dgeev.html',1,'lapack']]],
+  ['dgelqf_7',['dgelqf',['../interfacelapack_1_1dgelqf.html',1,'lapack']]],
+  ['dgels_8',['dgels',['../interfacelapack_1_1dgels.html',1,'lapack']]],
+  ['dgelss_9',['dgelss',['../interfacelapack_1_1dgelss.html',1,'lapack']]],
+  ['dgelsy_10',['dgelsy',['../interfacelapack_1_1dgelsy.html',1,'lapack']]],
+  ['dgemm_11',['dgemm',['../interfaceblas_1_1dgemm.html',1,'blas']]],
+  ['dgemv_12',['dgemv',['../interfaceblas_1_1dgemv.html',1,'blas']]],
+  ['dgeqp3_13',['dgeqp3',['../interfacelapack_1_1dgeqp3.html',1,'lapack']]],
+  ['dgeqrf_14',['dgeqrf',['../interfacelapack_1_1dgeqrf.html',1,'lapack']]],
+  ['dgesvd_15',['dgesvd',['../interfacelapack_1_1dgesvd.html',1,'lapack']]],
+  ['dgetrf_16',['dgetrf',['../interfacelapack_1_1dgetrf.html',1,'lapack']]],
+  ['dgetri_17',['dgetri',['../interfacelapack_1_1dgetri.html',1,'lapack']]],
+  ['dgetrs_18',['dgetrs',['../interfacelapack_1_1dgetrs.html',1,'lapack']]],
+  ['dggev_19',['dggev',['../interfacelapack_1_1dggev.html',1,'lapack']]],
+  ['diag_5fmtx_5fmult_20',['diag_mtx_mult',['../interfacelinalg_1_1diag__mtx__mult.html',1,'linalg']]],
+  ['dlaic1_21',['dlaic1',['../interfacelapack_1_1dlaic1.html',1,'lapack']]],
+  ['dlamch_22',['dlamch',['../interfacelapack_1_1dlamch.html',1,'lapack']]],
+  ['dlaset_23',['dlaset',['../interfacelapack_1_1dlaset.html',1,'lapack']]],
+  ['dlasrt_24',['dlasrt',['../interfacelapack_1_1dlasrt.html',1,'lapack']]],
+  ['dorglq_25',['dorglq',['../interfacelapack_1_1dorglq.html',1,'lapack']]],
+  ['dorgqr_26',['dorgqr',['../interfacelapack_1_1dorgqr.html',1,'lapack']]],
+  ['dormlq_27',['dormlq',['../interfacelapack_1_1dormlq.html',1,'lapack']]],
+  ['dormqr_28',['dormqr',['../interfacelapack_1_1dormqr.html',1,'lapack']]],
+  ['dormrz_29',['dormrz',['../interfacelapack_1_1dormrz.html',1,'lapack']]],
+  ['dpotrf_30',['dpotrf',['../interfacelapack_1_1dpotrf.html',1,'lapack']]],
+  ['dpotrs_31',['dpotrs',['../interfacelapack_1_1dpotrs.html',1,'lapack']]],
+  ['dqr1up_32',['dqr1up',['../interfaceqrupdate_1_1dqr1up.html',1,'qrupdate']]],
+  ['dscal_33',['dscal',['../interfaceblas_1_1dscal.html',1,'blas']]],
+  ['dsyev_34',['dsyev',['../interfacelapack_1_1dsyev.html',1,'lapack']]],
+  ['dtrsm_35',['dtrsm',['../interfaceblas_1_1dtrsm.html',1,'blas']]],
+  ['dtrsv_36',['dtrsv',['../interfaceblas_1_1dtrsv.html',1,'blas']]],
+  ['dtzrzf_37',['dtzrzf',['../interfacelapack_1_1dtzrzf.html',1,'lapack']]]
 ];
diff --git a/docs/html/search/all_4.js b/docs/html/search/all_4.js
index 6ac0a6ce..86cebc64 100644
--- a/docs/html/search/all_4.js
+++ b/docs/html/search/all_4.js
@@ -1,6 +1,5 @@
 var searchData=
 [
-  ['form_5flq_0',['form_lq',['../interfacelinalg_1_1form__lq.html',1,'linalg']]],
-  ['form_5flu_1',['form_lu',['../interfacelinalg_1_1form__lu.html',1,'linalg']]],
-  ['form_5fqr_2',['form_qr',['../interfacelinalg_1_1form__qr.html',1,'linalg']]]
+  ['eigen_0',['eigen',['../interfacelinalg_1_1eigen.html',1,'linalg']]],
+  ['extract_5fdiagonal_1',['extract_diagonal',['../interfacelinalg_1_1extract__diagonal.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_5.js b/docs/html/search/all_5.js
index b4ce945e..6ac0a6ce 100644
--- a/docs/html/search/all_5.js
+++ b/docs/html/search/all_5.js
@@ -1,4 +1,6 @@
 var searchData=
 [
-  ['introduction_0',['Introduction',['../index.html#intro_sec',1,'']]]
+  ['form_5flq_0',['form_lq',['../interfacelinalg_1_1form__lq.html',1,'linalg']]],
+  ['form_5flu_1',['form_lu',['../interfacelinalg_1_1form__lu.html',1,'linalg']]],
+  ['form_5fqr_2',['form_qr',['../interfacelinalg_1_1form__qr.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_6.js b/docs/html/search/all_6.js
index b2ba6022..54d7c6d8 100644
--- a/docs/html/search/all_6.js
+++ b/docs/html/search/all_6.js
@@ -1,93 +1,6 @@
 var searchData=
 [
-  ['la_5farray_5fsize_5ferror_0',['la_array_size_error',['../namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9',1,'linalg']]],
-  ['la_5fband_5fdiag_5fmtx_5fmult_1',['la_band_diag_mtx_mult',['../linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437',1,'linalg.h']]],
-  ['la_5fband_5fdiag_5fmtx_5fmult_5fcmplx_2',['la_band_diag_mtx_mult_cmplx',['../linalg_8h.html#a910a1ec23e1112487573f35765a421ca',1,'linalg.h']]],
-  ['la_5fband_5fmtx_5fvec_5fmult_3',['la_band_mtx_vec_mult',['../linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e',1,'linalg.h']]],
-  ['la_5fband_5fmtx_5fvec_5fmult_5fcmplx_4',['la_band_mtx_vec_mult_cmplx',['../linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0',1,'linalg.h']]],
-  ['la_5fband_5fto_5ffull_5fmtx_5',['la_band_to_full_mtx',['../linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea',1,'linalg.h']]],
-  ['la_5fband_5fto_5ffull_5fmtx_5fcmplx_6',['la_band_to_full_mtx_cmplx',['../linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f',1,'linalg.h']]],
-  ['la_5fcholesky_5ffactor_7',['la_cholesky_factor',['../linalg_8h.html#a3967bc139cba341a513d1353bea62ac9',1,'linalg.h']]],
-  ['la_5fcholesky_5ffactor_5fcmplx_8',['la_cholesky_factor_cmplx',['../linalg_8h.html#a1734acc61ef569dfff9c83bcad566f67',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fdowndate_9',['la_cholesky_rank1_downdate',['../linalg_8h.html#a292e54c48a8e7f0203bf11f02844691f',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fdowndate_5fcmplx_10',['la_cholesky_rank1_downdate_cmplx',['../linalg_8h.html#a00c15ec713541d15eae1fd0b01897689',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fupdate_11',['la_cholesky_rank1_update',['../linalg_8h.html#abeb7ee58d4151498be96aa91432f296f',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fupdate_5fcmplx_12',['la_cholesky_rank1_update_cmplx',['../linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3',1,'linalg.h']]],
-  ['la_5fconvergence_5ferror_13',['la_convergence_error',['../namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7',1,'linalg']]],
-  ['la_5fdet_14',['la_det',['../linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913',1,'linalg.h']]],
-  ['la_5fdet_5fcmplx_15',['la_det_cmplx',['../linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_16',['la_diag_mtx_mult',['../linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_5fcmplx_17',['la_diag_mtx_mult_cmplx',['../linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_5fmixed_18',['la_diag_mtx_mult_mixed',['../linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d',1,'linalg.h']]],
-  ['la_5feigen_5fasymm_19',['la_eigen_asymm',['../linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74',1,'linalg.h']]],
-  ['la_5feigen_5fcmplx_20',['la_eigen_cmplx',['../linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf',1,'linalg.h']]],
-  ['la_5feigen_5fgen_21',['la_eigen_gen',['../linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2',1,'linalg.h']]],
-  ['la_5feigen_5fsymm_22',['la_eigen_symm',['../linalg_8h.html#ac208d5e6849972a77ef261f2e368868c',1,'linalg.h']]],
-  ['la_5fform_5flq_23',['la_form_lq',['../linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96',1,'linalg.h']]],
-  ['la_5fform_5flq_5fcmplx_24',['la_form_lq_cmplx',['../linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed',1,'linalg.h']]],
-  ['la_5fform_5flu_25',['la_form_lu',['../linalg_8h.html#a15774f6323c34d307c99b32ac4f188a7',1,'linalg.h']]],
-  ['la_5fform_5flu_5fcmplx_26',['la_form_lu_cmplx',['../linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14',1,'linalg.h']]],
-  ['la_5fform_5fqr_27',['la_form_qr',['../linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fcmplx_28',['la_form_qr_cmplx',['../linalg_8h.html#a0338870fe1142f88c96db63495fec615',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fcmplx_5fpvt_29',['la_form_qr_cmplx_pvt',['../linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fpvt_30',['la_form_qr_pvt',['../linalg_8h.html#aace787c5b11959a457b936ace4995033',1,'linalg.h']]],
-  ['la_5fhermitian_5ftranspose_31',['la_hermitian_transpose',['../namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a',1,'linalg']]],
-  ['la_5finvalid_5finput_5ferror_32',['la_invalid_input_error',['../namespacelinalg.html#ace738355659bce2e9591473f0d543ef7',1,'linalg']]],
-  ['la_5finvalid_5foperation_5ferror_33',['la_invalid_operation_error',['../namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc',1,'linalg']]],
-  ['la_5finverse_34',['la_inverse',['../linalg_8h.html#a95d6ed56844c62d553b940091837014b',1,'linalg.h']]],
-  ['la_5finverse_5fcmplx_35',['la_inverse_cmplx',['../linalg_8h.html#a7a821b41c61670f5710214a4d9178998',1,'linalg.h']]],
-  ['la_5flq_5ffactor_36',['la_lq_factor',['../linalg_8h.html#a7b2048bb219e58f455175041558ac44f',1,'linalg.h']]],
-  ['la_5flq_5ffactor_5fcmplx_37',['la_lq_factor_cmplx',['../linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa',1,'linalg.h']]],
-  ['la_5flu_5ffactor_38',['la_lu_factor',['../linalg_8h.html#a248142a5f0826cddac5daf1c74f234a6',1,'linalg.h']]],
-  ['la_5flu_5ffactor_5fcmplx_39',['la_lu_factor_cmplx',['../linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47',1,'linalg.h']]],
-  ['la_5fmatrix_5fformat_5ferror_40',['la_matrix_format_error',['../namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776',1,'linalg']]],
-  ['la_5fmtx_5fmult_41',['la_mtx_mult',['../linalg_8h.html#a968b10545320af7bbe1030867ae88e8c',1,'linalg.h']]],
-  ['la_5fmtx_5fmult_5fcmplx_42',['la_mtx_mult_cmplx',['../linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76',1,'linalg.h']]],
-  ['la_5fmult_5flq_43',['la_mult_lq',['../linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773',1,'linalg.h']]],
-  ['la_5fmult_5flq_5fcmplx_44',['la_mult_lq_cmplx',['../linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5',1,'linalg.h']]],
-  ['la_5fmult_5fqr_45',['la_mult_qr',['../linalg_8h.html#a95f921847131eaedd62a439490d2a801',1,'linalg.h']]],
-  ['la_5fmult_5fqr_5fcmplx_46',['la_mult_qr_cmplx',['../linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3',1,'linalg.h']]],
-  ['la_5fno_5ferror_47',['la_no_error',['../namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4',1,'linalg']]],
-  ['la_5fno_5foperation_48',['la_no_operation',['../namespacelinalg.html#a665d131453840e869510e9e8d2f7f151',1,'linalg']]],
-  ['la_5fout_5fof_5fmemory_5ferror_49',['la_out_of_memory_error',['../namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006',1,'linalg']]],
-  ['la_5fpinverse_50',['la_pinverse',['../linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6',1,'linalg.h']]],
-  ['la_5fpinverse_5fcmplx_51',['la_pinverse_cmplx',['../linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_52',['la_qr_factor',['../linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fcmplx_53',['la_qr_factor_cmplx',['../linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fcmplx_5fpvt_54',['la_qr_factor_cmplx_pvt',['../linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fpvt_55',['la_qr_factor_pvt',['../linalg_8h.html#a4bc671dad87b42ff285a4241322a3764',1,'linalg.h']]],
-  ['la_5fqr_5frank1_5fupdate_56',['la_qr_rank1_update',['../linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f',1,'linalg.h']]],
-  ['la_5fqr_5frank1_5fupdate_5fcmplx_57',['la_qr_rank1_update_cmplx',['../linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef',1,'linalg.h']]],
-  ['la_5frank_58',['la_rank',['../linalg_8h.html#a089690d293303e30c6eef0bb1e982191',1,'linalg.h']]],
-  ['la_5frank1_5fupdate_59',['la_rank1_update',['../linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74',1,'linalg.h']]],
-  ['la_5frank1_5fupdate_5fcmplx_60',['la_rank1_update_cmplx',['../linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15',1,'linalg.h']]],
-  ['la_5frank_5fcmplx_61',['la_rank_cmplx',['../linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258',1,'linalg.h']]],
-  ['la_5fsingular_5fmatrix_5ferror_62',['la_singular_matrix_error',['../namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9',1,'linalg']]],
-  ['la_5fsolve_5fcholesky_63',['la_solve_cholesky',['../linalg_8h.html#a0dc578507a0cb6ada776142476383590',1,'linalg.h']]],
-  ['la_5fsolve_5fcholesky_5fcmplx_64',['la_solve_cholesky_cmplx',['../linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf',1,'linalg.h']]],
-  ['la_5fsolve_5fleast_5fsquares_65',['la_solve_least_squares',['../linalg_8h.html#a02eb049983dd41f2307bb52594fb210e',1,'linalg.h']]],
-  ['la_5fsolve_5fleast_5fsquares_5fcmplx_66',['la_solve_least_squares_cmplx',['../linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64',1,'linalg.h']]],
-  ['la_5fsolve_5flq_67',['la_solve_lq',['../linalg_8h.html#a2c485d619c24435be713cf4356285e9a',1,'linalg.h']]],
-  ['la_5fsolve_5flq_5fcmplx_68',['la_solve_lq_cmplx',['../linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54',1,'linalg.h']]],
-  ['la_5fsolve_5flu_69',['la_solve_lu',['../linalg_8h.html#aae725d3247301d1163c58f89edff3d4b',1,'linalg.h']]],
-  ['la_5fsolve_5flu_5fcmplx_70',['la_solve_lu_cmplx',['../linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_71',['la_solve_qr',['../linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fcmplx_72',['la_solve_qr_cmplx',['../linalg_8h.html#a0ff5f2519eb1d2af94e3b4a26dfb10fe',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fcmplx_5fpvt_73',['la_solve_qr_cmplx_pvt',['../linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fpvt_74',['la_solve_qr_pvt',['../linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb',1,'linalg.h']]],
-  ['la_5fsolve_5ftri_5fmtx_75',['la_solve_tri_mtx',['../linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4',1,'linalg.h']]],
-  ['la_5fsolve_5ftri_5fmtx_5fcmplx_76',['la_solve_tri_mtx_cmplx',['../linalg_8h.html#af87823d73fb5a319e4262594d147e38c',1,'linalg.h']]],
-  ['la_5fsort_5feigen_77',['la_sort_eigen',['../linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493',1,'linalg.h']]],
-  ['la_5fsort_5feigen_5fcmplx_78',['la_sort_eigen_cmplx',['../linalg_8h.html#a090178a5f99a4b400da80481aad77757',1,'linalg.h']]],
-  ['la_5fsvd_79',['la_svd',['../linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d',1,'linalg.h']]],
-  ['la_5fsvd_5fcmplx_80',['la_svd_cmplx',['../linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e',1,'linalg.h']]],
-  ['la_5ftrace_81',['la_trace',['../linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112',1,'linalg.h']]],
-  ['la_5ftrace_5fcmplx_82',['la_trace_cmplx',['../linalg_8h.html#a021fbb7fdccf557ec407a86bace43d85',1,'linalg.h']]],
-  ['la_5ftranspose_83',['la_transpose',['../namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59',1,'linalg']]],
-  ['la_5ftri_5fmtx_5fmult_84',['la_tri_mtx_mult',['../linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e',1,'linalg.h']]],
-  ['la_5ftri_5fmtx_5fmult_5fcmplx_85',['la_tri_mtx_mult_cmplx',['../linalg_8h.html#a02c464a9dd95298c91f431ae4d0773e9',1,'linalg.h']]],
-  ['linalg_86',['linalg',['../namespacelinalg.html',1,'linalg'],['../index.html',1,'linalg']]],
-  ['linalg_2eh_87',['linalg.h',['../linalg_8h.html',1,'']]],
-  ['lq_5ffactor_88',['lq_factor',['../interfacelinalg_1_1lq__factor.html',1,'linalg']]],
-  ['lu_5ffactor_89',['lu_factor',['../interfacelinalg_1_1lu__factor.html',1,'linalg']]]
+  ['get_0',['get',['../structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf',1,'linalg::csr_matrix']]],
+  ['getdia_1',['getdia',['../interfacesparskit_1_1getdia.html',1,'sparskit']]],
+  ['getelm_2',['getelm',['../interfacesparskit_1_1getelm.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/all_7.js b/docs/html/search/all_7.js
index abc272a4..91a25847 100644
--- a/docs/html/search/all_7.js
+++ b/docs/html/search/all_7.js
@@ -1,10 +1,9 @@
 var searchData=
 [
-  ['mtx_5finverse_0',['mtx_inverse',['../interfacelinalg_1_1mtx__inverse.html',1,'linalg']]],
-  ['mtx_5fmult_1',['mtx_mult',['../interfacelinalg_1_1mtx__mult.html',1,'linalg']]],
-  ['mtx_5fpinverse_2',['mtx_pinverse',['../interfacelinalg_1_1mtx__pinverse.html',1,'linalg']]],
-  ['mtx_5frank_3',['mtx_rank',['../interfacelinalg_1_1mtx__rank.html',1,'linalg']]],
-  ['mult_5flq_4',['mult_lq',['../interfacelinalg_1_1mult__lq.html',1,'linalg']]],
-  ['mult_5fqr_5',['mult_qr',['../interfacelinalg_1_1mult__qr.html',1,'linalg']]],
-  ['mult_5frz_6',['mult_rz',['../interfacelinalg_1_1mult__rz.html',1,'linalg']]]
+  ['ilud_0',['ilud',['../interfacesparskit_1_1ilud.html',1,'sparskit']]],
+  ['iludp_1',['iludp',['../interfacesparskit_1_1iludp.html',1,'sparskit']]],
+  ['ilut_2',['ilut',['../interfacesparskit_1_1ilut.html',1,'sparskit']]],
+  ['ilutp_3',['ilutp',['../interfacesparskit_1_1ilutp.html',1,'sparskit']]],
+  ['indices_4',['indices',['../structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a',1,'linalg::msr_matrix']]],
+  ['introduction_5',['Introduction',['../index.html#intro_sec',1,'']]]
 ];
diff --git a/docs/html/search/all_8.js b/docs/html/search/all_8.js
index 0cd9fce4..37b36d34 100644
--- a/docs/html/search/all_8.js
+++ b/docs/html/search/all_8.js
@@ -1,6 +1,94 @@
 var searchData=
 [
-  ['qr_5ffactor_0',['qr_factor',['../interfacelinalg_1_1qr__factor.html',1,'linalg']]],
-  ['qr_5frank1_5fupdate_1',['qr_rank1_update',['../interfacelinalg_1_1qr__rank1__update.html',1,'linalg']]],
-  ['qrupdate_2',['qrupdate',['../namespaceqrupdate.html',1,'']]]
+  ['la_5farray_5fsize_5ferror_0',['la_array_size_error',['../namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9',1,'linalg']]],
+  ['la_5fband_5fdiag_5fmtx_5fmult_1',['la_band_diag_mtx_mult',['../linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437',1,'linalg.h']]],
+  ['la_5fband_5fdiag_5fmtx_5fmult_5fcmplx_2',['la_band_diag_mtx_mult_cmplx',['../linalg_8h.html#a910a1ec23e1112487573f35765a421ca',1,'linalg.h']]],
+  ['la_5fband_5fmtx_5fvec_5fmult_3',['la_band_mtx_vec_mult',['../linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e',1,'linalg.h']]],
+  ['la_5fband_5fmtx_5fvec_5fmult_5fcmplx_4',['la_band_mtx_vec_mult_cmplx',['../linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0',1,'linalg.h']]],
+  ['la_5fband_5fto_5ffull_5fmtx_5',['la_band_to_full_mtx',['../linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea',1,'linalg.h']]],
+  ['la_5fband_5fto_5ffull_5fmtx_5fcmplx_6',['la_band_to_full_mtx_cmplx',['../linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f',1,'linalg.h']]],
+  ['la_5fcholesky_5ffactor_7',['la_cholesky_factor',['../linalg_8h.html#a3967bc139cba341a513d1353bea62ac9',1,'linalg.h']]],
+  ['la_5fcholesky_5ffactor_5fcmplx_8',['la_cholesky_factor_cmplx',['../linalg_8h.html#a1734acc61ef569dfff9c83bcad566f67',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fdowndate_9',['la_cholesky_rank1_downdate',['../linalg_8h.html#a292e54c48a8e7f0203bf11f02844691f',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fdowndate_5fcmplx_10',['la_cholesky_rank1_downdate_cmplx',['../linalg_8h.html#a00c15ec713541d15eae1fd0b01897689',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fupdate_11',['la_cholesky_rank1_update',['../linalg_8h.html#abeb7ee58d4151498be96aa91432f296f',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fupdate_5fcmplx_12',['la_cholesky_rank1_update_cmplx',['../linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3',1,'linalg.h']]],
+  ['la_5fconvergence_5ferror_13',['la_convergence_error',['../namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7',1,'linalg']]],
+  ['la_5fdet_14',['la_det',['../linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913',1,'linalg.h']]],
+  ['la_5fdet_5fcmplx_15',['la_det_cmplx',['../linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_16',['la_diag_mtx_mult',['../linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_5fcmplx_17',['la_diag_mtx_mult_cmplx',['../linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_5fmixed_18',['la_diag_mtx_mult_mixed',['../linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d',1,'linalg.h']]],
+  ['la_5feigen_5fasymm_19',['la_eigen_asymm',['../linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74',1,'linalg.h']]],
+  ['la_5feigen_5fcmplx_20',['la_eigen_cmplx',['../linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf',1,'linalg.h']]],
+  ['la_5feigen_5fgen_21',['la_eigen_gen',['../linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2',1,'linalg.h']]],
+  ['la_5feigen_5fsymm_22',['la_eigen_symm',['../linalg_8h.html#ac208d5e6849972a77ef261f2e368868c',1,'linalg.h']]],
+  ['la_5fform_5flq_23',['la_form_lq',['../linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96',1,'linalg.h']]],
+  ['la_5fform_5flq_5fcmplx_24',['la_form_lq_cmplx',['../linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed',1,'linalg.h']]],
+  ['la_5fform_5flu_25',['la_form_lu',['../linalg_8h.html#a15774f6323c34d307c99b32ac4f188a7',1,'linalg.h']]],
+  ['la_5fform_5flu_5fcmplx_26',['la_form_lu_cmplx',['../linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14',1,'linalg.h']]],
+  ['la_5fform_5fqr_27',['la_form_qr',['../linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fcmplx_28',['la_form_qr_cmplx',['../linalg_8h.html#a0338870fe1142f88c96db63495fec615',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fcmplx_5fpvt_29',['la_form_qr_cmplx_pvt',['../linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fpvt_30',['la_form_qr_pvt',['../linalg_8h.html#aace787c5b11959a457b936ace4995033',1,'linalg.h']]],
+  ['la_5fhermitian_5ftranspose_31',['la_hermitian_transpose',['../namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a',1,'linalg']]],
+  ['la_5finvalid_5finput_5ferror_32',['la_invalid_input_error',['../namespacelinalg.html#ace738355659bce2e9591473f0d543ef7',1,'linalg']]],
+  ['la_5finvalid_5foperation_5ferror_33',['la_invalid_operation_error',['../namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc',1,'linalg']]],
+  ['la_5finverse_34',['la_inverse',['../linalg_8h.html#a95d6ed56844c62d553b940091837014b',1,'linalg.h']]],
+  ['la_5finverse_5fcmplx_35',['la_inverse_cmplx',['../linalg_8h.html#a7a821b41c61670f5710214a4d9178998',1,'linalg.h']]],
+  ['la_5flq_5ffactor_36',['la_lq_factor',['../linalg_8h.html#a7b2048bb219e58f455175041558ac44f',1,'linalg.h']]],
+  ['la_5flq_5ffactor_5fcmplx_37',['la_lq_factor_cmplx',['../linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa',1,'linalg.h']]],
+  ['la_5flu_5ffactor_38',['la_lu_factor',['../linalg_8h.html#a248142a5f0826cddac5daf1c74f234a6',1,'linalg.h']]],
+  ['la_5flu_5ffactor_5fcmplx_39',['la_lu_factor_cmplx',['../linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47',1,'linalg.h']]],
+  ['la_5fmatrix_5fformat_5ferror_40',['la_matrix_format_error',['../namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776',1,'linalg']]],
+  ['la_5fmtx_5fmult_41',['la_mtx_mult',['../linalg_8h.html#a968b10545320af7bbe1030867ae88e8c',1,'linalg.h']]],
+  ['la_5fmtx_5fmult_5fcmplx_42',['la_mtx_mult_cmplx',['../linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76',1,'linalg.h']]],
+  ['la_5fmult_5flq_43',['la_mult_lq',['../linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773',1,'linalg.h']]],
+  ['la_5fmult_5flq_5fcmplx_44',['la_mult_lq_cmplx',['../linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5',1,'linalg.h']]],
+  ['la_5fmult_5fqr_45',['la_mult_qr',['../linalg_8h.html#a95f921847131eaedd62a439490d2a801',1,'linalg.h']]],
+  ['la_5fmult_5fqr_5fcmplx_46',['la_mult_qr_cmplx',['../linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3',1,'linalg.h']]],
+  ['la_5fno_5ferror_47',['la_no_error',['../namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4',1,'linalg']]],
+  ['la_5fno_5foperation_48',['la_no_operation',['../namespacelinalg.html#a665d131453840e869510e9e8d2f7f151',1,'linalg']]],
+  ['la_5fout_5fof_5fmemory_5ferror_49',['la_out_of_memory_error',['../namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006',1,'linalg']]],
+  ['la_5fpinverse_50',['la_pinverse',['../linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6',1,'linalg.h']]],
+  ['la_5fpinverse_5fcmplx_51',['la_pinverse_cmplx',['../linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_52',['la_qr_factor',['../linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fcmplx_53',['la_qr_factor_cmplx',['../linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fcmplx_5fpvt_54',['la_qr_factor_cmplx_pvt',['../linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fpvt_55',['la_qr_factor_pvt',['../linalg_8h.html#a4bc671dad87b42ff285a4241322a3764',1,'linalg.h']]],
+  ['la_5fqr_5frank1_5fupdate_56',['la_qr_rank1_update',['../linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f',1,'linalg.h']]],
+  ['la_5fqr_5frank1_5fupdate_5fcmplx_57',['la_qr_rank1_update_cmplx',['../linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef',1,'linalg.h']]],
+  ['la_5frank_58',['la_rank',['../linalg_8h.html#a089690d293303e30c6eef0bb1e982191',1,'linalg.h']]],
+  ['la_5frank1_5fupdate_59',['la_rank1_update',['../linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74',1,'linalg.h']]],
+  ['la_5frank1_5fupdate_5fcmplx_60',['la_rank1_update_cmplx',['../linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15',1,'linalg.h']]],
+  ['la_5frank_5fcmplx_61',['la_rank_cmplx',['../linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258',1,'linalg.h']]],
+  ['la_5fsingular_5fmatrix_5ferror_62',['la_singular_matrix_error',['../namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9',1,'linalg']]],
+  ['la_5fsolve_5fcholesky_63',['la_solve_cholesky',['../linalg_8h.html#a0dc578507a0cb6ada776142476383590',1,'linalg.h']]],
+  ['la_5fsolve_5fcholesky_5fcmplx_64',['la_solve_cholesky_cmplx',['../linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf',1,'linalg.h']]],
+  ['la_5fsolve_5fleast_5fsquares_65',['la_solve_least_squares',['../linalg_8h.html#a02eb049983dd41f2307bb52594fb210e',1,'linalg.h']]],
+  ['la_5fsolve_5fleast_5fsquares_5fcmplx_66',['la_solve_least_squares_cmplx',['../linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64',1,'linalg.h']]],
+  ['la_5fsolve_5flq_67',['la_solve_lq',['../linalg_8h.html#a2c485d619c24435be713cf4356285e9a',1,'linalg.h']]],
+  ['la_5fsolve_5flq_5fcmplx_68',['la_solve_lq_cmplx',['../linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54',1,'linalg.h']]],
+  ['la_5fsolve_5flu_69',['la_solve_lu',['../linalg_8h.html#aae725d3247301d1163c58f89edff3d4b',1,'linalg.h']]],
+  ['la_5fsolve_5flu_5fcmplx_70',['la_solve_lu_cmplx',['../linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_71',['la_solve_qr',['../linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fcmplx_72',['la_solve_qr_cmplx',['../linalg_8h.html#a0ff5f2519eb1d2af94e3b4a26dfb10fe',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fcmplx_5fpvt_73',['la_solve_qr_cmplx_pvt',['../linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fpvt_74',['la_solve_qr_pvt',['../linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb',1,'linalg.h']]],
+  ['la_5fsolve_5ftri_5fmtx_75',['la_solve_tri_mtx',['../linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4',1,'linalg.h']]],
+  ['la_5fsolve_5ftri_5fmtx_5fcmplx_76',['la_solve_tri_mtx_cmplx',['../linalg_8h.html#af87823d73fb5a319e4262594d147e38c',1,'linalg.h']]],
+  ['la_5fsort_5feigen_77',['la_sort_eigen',['../linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493',1,'linalg.h']]],
+  ['la_5fsort_5feigen_5fcmplx_78',['la_sort_eigen_cmplx',['../linalg_8h.html#a090178a5f99a4b400da80481aad77757',1,'linalg.h']]],
+  ['la_5fsvd_79',['la_svd',['../linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d',1,'linalg.h']]],
+  ['la_5fsvd_5fcmplx_80',['la_svd_cmplx',['../linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e',1,'linalg.h']]],
+  ['la_5ftrace_81',['la_trace',['../linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112',1,'linalg.h']]],
+  ['la_5ftrace_5fcmplx_82',['la_trace_cmplx',['../linalg_8h.html#a021fbb7fdccf557ec407a86bace43d85',1,'linalg.h']]],
+  ['la_5ftranspose_83',['la_transpose',['../namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59',1,'linalg']]],
+  ['la_5ftri_5fmtx_5fmult_84',['la_tri_mtx_mult',['../linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e',1,'linalg.h']]],
+  ['la_5ftri_5fmtx_5fmult_5fcmplx_85',['la_tri_mtx_mult_cmplx',['../linalg_8h.html#a02c464a9dd95298c91f431ae4d0773e9',1,'linalg.h']]],
+  ['linalg_86',['linalg',['../namespacelinalg.html',1,'linalg'],['../index.html',1,'linalg']]],
+  ['linalg_2eh_87',['linalg.h',['../linalg_8h.html',1,'']]],
+  ['lq_5ffactor_88',['lq_factor',['../interfacelinalg_1_1lq__factor.html',1,'linalg']]],
+  ['lu_5ffactor_89',['lu_factor',['../interfacelinalg_1_1lu__factor.html',1,'linalg']]],
+  ['lusol_90',['lusol',['../interfacesparskit_1_1lusol.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/all_9.js b/docs/html/search/all_9.js
index 686d365a..872369c1 100644
--- a/docs/html/search/all_9.js
+++ b/docs/html/search/all_9.js
@@ -1,6 +1,13 @@
 var searchData=
 [
-  ['rank1_5fupdate_0',['rank1_update',['../interfacelinalg_1_1rank1__update.html',1,'linalg']]],
-  ['recip_5fmult_5farray_1',['recip_mult_array',['../interfacelinalg_1_1recip__mult__array.html',1,'linalg']]],
-  ['rz_5ffactor_2',['rz_factor',['../interfacelinalg_1_1rz__factor.html',1,'linalg']]]
+  ['matmul_0',['matmul',['../interfacelinalg_1_1matmul.html',1,'linalg']]],
+  ['msr_5fmatrix_1',['msr_matrix',['../structlinalg_1_1msr__matrix.html',1,'linalg']]],
+  ['msrcsr_2',['msrcsr',['../interfacesparskit_1_1msrcsr.html',1,'sparskit']]],
+  ['mtx_5finverse_3',['mtx_inverse',['../interfacelinalg_1_1mtx__inverse.html',1,'linalg']]],
+  ['mtx_5fmult_4',['mtx_mult',['../interfacelinalg_1_1mtx__mult.html',1,'linalg']]],
+  ['mtx_5fpinverse_5',['mtx_pinverse',['../interfacelinalg_1_1mtx__pinverse.html',1,'linalg']]],
+  ['mtx_5frank_6',['mtx_rank',['../interfacelinalg_1_1mtx__rank.html',1,'linalg']]],
+  ['mult_5flq_7',['mult_lq',['../interfacelinalg_1_1mult__lq.html',1,'linalg']]],
+  ['mult_5fqr_8',['mult_qr',['../interfacelinalg_1_1mult__qr.html',1,'linalg']]],
+  ['mult_5frz_9',['mult_rz',['../interfacelinalg_1_1mult__rz.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_a.js b/docs/html/search/all_a.js
index 5136c9f3..7bca8e7c 100644
--- a/docs/html/search/all_a.js
+++ b/docs/html/search/all_a.js
@@ -1,14 +1,4 @@
 var searchData=
 [
-  ['solve_5fcholesky_0',['solve_cholesky',['../interfacelinalg_1_1solve__cholesky.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_1',['solve_least_squares',['../interfacelinalg_1_1solve__least__squares.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_5ffull_2',['solve_least_squares_full',['../interfacelinalg_1_1solve__least__squares__full.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_5fsvd_3',['solve_least_squares_svd',['../interfacelinalg_1_1solve__least__squares__svd.html',1,'linalg']]],
-  ['solve_5flq_4',['solve_lq',['../interfacelinalg_1_1solve__lq.html',1,'linalg']]],
-  ['solve_5flu_5',['solve_lu',['../interfacelinalg_1_1solve__lu.html',1,'linalg']]],
-  ['solve_5fqr_6',['solve_qr',['../interfacelinalg_1_1solve__qr.html',1,'linalg']]],
-  ['solve_5ftriangular_5fsystem_7',['solve_triangular_system',['../interfacelinalg_1_1solve__triangular__system.html',1,'linalg']]],
-  ['sort_8',['sort',['../interfacelinalg_1_1sort.html',1,'linalg']]],
-  ['svd_9',['svd',['../interfacelinalg_1_1svd.html',1,'linalg']]],
-  ['swap_10',['swap',['../interfacelinalg_1_1swap.html',1,'linalg']]]
+  ['nonzero_5fcount_0',['nonzero_count',['../interfacelinalg_1_1nonzero__count.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_b.js b/docs/html/search/all_b.js
index 90d19100..54ba44f3 100644
--- a/docs/html/search/all_b.js
+++ b/docs/html/search/all_b.js
@@ -1,5 +1,7 @@
 var searchData=
 [
-  ['trace_0',['trace',['../interfacelinalg_1_1trace.html',1,'linalg']]],
-  ['tri_5fmtx_5fmult_1',['tri_mtx_mult',['../interfacelinalg_1_1tri__mtx__mult.html',1,'linalg']]]
+  ['operator_28_2a_29_0',['operator(*)',['../interfacelinalg_1_1operator_07_5_08.html',1,'linalg']]],
+  ['operator_28_2b_29_1',['operator(+)',['../interfacelinalg_1_1operator_07_09_08.html',1,'linalg']]],
+  ['operator_28_2d_29_2',['operator(-)',['../interfacelinalg_1_1operator_07-_08.html',1,'linalg']]],
+  ['operator_28_2f_29_3',['operator(/)',['../interfacelinalg_1_1operator_07_2_08.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_c.js b/docs/html/search/all_c.js
index 81ee744d..3f0faf2a 100644
--- a/docs/html/search/all_c.js
+++ b/docs/html/search/all_c.js
@@ -1,33 +1,5 @@
 var searchData=
 [
-  ['zch1dn_0',['zch1dn',['../interfaceqrupdate_1_1zch1dn.html',1,'qrupdate']]],
-  ['zch1up_1',['zch1up',['../interfaceqrupdate_1_1zch1up.html',1,'qrupdate']]],
-  ['zdscal_2',['zdscal',['../interfaceblas_1_1zdscal.html',1,'blas']]],
-  ['zgbmv_3',['zgbmv',['../interfaceblas_1_1zgbmv.html',1,'blas']]],
-  ['zgeev_4',['zgeev',['../interfacelapack_1_1zgeev.html',1,'lapack']]],
-  ['zgelqf_5',['zgelqf',['../interfacelapack_1_1zgelqf.html',1,'lapack']]],
-  ['zgels_6',['zgels',['../interfacelapack_1_1zgels.html',1,'lapack']]],
-  ['zgelss_7',['zgelss',['../interfacelapack_1_1zgelss.html',1,'lapack']]],
-  ['zgelsy_8',['zgelsy',['../interfacelapack_1_1zgelsy.html',1,'lapack']]],
-  ['zgemm_9',['zgemm',['../interfaceblas_1_1zgemm.html',1,'blas']]],
-  ['zgemv_10',['zgemv',['../interfaceblas_1_1zgemv.html',1,'blas']]],
-  ['zgeqp3_11',['zgeqp3',['../interfacelapack_1_1zgeqp3.html',1,'lapack']]],
-  ['zgeqrf_12',['zgeqrf',['../interfacelapack_1_1zgeqrf.html',1,'lapack']]],
-  ['zgesvd_13',['zgesvd',['../interfacelapack_1_1zgesvd.html',1,'lapack']]],
-  ['zgetrf_14',['zgetrf',['../interfacelapack_1_1zgetrf.html',1,'lapack']]],
-  ['zgetri_15',['zgetri',['../interfacelapack_1_1zgetri.html',1,'lapack']]],
-  ['zgetrs_16',['zgetrs',['../interfacelapack_1_1zgetrs.html',1,'lapack']]],
-  ['zlaic1_17',['zlaic1',['../interfacelapack_1_1zlaic1.html',1,'lapack']]],
-  ['zpotrf_18',['zpotrf',['../interfacelapack_1_1zpotrf.html',1,'lapack']]],
-  ['zpotrs_19',['zpotrs',['../interfacelapack_1_1zpotrs.html',1,'lapack']]],
-  ['zqr1up_20',['zqr1up',['../interfaceqrupdate_1_1zqr1up.html',1,'qrupdate']]],
-  ['zscal_21',['zscal',['../interfaceblas_1_1zscal.html',1,'blas']]],
-  ['ztrsm_22',['ztrsm',['../interfaceblas_1_1ztrsm.html',1,'blas']]],
-  ['ztrsv_23',['ztrsv',['../interfaceblas_1_1ztrsv.html',1,'blas']]],
-  ['ztzrzf_24',['ztzrzf',['../interfacelapack_1_1ztzrzf.html',1,'lapack']]],
-  ['zunglq_25',['zunglq',['../interfacelapack_1_1zunglq.html',1,'lapack']]],
-  ['zungqr_26',['zungqr',['../interfacelapack_1_1zungqr.html',1,'lapack']]],
-  ['zunmlq_27',['zunmlq',['../interfacelapack_1_1zunmlq.html',1,'lapack']]],
-  ['zunmqr_28',['zunmqr',['../interfacelapack_1_1zunmqr.html',1,'lapack']]],
-  ['zunmrz_29',['zunmrz',['../interfacelapack_1_1zunmrz.html',1,'lapack']]]
+  ['pgmres_0',['pgmres',['../interfacesparskit_1_1pgmres.html',1,'sparskit']]],
+  ['pgmres_5fsolver_1',['pgmres_solver',['../interfacelinalg_1_1pgmres__solver.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_d.js b/docs/html/search/all_d.js
index 760107f9..0cd9fce4 100644
--- a/docs/html/search/all_d.js
+++ b/docs/html/search/all_d.js
@@ -1,6 +1,6 @@
 var searchData=
 [
-  ['values_0',['values',['../structlinalg__immutable_1_1eigen__results.html#abb60901ab160c6fd232cfb46ed0bf3cc',1,'linalg_immutable::eigen_results']]],
-  ['vectors_1',['vectors',['../structlinalg__immutable_1_1eigen__results.html#a982607b9c3ff93504bb4524dcd31a442',1,'linalg_immutable::eigen_results']]],
-  ['vt_2',['vt',['../structlinalg__immutable_1_1svd__results.html#af5c35f3392431179a5cb15d1cddf7cb1',1,'linalg_immutable::svd_results::vt()'],['../structlinalg__immutable_1_1svd__results__cmplx.html#af9e74638b38510fb24de3f3a6ea30de8',1,'linalg_immutable::svd_results_cmplx::vt()']]]
+  ['qr_5ffactor_0',['qr_factor',['../interfacelinalg_1_1qr__factor.html',1,'linalg']]],
+  ['qr_5frank1_5fupdate_1',['qr_rank1_update',['../interfacelinalg_1_1qr__rank1__update.html',1,'linalg']]],
+  ['qrupdate_2',['qrupdate',['../namespaceqrupdate.html',1,'']]]
 ];
diff --git a/docs/html/search/all_e.js b/docs/html/search/all_e.js
index a5b8bb0e..3fd38926 100644
--- a/docs/html/search/all_e.js
+++ b/docs/html/search/all_e.js
@@ -1,4 +1,7 @@
 var searchData=
 [
-  ['u_0',['u',['../structlinalg__immutable_1_1lu__results.html#ab1af96c7808037f63563e1bf912c4dad',1,'linalg_immutable::lu_results::u()'],['../structlinalg__immutable_1_1lu__results__cmplx.html#a7488afe2004b11c8fed4c517400fde98',1,'linalg_immutable::lu_results_cmplx::u()'],['../structlinalg__immutable_1_1svd__results.html#a582822c9765048fcb8632d72a6ed506a',1,'linalg_immutable::svd_results::u()'],['../structlinalg__immutable_1_1svd__results__cmplx.html#ae65cfdf6d19c3bbb3a7e425db266cb3c',1,'linalg_immutable::svd_results_cmplx::u()']]]
+  ['rank1_5fupdate_0',['rank1_update',['../interfacelinalg_1_1rank1__update.html',1,'linalg']]],
+  ['recip_5fmult_5farray_1',['recip_mult_array',['../interfacelinalg_1_1recip__mult__array.html',1,'linalg']]],
+  ['row_5findices_2',['row_indices',['../structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de',1,'linalg::csr_matrix']]],
+  ['rz_5ffactor_3',['rz_factor',['../interfacelinalg_1_1rz__factor.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/all_f.js b/docs/html/search/all_f.js
index 760107f9..5b68a3eb 100644
--- a/docs/html/search/all_f.js
+++ b/docs/html/search/all_f.js
@@ -1,6 +1,17 @@
 var searchData=
 [
-  ['values_0',['values',['../structlinalg__immutable_1_1eigen__results.html#abb60901ab160c6fd232cfb46ed0bf3cc',1,'linalg_immutable::eigen_results']]],
-  ['vectors_1',['vectors',['../structlinalg__immutable_1_1eigen__results.html#a982607b9c3ff93504bb4524dcd31a442',1,'linalg_immutable::eigen_results']]],
-  ['vt_2',['vt',['../structlinalg__immutable_1_1svd__results.html#af5c35f3392431179a5cb15d1cddf7cb1',1,'linalg_immutable::svd_results::vt()'],['../structlinalg__immutable_1_1svd__results__cmplx.html#af9e74638b38510fb24de3f3a6ea30de8',1,'linalg_immutable::svd_results_cmplx::vt()']]]
+  ['size_0',['size',['../interfacelinalg_1_1size.html',1,'linalg']]],
+  ['solve_5fcholesky_1',['solve_cholesky',['../interfacelinalg_1_1solve__cholesky.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_2',['solve_least_squares',['../interfacelinalg_1_1solve__least__squares.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_5ffull_3',['solve_least_squares_full',['../interfacelinalg_1_1solve__least__squares__full.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_5fsvd_4',['solve_least_squares_svd',['../interfacelinalg_1_1solve__least__squares__svd.html',1,'linalg']]],
+  ['solve_5flq_5',['solve_lq',['../interfacelinalg_1_1solve__lq.html',1,'linalg']]],
+  ['solve_5flu_6',['solve_lu',['../interfacelinalg_1_1solve__lu.html',1,'linalg']]],
+  ['solve_5fqr_7',['solve_qr',['../interfacelinalg_1_1solve__qr.html',1,'linalg']]],
+  ['solve_5ftriangular_5fsystem_8',['solve_triangular_system',['../interfacelinalg_1_1solve__triangular__system.html',1,'linalg']]],
+  ['sort_9',['sort',['../interfacelinalg_1_1sort.html',1,'linalg']]],
+  ['sparse_5fdirect_5fsolve_10',['sparse_direct_solve',['../interfacelinalg_1_1sparse__direct__solve.html',1,'linalg']]],
+  ['sparskit_11',['sparskit',['../namespacesparskit.html',1,'']]],
+  ['svd_12',['svd',['../interfacelinalg_1_1svd.html',1,'linalg']]],
+  ['swap_13',['swap',['../interfacelinalg_1_1swap.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_0.js b/docs/html/search/classes_0.js
index 2c474ecb..d6dd5479 100644
--- a/docs/html/search/classes_0.js
+++ b/docs/html/search/classes_0.js
@@ -1,6 +1,6 @@
 var searchData=
 [
-  ['band_5fdiag_5fmtx_5fmult_0',['band_diag_mtx_mult',['../interfacelinalg_1_1band__diag__mtx__mult.html',1,'linalg']]],
-  ['band_5fmtx_5fmult_1',['band_mtx_mult',['../interfacelinalg_1_1band__mtx__mult.html',1,'linalg']]],
-  ['band_5fmtx_5fto_5ffull_5fmtx_2',['band_mtx_to_full_mtx',['../interfacelinalg_1_1band__mtx__to__full__mtx.html',1,'linalg']]]
+  ['amub_0',['amub',['../interfacesparskit_1_1amub.html',1,'sparskit']]],
+  ['aplb_1',['aplb',['../interfacesparskit_1_1aplb.html',1,'sparskit']]],
+  ['aplsb_2',['aplsb',['../interfacesparskit_1_1aplsb.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_1.js b/docs/html/search/classes_1.js
index 23e04882..62e63f32 100644
--- a/docs/html/search/classes_1.js
+++ b/docs/html/search/classes_1.js
@@ -1,6 +1,8 @@
 var searchData=
 [
-  ['cholesky_5ffactor_0',['cholesky_factor',['../interfacelinalg_1_1cholesky__factor.html',1,'linalg']]],
-  ['cholesky_5frank1_5fdowndate_1',['cholesky_rank1_downdate',['../interfacelinalg_1_1cholesky__rank1__downdate.html',1,'linalg']]],
-  ['cholesky_5frank1_5fupdate_2',['cholesky_rank1_update',['../interfacelinalg_1_1cholesky__rank1__update.html',1,'linalg']]]
+  ['band_5fdiag_5fmtx_5fmult_0',['band_diag_mtx_mult',['../interfacelinalg_1_1band__diag__mtx__mult.html',1,'linalg']]],
+  ['band_5fmtx_5fmult_1',['band_mtx_mult',['../interfacelinalg_1_1band__mtx__mult.html',1,'linalg']]],
+  ['band_5fmtx_5fto_5ffull_5fmtx_2',['band_mtx_to_full_mtx',['../interfacelinalg_1_1band__mtx__to__full__mtx.html',1,'linalg']]],
+  ['banded_5fto_5fdense_3',['banded_to_dense',['../interfacelinalg_1_1banded__to__dense.html',1,'linalg']]],
+  ['bndcsr_4',['bndcsr',['../interfacesparskit_1_1bndcsr.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_10.js b/docs/html/search/classes_10.js
new file mode 100644
index 00000000..00bd9d8e
--- /dev/null
+++ b/docs/html/search/classes_10.js
@@ -0,0 +1,6 @@
+var searchData=
+[
+  ['trace_0',['trace',['../interfacelinalg_1_1trace.html',1,'linalg']]],
+  ['transpose_1',['transpose',['../interfacelinalg_1_1transpose.html',1,'linalg']]],
+  ['tri_5fmtx_5fmult_2',['tri_mtx_mult',['../interfacelinalg_1_1tri__mtx__mult.html',1,'linalg']]]
+];
diff --git a/docs/html/search/classes_11.js b/docs/html/search/classes_11.js
new file mode 100644
index 00000000..81ee744d
--- /dev/null
+++ b/docs/html/search/classes_11.js
@@ -0,0 +1,33 @@
+var searchData=
+[
+  ['zch1dn_0',['zch1dn',['../interfaceqrupdate_1_1zch1dn.html',1,'qrupdate']]],
+  ['zch1up_1',['zch1up',['../interfaceqrupdate_1_1zch1up.html',1,'qrupdate']]],
+  ['zdscal_2',['zdscal',['../interfaceblas_1_1zdscal.html',1,'blas']]],
+  ['zgbmv_3',['zgbmv',['../interfaceblas_1_1zgbmv.html',1,'blas']]],
+  ['zgeev_4',['zgeev',['../interfacelapack_1_1zgeev.html',1,'lapack']]],
+  ['zgelqf_5',['zgelqf',['../interfacelapack_1_1zgelqf.html',1,'lapack']]],
+  ['zgels_6',['zgels',['../interfacelapack_1_1zgels.html',1,'lapack']]],
+  ['zgelss_7',['zgelss',['../interfacelapack_1_1zgelss.html',1,'lapack']]],
+  ['zgelsy_8',['zgelsy',['../interfacelapack_1_1zgelsy.html',1,'lapack']]],
+  ['zgemm_9',['zgemm',['../interfaceblas_1_1zgemm.html',1,'blas']]],
+  ['zgemv_10',['zgemv',['../interfaceblas_1_1zgemv.html',1,'blas']]],
+  ['zgeqp3_11',['zgeqp3',['../interfacelapack_1_1zgeqp3.html',1,'lapack']]],
+  ['zgeqrf_12',['zgeqrf',['../interfacelapack_1_1zgeqrf.html',1,'lapack']]],
+  ['zgesvd_13',['zgesvd',['../interfacelapack_1_1zgesvd.html',1,'lapack']]],
+  ['zgetrf_14',['zgetrf',['../interfacelapack_1_1zgetrf.html',1,'lapack']]],
+  ['zgetri_15',['zgetri',['../interfacelapack_1_1zgetri.html',1,'lapack']]],
+  ['zgetrs_16',['zgetrs',['../interfacelapack_1_1zgetrs.html',1,'lapack']]],
+  ['zlaic1_17',['zlaic1',['../interfacelapack_1_1zlaic1.html',1,'lapack']]],
+  ['zpotrf_18',['zpotrf',['../interfacelapack_1_1zpotrf.html',1,'lapack']]],
+  ['zpotrs_19',['zpotrs',['../interfacelapack_1_1zpotrs.html',1,'lapack']]],
+  ['zqr1up_20',['zqr1up',['../interfaceqrupdate_1_1zqr1up.html',1,'qrupdate']]],
+  ['zscal_21',['zscal',['../interfaceblas_1_1zscal.html',1,'blas']]],
+  ['ztrsm_22',['ztrsm',['../interfaceblas_1_1ztrsm.html',1,'blas']]],
+  ['ztrsv_23',['ztrsv',['../interfaceblas_1_1ztrsv.html',1,'blas']]],
+  ['ztzrzf_24',['ztzrzf',['../interfacelapack_1_1ztzrzf.html',1,'lapack']]],
+  ['zunglq_25',['zunglq',['../interfacelapack_1_1zunglq.html',1,'lapack']]],
+  ['zungqr_26',['zungqr',['../interfacelapack_1_1zungqr.html',1,'lapack']]],
+  ['zunmlq_27',['zunmlq',['../interfacelapack_1_1zunmlq.html',1,'lapack']]],
+  ['zunmqr_28',['zunmqr',['../interfacelapack_1_1zunmqr.html',1,'lapack']]],
+  ['zunmrz_29',['zunmrz',['../interfacelapack_1_1zunmrz.html',1,'lapack']]]
+];
diff --git a/docs/html/search/classes_2.js b/docs/html/search/classes_2.js
index 765b640d..afaf8ee5 100644
--- a/docs/html/search/classes_2.js
+++ b/docs/html/search/classes_2.js
@@ -1,39 +1,9 @@
 var searchData=
 [
-  ['dch1dn_0',['dch1dn',['../interfaceqrupdate_1_1dch1dn.html',1,'qrupdate']]],
-  ['dch1up_1',['dch1up',['../interfaceqrupdate_1_1dch1up.html',1,'qrupdate']]],
-  ['det_2',['det',['../interfacelinalg_1_1det.html',1,'linalg']]],
-  ['dgbmv_3',['dgbmv',['../interfaceblas_1_1dgbmv.html',1,'blas']]],
-  ['dgeev_4',['dgeev',['../interfacelapack_1_1dgeev.html',1,'lapack']]],
-  ['dgelqf_5',['dgelqf',['../interfacelapack_1_1dgelqf.html',1,'lapack']]],
-  ['dgels_6',['dgels',['../interfacelapack_1_1dgels.html',1,'lapack']]],
-  ['dgelss_7',['dgelss',['../interfacelapack_1_1dgelss.html',1,'lapack']]],
-  ['dgelsy_8',['dgelsy',['../interfacelapack_1_1dgelsy.html',1,'lapack']]],
-  ['dgemm_9',['dgemm',['../interfaceblas_1_1dgemm.html',1,'blas']]],
-  ['dgemv_10',['dgemv',['../interfaceblas_1_1dgemv.html',1,'blas']]],
-  ['dgeqp3_11',['dgeqp3',['../interfacelapack_1_1dgeqp3.html',1,'lapack']]],
-  ['dgeqrf_12',['dgeqrf',['../interfacelapack_1_1dgeqrf.html',1,'lapack']]],
-  ['dgesvd_13',['dgesvd',['../interfacelapack_1_1dgesvd.html',1,'lapack']]],
-  ['dgetrf_14',['dgetrf',['../interfacelapack_1_1dgetrf.html',1,'lapack']]],
-  ['dgetri_15',['dgetri',['../interfacelapack_1_1dgetri.html',1,'lapack']]],
-  ['dgetrs_16',['dgetrs',['../interfacelapack_1_1dgetrs.html',1,'lapack']]],
-  ['dggev_17',['dggev',['../interfacelapack_1_1dggev.html',1,'lapack']]],
-  ['diag_5fmtx_5fmult_18',['diag_mtx_mult',['../interfacelinalg_1_1diag__mtx__mult.html',1,'linalg']]],
-  ['dlaic1_19',['dlaic1',['../interfacelapack_1_1dlaic1.html',1,'lapack']]],
-  ['dlamch_20',['dlamch',['../interfacelapack_1_1dlamch.html',1,'lapack']]],
-  ['dlaset_21',['dlaset',['../interfacelapack_1_1dlaset.html',1,'lapack']]],
-  ['dlasrt_22',['dlasrt',['../interfacelapack_1_1dlasrt.html',1,'lapack']]],
-  ['dorglq_23',['dorglq',['../interfacelapack_1_1dorglq.html',1,'lapack']]],
-  ['dorgqr_24',['dorgqr',['../interfacelapack_1_1dorgqr.html',1,'lapack']]],
-  ['dormlq_25',['dormlq',['../interfacelapack_1_1dormlq.html',1,'lapack']]],
-  ['dormqr_26',['dormqr',['../interfacelapack_1_1dormqr.html',1,'lapack']]],
-  ['dormrz_27',['dormrz',['../interfacelapack_1_1dormrz.html',1,'lapack']]],
-  ['dpotrf_28',['dpotrf',['../interfacelapack_1_1dpotrf.html',1,'lapack']]],
-  ['dpotrs_29',['dpotrs',['../interfacelapack_1_1dpotrs.html',1,'lapack']]],
-  ['dqr1up_30',['dqr1up',['../interfaceqrupdate_1_1dqr1up.html',1,'qrupdate']]],
-  ['dscal_31',['dscal',['../interfaceblas_1_1dscal.html',1,'blas']]],
-  ['dsyev_32',['dsyev',['../interfacelapack_1_1dsyev.html',1,'lapack']]],
-  ['dtrsm_33',['dtrsm',['../interfaceblas_1_1dtrsm.html',1,'blas']]],
-  ['dtrsv_34',['dtrsv',['../interfaceblas_1_1dtrsv.html',1,'blas']]],
-  ['dtzrzf_35',['dtzrzf',['../interfacelapack_1_1dtzrzf.html',1,'lapack']]]
+  ['cholesky_5ffactor_0',['cholesky_factor',['../interfacelinalg_1_1cholesky__factor.html',1,'linalg']]],
+  ['cholesky_5frank1_5fdowndate_1',['cholesky_rank1_downdate',['../interfacelinalg_1_1cholesky__rank1__downdate.html',1,'linalg']]],
+  ['cholesky_5frank1_5fupdate_2',['cholesky_rank1_update',['../interfacelinalg_1_1cholesky__rank1__update.html',1,'linalg']]],
+  ['csr_5fmatrix_3',['csr_matrix',['../structlinalg_1_1csr__matrix.html',1,'linalg']]],
+  ['csrcsc2_4',['csrcsc2',['../interfacesparskit_1_1csrcsc2.html',1,'sparskit']]],
+  ['csrmsr_5',['csrmsr',['../interfacesparskit_1_1csrmsr.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_3.js b/docs/html/search/classes_3.js
index 66cad2be..13834bf8 100644
--- a/docs/html/search/classes_3.js
+++ b/docs/html/search/classes_3.js
@@ -1,4 +1,41 @@
 var searchData=
 [
-  ['eigen_0',['eigen',['../interfacelinalg_1_1eigen.html',1,'linalg']]]
+  ['dch1dn_0',['dch1dn',['../interfaceqrupdate_1_1dch1dn.html',1,'qrupdate']]],
+  ['dch1up_1',['dch1up',['../interfaceqrupdate_1_1dch1up.html',1,'qrupdate']]],
+  ['ddot_2',['ddot',['../interfaceblas_1_1ddot.html',1,'blas']]],
+  ['dense_5fto_5fbanded_3',['dense_to_banded',['../interfacelinalg_1_1dense__to__banded.html',1,'linalg']]],
+  ['det_4',['det',['../interfacelinalg_1_1det.html',1,'linalg']]],
+  ['dgbmv_5',['dgbmv',['../interfaceblas_1_1dgbmv.html',1,'blas']]],
+  ['dgeev_6',['dgeev',['../interfacelapack_1_1dgeev.html',1,'lapack']]],
+  ['dgelqf_7',['dgelqf',['../interfacelapack_1_1dgelqf.html',1,'lapack']]],
+  ['dgels_8',['dgels',['../interfacelapack_1_1dgels.html',1,'lapack']]],
+  ['dgelss_9',['dgelss',['../interfacelapack_1_1dgelss.html',1,'lapack']]],
+  ['dgelsy_10',['dgelsy',['../interfacelapack_1_1dgelsy.html',1,'lapack']]],
+  ['dgemm_11',['dgemm',['../interfaceblas_1_1dgemm.html',1,'blas']]],
+  ['dgemv_12',['dgemv',['../interfaceblas_1_1dgemv.html',1,'blas']]],
+  ['dgeqp3_13',['dgeqp3',['../interfacelapack_1_1dgeqp3.html',1,'lapack']]],
+  ['dgeqrf_14',['dgeqrf',['../interfacelapack_1_1dgeqrf.html',1,'lapack']]],
+  ['dgesvd_15',['dgesvd',['../interfacelapack_1_1dgesvd.html',1,'lapack']]],
+  ['dgetrf_16',['dgetrf',['../interfacelapack_1_1dgetrf.html',1,'lapack']]],
+  ['dgetri_17',['dgetri',['../interfacelapack_1_1dgetri.html',1,'lapack']]],
+  ['dgetrs_18',['dgetrs',['../interfacelapack_1_1dgetrs.html',1,'lapack']]],
+  ['dggev_19',['dggev',['../interfacelapack_1_1dggev.html',1,'lapack']]],
+  ['diag_5fmtx_5fmult_20',['diag_mtx_mult',['../interfacelinalg_1_1diag__mtx__mult.html',1,'linalg']]],
+  ['dlaic1_21',['dlaic1',['../interfacelapack_1_1dlaic1.html',1,'lapack']]],
+  ['dlamch_22',['dlamch',['../interfacelapack_1_1dlamch.html',1,'lapack']]],
+  ['dlaset_23',['dlaset',['../interfacelapack_1_1dlaset.html',1,'lapack']]],
+  ['dlasrt_24',['dlasrt',['../interfacelapack_1_1dlasrt.html',1,'lapack']]],
+  ['dorglq_25',['dorglq',['../interfacelapack_1_1dorglq.html',1,'lapack']]],
+  ['dorgqr_26',['dorgqr',['../interfacelapack_1_1dorgqr.html',1,'lapack']]],
+  ['dormlq_27',['dormlq',['../interfacelapack_1_1dormlq.html',1,'lapack']]],
+  ['dormqr_28',['dormqr',['../interfacelapack_1_1dormqr.html',1,'lapack']]],
+  ['dormrz_29',['dormrz',['../interfacelapack_1_1dormrz.html',1,'lapack']]],
+  ['dpotrf_30',['dpotrf',['../interfacelapack_1_1dpotrf.html',1,'lapack']]],
+  ['dpotrs_31',['dpotrs',['../interfacelapack_1_1dpotrs.html',1,'lapack']]],
+  ['dqr1up_32',['dqr1up',['../interfaceqrupdate_1_1dqr1up.html',1,'qrupdate']]],
+  ['dscal_33',['dscal',['../interfaceblas_1_1dscal.html',1,'blas']]],
+  ['dsyev_34',['dsyev',['../interfacelapack_1_1dsyev.html',1,'lapack']]],
+  ['dtrsm_35',['dtrsm',['../interfaceblas_1_1dtrsm.html',1,'blas']]],
+  ['dtrsv_36',['dtrsv',['../interfaceblas_1_1dtrsv.html',1,'blas']]],
+  ['dtzrzf_37',['dtzrzf',['../interfacelapack_1_1dtzrzf.html',1,'lapack']]]
 ];
diff --git a/docs/html/search/classes_4.js b/docs/html/search/classes_4.js
index 6ac0a6ce..86cebc64 100644
--- a/docs/html/search/classes_4.js
+++ b/docs/html/search/classes_4.js
@@ -1,6 +1,5 @@
 var searchData=
 [
-  ['form_5flq_0',['form_lq',['../interfacelinalg_1_1form__lq.html',1,'linalg']]],
-  ['form_5flu_1',['form_lu',['../interfacelinalg_1_1form__lu.html',1,'linalg']]],
-  ['form_5fqr_2',['form_qr',['../interfacelinalg_1_1form__qr.html',1,'linalg']]]
+  ['eigen_0',['eigen',['../interfacelinalg_1_1eigen.html',1,'linalg']]],
+  ['extract_5fdiagonal_1',['extract_diagonal',['../interfacelinalg_1_1extract__diagonal.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_5.js b/docs/html/search/classes_5.js
index d81989f4..6ac0a6ce 100644
--- a/docs/html/search/classes_5.js
+++ b/docs/html/search/classes_5.js
@@ -1,5 +1,6 @@
 var searchData=
 [
-  ['lq_5ffactor_0',['lq_factor',['../interfacelinalg_1_1lq__factor.html',1,'linalg']]],
-  ['lu_5ffactor_1',['lu_factor',['../interfacelinalg_1_1lu__factor.html',1,'linalg']]]
+  ['form_5flq_0',['form_lq',['../interfacelinalg_1_1form__lq.html',1,'linalg']]],
+  ['form_5flu_1',['form_lu',['../interfacelinalg_1_1form__lu.html',1,'linalg']]],
+  ['form_5fqr_2',['form_qr',['../interfacelinalg_1_1form__qr.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_6.js b/docs/html/search/classes_6.js
index abc272a4..0d68e933 100644
--- a/docs/html/search/classes_6.js
+++ b/docs/html/search/classes_6.js
@@ -1,10 +1,5 @@
 var searchData=
 [
-  ['mtx_5finverse_0',['mtx_inverse',['../interfacelinalg_1_1mtx__inverse.html',1,'linalg']]],
-  ['mtx_5fmult_1',['mtx_mult',['../interfacelinalg_1_1mtx__mult.html',1,'linalg']]],
-  ['mtx_5fpinverse_2',['mtx_pinverse',['../interfacelinalg_1_1mtx__pinverse.html',1,'linalg']]],
-  ['mtx_5frank_3',['mtx_rank',['../interfacelinalg_1_1mtx__rank.html',1,'linalg']]],
-  ['mult_5flq_4',['mult_lq',['../interfacelinalg_1_1mult__lq.html',1,'linalg']]],
-  ['mult_5fqr_5',['mult_qr',['../interfacelinalg_1_1mult__qr.html',1,'linalg']]],
-  ['mult_5frz_6',['mult_rz',['../interfacelinalg_1_1mult__rz.html',1,'linalg']]]
+  ['getdia_0',['getdia',['../interfacesparskit_1_1getdia.html',1,'sparskit']]],
+  ['getelm_1',['getelm',['../interfacesparskit_1_1getelm.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_7.js b/docs/html/search/classes_7.js
index 15a9615a..39788bf8 100644
--- a/docs/html/search/classes_7.js
+++ b/docs/html/search/classes_7.js
@@ -1,5 +1,7 @@
 var searchData=
 [
-  ['qr_5ffactor_0',['qr_factor',['../interfacelinalg_1_1qr__factor.html',1,'linalg']]],
-  ['qr_5frank1_5fupdate_1',['qr_rank1_update',['../interfacelinalg_1_1qr__rank1__update.html',1,'linalg']]]
+  ['ilud_0',['ilud',['../interfacesparskit_1_1ilud.html',1,'sparskit']]],
+  ['iludp_1',['iludp',['../interfacesparskit_1_1iludp.html',1,'sparskit']]],
+  ['ilut_2',['ilut',['../interfacesparskit_1_1ilut.html',1,'sparskit']]],
+  ['ilutp_3',['ilutp',['../interfacesparskit_1_1ilutp.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_8.js b/docs/html/search/classes_8.js
index 686d365a..ffd21095 100644
--- a/docs/html/search/classes_8.js
+++ b/docs/html/search/classes_8.js
@@ -1,6 +1,6 @@
 var searchData=
 [
-  ['rank1_5fupdate_0',['rank1_update',['../interfacelinalg_1_1rank1__update.html',1,'linalg']]],
-  ['recip_5fmult_5farray_1',['recip_mult_array',['../interfacelinalg_1_1recip__mult__array.html',1,'linalg']]],
-  ['rz_5ffactor_2',['rz_factor',['../interfacelinalg_1_1rz__factor.html',1,'linalg']]]
+  ['lq_5ffactor_0',['lq_factor',['../interfacelinalg_1_1lq__factor.html',1,'linalg']]],
+  ['lu_5ffactor_1',['lu_factor',['../interfacelinalg_1_1lu__factor.html',1,'linalg']]],
+  ['lusol_2',['lusol',['../interfacesparskit_1_1lusol.html',1,'sparskit']]]
 ];
diff --git a/docs/html/search/classes_9.js b/docs/html/search/classes_9.js
index 5136c9f3..872369c1 100644
--- a/docs/html/search/classes_9.js
+++ b/docs/html/search/classes_9.js
@@ -1,14 +1,13 @@
 var searchData=
 [
-  ['solve_5fcholesky_0',['solve_cholesky',['../interfacelinalg_1_1solve__cholesky.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_1',['solve_least_squares',['../interfacelinalg_1_1solve__least__squares.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_5ffull_2',['solve_least_squares_full',['../interfacelinalg_1_1solve__least__squares__full.html',1,'linalg']]],
-  ['solve_5fleast_5fsquares_5fsvd_3',['solve_least_squares_svd',['../interfacelinalg_1_1solve__least__squares__svd.html',1,'linalg']]],
-  ['solve_5flq_4',['solve_lq',['../interfacelinalg_1_1solve__lq.html',1,'linalg']]],
-  ['solve_5flu_5',['solve_lu',['../interfacelinalg_1_1solve__lu.html',1,'linalg']]],
-  ['solve_5fqr_6',['solve_qr',['../interfacelinalg_1_1solve__qr.html',1,'linalg']]],
-  ['solve_5ftriangular_5fsystem_7',['solve_triangular_system',['../interfacelinalg_1_1solve__triangular__system.html',1,'linalg']]],
-  ['sort_8',['sort',['../interfacelinalg_1_1sort.html',1,'linalg']]],
-  ['svd_9',['svd',['../interfacelinalg_1_1svd.html',1,'linalg']]],
-  ['swap_10',['swap',['../interfacelinalg_1_1swap.html',1,'linalg']]]
+  ['matmul_0',['matmul',['../interfacelinalg_1_1matmul.html',1,'linalg']]],
+  ['msr_5fmatrix_1',['msr_matrix',['../structlinalg_1_1msr__matrix.html',1,'linalg']]],
+  ['msrcsr_2',['msrcsr',['../interfacesparskit_1_1msrcsr.html',1,'sparskit']]],
+  ['mtx_5finverse_3',['mtx_inverse',['../interfacelinalg_1_1mtx__inverse.html',1,'linalg']]],
+  ['mtx_5fmult_4',['mtx_mult',['../interfacelinalg_1_1mtx__mult.html',1,'linalg']]],
+  ['mtx_5fpinverse_5',['mtx_pinverse',['../interfacelinalg_1_1mtx__pinverse.html',1,'linalg']]],
+  ['mtx_5frank_6',['mtx_rank',['../interfacelinalg_1_1mtx__rank.html',1,'linalg']]],
+  ['mult_5flq_7',['mult_lq',['../interfacelinalg_1_1mult__lq.html',1,'linalg']]],
+  ['mult_5fqr_8',['mult_qr',['../interfacelinalg_1_1mult__qr.html',1,'linalg']]],
+  ['mult_5frz_9',['mult_rz',['../interfacelinalg_1_1mult__rz.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_a.js b/docs/html/search/classes_a.js
index 90d19100..7bca8e7c 100644
--- a/docs/html/search/classes_a.js
+++ b/docs/html/search/classes_a.js
@@ -1,5 +1,4 @@
 var searchData=
 [
-  ['trace_0',['trace',['../interfacelinalg_1_1trace.html',1,'linalg']]],
-  ['tri_5fmtx_5fmult_1',['tri_mtx_mult',['../interfacelinalg_1_1tri__mtx__mult.html',1,'linalg']]]
+  ['nonzero_5fcount_0',['nonzero_count',['../interfacelinalg_1_1nonzero__count.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_b.js b/docs/html/search/classes_b.js
index 81ee744d..54ba44f3 100644
--- a/docs/html/search/classes_b.js
+++ b/docs/html/search/classes_b.js
@@ -1,33 +1,7 @@
 var searchData=
 [
-  ['zch1dn_0',['zch1dn',['../interfaceqrupdate_1_1zch1dn.html',1,'qrupdate']]],
-  ['zch1up_1',['zch1up',['../interfaceqrupdate_1_1zch1up.html',1,'qrupdate']]],
-  ['zdscal_2',['zdscal',['../interfaceblas_1_1zdscal.html',1,'blas']]],
-  ['zgbmv_3',['zgbmv',['../interfaceblas_1_1zgbmv.html',1,'blas']]],
-  ['zgeev_4',['zgeev',['../interfacelapack_1_1zgeev.html',1,'lapack']]],
-  ['zgelqf_5',['zgelqf',['../interfacelapack_1_1zgelqf.html',1,'lapack']]],
-  ['zgels_6',['zgels',['../interfacelapack_1_1zgels.html',1,'lapack']]],
-  ['zgelss_7',['zgelss',['../interfacelapack_1_1zgelss.html',1,'lapack']]],
-  ['zgelsy_8',['zgelsy',['../interfacelapack_1_1zgelsy.html',1,'lapack']]],
-  ['zgemm_9',['zgemm',['../interfaceblas_1_1zgemm.html',1,'blas']]],
-  ['zgemv_10',['zgemv',['../interfaceblas_1_1zgemv.html',1,'blas']]],
-  ['zgeqp3_11',['zgeqp3',['../interfacelapack_1_1zgeqp3.html',1,'lapack']]],
-  ['zgeqrf_12',['zgeqrf',['../interfacelapack_1_1zgeqrf.html',1,'lapack']]],
-  ['zgesvd_13',['zgesvd',['../interfacelapack_1_1zgesvd.html',1,'lapack']]],
-  ['zgetrf_14',['zgetrf',['../interfacelapack_1_1zgetrf.html',1,'lapack']]],
-  ['zgetri_15',['zgetri',['../interfacelapack_1_1zgetri.html',1,'lapack']]],
-  ['zgetrs_16',['zgetrs',['../interfacelapack_1_1zgetrs.html',1,'lapack']]],
-  ['zlaic1_17',['zlaic1',['../interfacelapack_1_1zlaic1.html',1,'lapack']]],
-  ['zpotrf_18',['zpotrf',['../interfacelapack_1_1zpotrf.html',1,'lapack']]],
-  ['zpotrs_19',['zpotrs',['../interfacelapack_1_1zpotrs.html',1,'lapack']]],
-  ['zqr1up_20',['zqr1up',['../interfaceqrupdate_1_1zqr1up.html',1,'qrupdate']]],
-  ['zscal_21',['zscal',['../interfaceblas_1_1zscal.html',1,'blas']]],
-  ['ztrsm_22',['ztrsm',['../interfaceblas_1_1ztrsm.html',1,'blas']]],
-  ['ztrsv_23',['ztrsv',['../interfaceblas_1_1ztrsv.html',1,'blas']]],
-  ['ztzrzf_24',['ztzrzf',['../interfacelapack_1_1ztzrzf.html',1,'lapack']]],
-  ['zunglq_25',['zunglq',['../interfacelapack_1_1zunglq.html',1,'lapack']]],
-  ['zungqr_26',['zungqr',['../interfacelapack_1_1zungqr.html',1,'lapack']]],
-  ['zunmlq_27',['zunmlq',['../interfacelapack_1_1zunmlq.html',1,'lapack']]],
-  ['zunmqr_28',['zunmqr',['../interfacelapack_1_1zunmqr.html',1,'lapack']]],
-  ['zunmrz_29',['zunmrz',['../interfacelapack_1_1zunmrz.html',1,'lapack']]]
+  ['operator_28_2a_29_0',['operator(*)',['../interfacelinalg_1_1operator_07_5_08.html',1,'linalg']]],
+  ['operator_28_2b_29_1',['operator(+)',['../interfacelinalg_1_1operator_07_09_08.html',1,'linalg']]],
+  ['operator_28_2d_29_2',['operator(-)',['../interfacelinalg_1_1operator_07-_08.html',1,'linalg']]],
+  ['operator_28_2f_29_3',['operator(/)',['../interfacelinalg_1_1operator_07_2_08.html',1,'linalg']]]
 ];
diff --git a/docs/html/search/classes_c.js b/docs/html/search/classes_c.js
new file mode 100644
index 00000000..3f0faf2a
--- /dev/null
+++ b/docs/html/search/classes_c.js
@@ -0,0 +1,5 @@
+var searchData=
+[
+  ['pgmres_0',['pgmres',['../interfacesparskit_1_1pgmres.html',1,'sparskit']]],
+  ['pgmres_5fsolver_1',['pgmres_solver',['../interfacelinalg_1_1pgmres__solver.html',1,'linalg']]]
+];
diff --git a/docs/html/search/classes_d.js b/docs/html/search/classes_d.js
new file mode 100644
index 00000000..15a9615a
--- /dev/null
+++ b/docs/html/search/classes_d.js
@@ -0,0 +1,5 @@
+var searchData=
+[
+  ['qr_5ffactor_0',['qr_factor',['../interfacelinalg_1_1qr__factor.html',1,'linalg']]],
+  ['qr_5frank1_5fupdate_1',['qr_rank1_update',['../interfacelinalg_1_1qr__rank1__update.html',1,'linalg']]]
+];
diff --git a/docs/html/search/classes_e.js b/docs/html/search/classes_e.js
new file mode 100644
index 00000000..686d365a
--- /dev/null
+++ b/docs/html/search/classes_e.js
@@ -0,0 +1,6 @@
+var searchData=
+[
+  ['rank1_5fupdate_0',['rank1_update',['../interfacelinalg_1_1rank1__update.html',1,'linalg']]],
+  ['recip_5fmult_5farray_1',['recip_mult_array',['../interfacelinalg_1_1recip__mult__array.html',1,'linalg']]],
+  ['rz_5ffactor_2',['rz_factor',['../interfacelinalg_1_1rz__factor.html',1,'linalg']]]
+];
diff --git a/docs/html/search/classes_f.js b/docs/html/search/classes_f.js
new file mode 100644
index 00000000..bcdd4196
--- /dev/null
+++ b/docs/html/search/classes_f.js
@@ -0,0 +1,16 @@
+var searchData=
+[
+  ['size_0',['size',['../interfacelinalg_1_1size.html',1,'linalg']]],
+  ['solve_5fcholesky_1',['solve_cholesky',['../interfacelinalg_1_1solve__cholesky.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_2',['solve_least_squares',['../interfacelinalg_1_1solve__least__squares.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_5ffull_3',['solve_least_squares_full',['../interfacelinalg_1_1solve__least__squares__full.html',1,'linalg']]],
+  ['solve_5fleast_5fsquares_5fsvd_4',['solve_least_squares_svd',['../interfacelinalg_1_1solve__least__squares__svd.html',1,'linalg']]],
+  ['solve_5flq_5',['solve_lq',['../interfacelinalg_1_1solve__lq.html',1,'linalg']]],
+  ['solve_5flu_6',['solve_lu',['../interfacelinalg_1_1solve__lu.html',1,'linalg']]],
+  ['solve_5fqr_7',['solve_qr',['../interfacelinalg_1_1solve__qr.html',1,'linalg']]],
+  ['solve_5ftriangular_5fsystem_8',['solve_triangular_system',['../interfacelinalg_1_1solve__triangular__system.html',1,'linalg']]],
+  ['sort_9',['sort',['../interfacelinalg_1_1sort.html',1,'linalg']]],
+  ['sparse_5fdirect_5fsolve_10',['sparse_direct_solve',['../interfacelinalg_1_1sparse__direct__solve.html',1,'linalg']]],
+  ['svd_11',['svd',['../interfacelinalg_1_1svd.html',1,'linalg']]],
+  ['swap_12',['swap',['../interfacelinalg_1_1swap.html',1,'linalg']]]
+];
diff --git a/docs/html/search/functions_0.js b/docs/html/search/functions_0.js
index 9d86f397..a133350f 100644
--- a/docs/html/search/functions_0.js
+++ b/docs/html/search/functions_0.js
@@ -1,78 +1,4 @@
 var searchData=
 [
-  ['la_5fband_5fdiag_5fmtx_5fmult_0',['la_band_diag_mtx_mult',['../linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437',1,'linalg.h']]],
-  ['la_5fband_5fdiag_5fmtx_5fmult_5fcmplx_1',['la_band_diag_mtx_mult_cmplx',['../linalg_8h.html#a910a1ec23e1112487573f35765a421ca',1,'linalg.h']]],
-  ['la_5fband_5fmtx_5fvec_5fmult_2',['la_band_mtx_vec_mult',['../linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e',1,'linalg.h']]],
-  ['la_5fband_5fmtx_5fvec_5fmult_5fcmplx_3',['la_band_mtx_vec_mult_cmplx',['../linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0',1,'linalg.h']]],
-  ['la_5fband_5fto_5ffull_5fmtx_4',['la_band_to_full_mtx',['../linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea',1,'linalg.h']]],
-  ['la_5fband_5fto_5ffull_5fmtx_5fcmplx_5',['la_band_to_full_mtx_cmplx',['../linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f',1,'linalg.h']]],
-  ['la_5fcholesky_5ffactor_6',['la_cholesky_factor',['../linalg_8h.html#a3967bc139cba341a513d1353bea62ac9',1,'linalg.h']]],
-  ['la_5fcholesky_5ffactor_5fcmplx_7',['la_cholesky_factor_cmplx',['../linalg_8h.html#a1734acc61ef569dfff9c83bcad566f67',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fdowndate_8',['la_cholesky_rank1_downdate',['../linalg_8h.html#a292e54c48a8e7f0203bf11f02844691f',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fdowndate_5fcmplx_9',['la_cholesky_rank1_downdate_cmplx',['../linalg_8h.html#a00c15ec713541d15eae1fd0b01897689',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fupdate_10',['la_cholesky_rank1_update',['../linalg_8h.html#abeb7ee58d4151498be96aa91432f296f',1,'linalg.h']]],
-  ['la_5fcholesky_5frank1_5fupdate_5fcmplx_11',['la_cholesky_rank1_update_cmplx',['../linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3',1,'linalg.h']]],
-  ['la_5fdet_12',['la_det',['../linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913',1,'linalg.h']]],
-  ['la_5fdet_5fcmplx_13',['la_det_cmplx',['../linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_14',['la_diag_mtx_mult',['../linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_5fcmplx_15',['la_diag_mtx_mult_cmplx',['../linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65',1,'linalg.h']]],
-  ['la_5fdiag_5fmtx_5fmult_5fmixed_16',['la_diag_mtx_mult_mixed',['../linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d',1,'linalg.h']]],
-  ['la_5feigen_5fasymm_17',['la_eigen_asymm',['../linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74',1,'linalg.h']]],
-  ['la_5feigen_5fcmplx_18',['la_eigen_cmplx',['../linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf',1,'linalg.h']]],
-  ['la_5feigen_5fgen_19',['la_eigen_gen',['../linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2',1,'linalg.h']]],
-  ['la_5feigen_5fsymm_20',['la_eigen_symm',['../linalg_8h.html#ac208d5e6849972a77ef261f2e368868c',1,'linalg.h']]],
-  ['la_5fform_5flq_21',['la_form_lq',['../linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96',1,'linalg.h']]],
-  ['la_5fform_5flq_5fcmplx_22',['la_form_lq_cmplx',['../linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed',1,'linalg.h']]],
-  ['la_5fform_5flu_23',['la_form_lu',['../linalg_8h.html#a15774f6323c34d307c99b32ac4f188a7',1,'linalg.h']]],
-  ['la_5fform_5flu_5fcmplx_24',['la_form_lu_cmplx',['../linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14',1,'linalg.h']]],
-  ['la_5fform_5fqr_25',['la_form_qr',['../linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fcmplx_26',['la_form_qr_cmplx',['../linalg_8h.html#a0338870fe1142f88c96db63495fec615',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fcmplx_5fpvt_27',['la_form_qr_cmplx_pvt',['../linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38',1,'linalg.h']]],
-  ['la_5fform_5fqr_5fpvt_28',['la_form_qr_pvt',['../linalg_8h.html#aace787c5b11959a457b936ace4995033',1,'linalg.h']]],
-  ['la_5finverse_29',['la_inverse',['../linalg_8h.html#a95d6ed56844c62d553b940091837014b',1,'linalg.h']]],
-  ['la_5finverse_5fcmplx_30',['la_inverse_cmplx',['../linalg_8h.html#a7a821b41c61670f5710214a4d9178998',1,'linalg.h']]],
-  ['la_5flq_5ffactor_31',['la_lq_factor',['../linalg_8h.html#a7b2048bb219e58f455175041558ac44f',1,'linalg.h']]],
-  ['la_5flq_5ffactor_5fcmplx_32',['la_lq_factor_cmplx',['../linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa',1,'linalg.h']]],
-  ['la_5flu_5ffactor_33',['la_lu_factor',['../linalg_8h.html#a248142a5f0826cddac5daf1c74f234a6',1,'linalg.h']]],
-  ['la_5flu_5ffactor_5fcmplx_34',['la_lu_factor_cmplx',['../linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47',1,'linalg.h']]],
-  ['la_5fmtx_5fmult_35',['la_mtx_mult',['../linalg_8h.html#a968b10545320af7bbe1030867ae88e8c',1,'linalg.h']]],
-  ['la_5fmtx_5fmult_5fcmplx_36',['la_mtx_mult_cmplx',['../linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76',1,'linalg.h']]],
-  ['la_5fmult_5flq_37',['la_mult_lq',['../linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773',1,'linalg.h']]],
-  ['la_5fmult_5flq_5fcmplx_38',['la_mult_lq_cmplx',['../linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5',1,'linalg.h']]],
-  ['la_5fmult_5fqr_39',['la_mult_qr',['../linalg_8h.html#a95f921847131eaedd62a439490d2a801',1,'linalg.h']]],
-  ['la_5fmult_5fqr_5fcmplx_40',['la_mult_qr_cmplx',['../linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3',1,'linalg.h']]],
-  ['la_5fpinverse_41',['la_pinverse',['../linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6',1,'linalg.h']]],
-  ['la_5fpinverse_5fcmplx_42',['la_pinverse_cmplx',['../linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_43',['la_qr_factor',['../linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fcmplx_44',['la_qr_factor_cmplx',['../linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fcmplx_5fpvt_45',['la_qr_factor_cmplx_pvt',['../linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97',1,'linalg.h']]],
-  ['la_5fqr_5ffactor_5fpvt_46',['la_qr_factor_pvt',['../linalg_8h.html#a4bc671dad87b42ff285a4241322a3764',1,'linalg.h']]],
-  ['la_5fqr_5frank1_5fupdate_47',['la_qr_rank1_update',['../linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f',1,'linalg.h']]],
-  ['la_5fqr_5frank1_5fupdate_5fcmplx_48',['la_qr_rank1_update_cmplx',['../linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef',1,'linalg.h']]],
-  ['la_5frank_49',['la_rank',['../linalg_8h.html#a089690d293303e30c6eef0bb1e982191',1,'linalg.h']]],
-  ['la_5frank1_5fupdate_50',['la_rank1_update',['../linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74',1,'linalg.h']]],
-  ['la_5frank1_5fupdate_5fcmplx_51',['la_rank1_update_cmplx',['../linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15',1,'linalg.h']]],
-  ['la_5frank_5fcmplx_52',['la_rank_cmplx',['../linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258',1,'linalg.h']]],
-  ['la_5fsolve_5fcholesky_53',['la_solve_cholesky',['../linalg_8h.html#a0dc578507a0cb6ada776142476383590',1,'linalg.h']]],
-  ['la_5fsolve_5fcholesky_5fcmplx_54',['la_solve_cholesky_cmplx',['../linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf',1,'linalg.h']]],
-  ['la_5fsolve_5fleast_5fsquares_55',['la_solve_least_squares',['../linalg_8h.html#a02eb049983dd41f2307bb52594fb210e',1,'linalg.h']]],
-  ['la_5fsolve_5fleast_5fsquares_5fcmplx_56',['la_solve_least_squares_cmplx',['../linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64',1,'linalg.h']]],
-  ['la_5fsolve_5flq_57',['la_solve_lq',['../linalg_8h.html#a2c485d619c24435be713cf4356285e9a',1,'linalg.h']]],
-  ['la_5fsolve_5flq_5fcmplx_58',['la_solve_lq_cmplx',['../linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54',1,'linalg.h']]],
-  ['la_5fsolve_5flu_59',['la_solve_lu',['../linalg_8h.html#aae725d3247301d1163c58f89edff3d4b',1,'linalg.h']]],
-  ['la_5fsolve_5flu_5fcmplx_60',['la_solve_lu_cmplx',['../linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_61',['la_solve_qr',['../linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fcmplx_62',['la_solve_qr_cmplx',['../linalg_8h.html#a0ff5f2519eb1d2af94e3b4a26dfb10fe',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fcmplx_5fpvt_63',['la_solve_qr_cmplx_pvt',['../linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070',1,'linalg.h']]],
-  ['la_5fsolve_5fqr_5fpvt_64',['la_solve_qr_pvt',['../linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb',1,'linalg.h']]],
-  ['la_5fsolve_5ftri_5fmtx_65',['la_solve_tri_mtx',['../linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4',1,'linalg.h']]],
-  ['la_5fsolve_5ftri_5fmtx_5fcmplx_66',['la_solve_tri_mtx_cmplx',['../linalg_8h.html#af87823d73fb5a319e4262594d147e38c',1,'linalg.h']]],
-  ['la_5fsort_5feigen_67',['la_sort_eigen',['../linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493',1,'linalg.h']]],
-  ['la_5fsort_5feigen_5fcmplx_68',['la_sort_eigen_cmplx',['../linalg_8h.html#a090178a5f99a4b400da80481aad77757',1,'linalg.h']]],
-  ['la_5fsvd_69',['la_svd',['../linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d',1,'linalg.h']]],
-  ['la_5fsvd_5fcmplx_70',['la_svd_cmplx',['../linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e',1,'linalg.h']]],
-  ['la_5ftrace_71',['la_trace',['../linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112',1,'linalg.h']]],
-  ['la_5ftrace_5fcmplx_72',['la_trace_cmplx',['../linalg_8h.html#a021fbb7fdccf557ec407a86bace43d85',1,'linalg.h']]],
-  ['la_5ftri_5fmtx_5fmult_73',['la_tri_mtx_mult',['../linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e',1,'linalg.h']]],
-  ['la_5ftri_5fmtx_5fmult_5fcmplx_74',['la_tri_mtx_mult_cmplx',['../linalg_8h.html#a02c464a9dd95298c91f431ae4d0773e9',1,'linalg.h']]]
+  ['get_0',['get',['../structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf',1,'linalg::csr_matrix']]]
 ];
diff --git a/docs/html/search/functions_1.js b/docs/html/search/functions_1.js
index c5450b53..9d86f397 100644
--- a/docs/html/search/functions_1.js
+++ b/docs/html/search/functions_1.js
@@ -1,13 +1,78 @@
 var searchData=
 [
-  ['mat_5fcholesky_0',['mat_cholesky',['../namespacelinalg__immutable.html#a5876e7f21f20679fd6c0c84768061a30',1,'linalg_immutable']]],
-  ['mat_5fcholesky_5frank1_5fdowndate_1',['mat_cholesky_rank1_downdate',['../namespacelinalg__immutable.html#afb844327cadfdd08580c94cb1668c2a8',1,'linalg_immutable']]],
-  ['mat_5fcholesky_5frank1_5fupdate_2',['mat_cholesky_rank1_update',['../namespacelinalg__immutable.html#a83eaeadc3a3cc5d81c46824174e5a90b',1,'linalg_immutable']]],
-  ['mat_5fdet_3',['mat_det',['../namespacelinalg__immutable.html#ab7abd8e3fd4170b5b5dfad4448a651c9',1,'linalg_immutable']]],
-  ['mat_5finverse_4',['mat_inverse',['../namespacelinalg__immutable.html#a98f5b4e5de682d686cb763ab60fcde7f',1,'linalg_immutable']]],
-  ['mat_5fpinverse_5',['mat_pinverse',['../namespacelinalg__immutable.html#aaf39795f72fad79a38213893b850d793',1,'linalg_immutable']]],
-  ['mat_5fqr_6',['mat_qr',['../namespacelinalg__immutable.html#a8f1ba0ce9f8fbece16a512145bbc197f',1,'linalg_immutable']]],
-  ['mat_5fqr_5frank1_5fupdate_7',['mat_qr_rank1_update',['../namespacelinalg__immutable.html#a4b09077ad1495833919bab84b144b297',1,'linalg_immutable']]],
-  ['mat_5frank1_5fupdate_8',['mat_rank1_update',['../namespacelinalg__immutable.html#a9648fd41cc3ce8ec40f67236d274f9a8',1,'linalg_immutable']]],
-  ['mat_5fsvd_9',['mat_svd',['../namespacelinalg__immutable.html#a6236acadb527f7762e3e1c0ee3d9ca82',1,'linalg_immutable']]]
+  ['la_5fband_5fdiag_5fmtx_5fmult_0',['la_band_diag_mtx_mult',['../linalg_8h.html#a64c2c86dc85ca7aad74667f153ae0437',1,'linalg.h']]],
+  ['la_5fband_5fdiag_5fmtx_5fmult_5fcmplx_1',['la_band_diag_mtx_mult_cmplx',['../linalg_8h.html#a910a1ec23e1112487573f35765a421ca',1,'linalg.h']]],
+  ['la_5fband_5fmtx_5fvec_5fmult_2',['la_band_mtx_vec_mult',['../linalg_8h.html#ae48bdfb08cd35a8876b3dc879547686e',1,'linalg.h']]],
+  ['la_5fband_5fmtx_5fvec_5fmult_5fcmplx_3',['la_band_mtx_vec_mult_cmplx',['../linalg_8h.html#ac9e5ee0c20bacc19d1dab1c1182525f0',1,'linalg.h']]],
+  ['la_5fband_5fto_5ffull_5fmtx_4',['la_band_to_full_mtx',['../linalg_8h.html#adf4bdd1f9670b6636a55f606c5de72ea',1,'linalg.h']]],
+  ['la_5fband_5fto_5ffull_5fmtx_5fcmplx_5',['la_band_to_full_mtx_cmplx',['../linalg_8h.html#aa53e764ecb002d381d746edfa6b2fd8f',1,'linalg.h']]],
+  ['la_5fcholesky_5ffactor_6',['la_cholesky_factor',['../linalg_8h.html#a3967bc139cba341a513d1353bea62ac9',1,'linalg.h']]],
+  ['la_5fcholesky_5ffactor_5fcmplx_7',['la_cholesky_factor_cmplx',['../linalg_8h.html#a1734acc61ef569dfff9c83bcad566f67',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fdowndate_8',['la_cholesky_rank1_downdate',['../linalg_8h.html#a292e54c48a8e7f0203bf11f02844691f',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fdowndate_5fcmplx_9',['la_cholesky_rank1_downdate_cmplx',['../linalg_8h.html#a00c15ec713541d15eae1fd0b01897689',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fupdate_10',['la_cholesky_rank1_update',['../linalg_8h.html#abeb7ee58d4151498be96aa91432f296f',1,'linalg.h']]],
+  ['la_5fcholesky_5frank1_5fupdate_5fcmplx_11',['la_cholesky_rank1_update_cmplx',['../linalg_8h.html#af19ebf41be31ee92f657131a8fbf55a3',1,'linalg.h']]],
+  ['la_5fdet_12',['la_det',['../linalg_8h.html#ac7b4894cd929a106e02a8e37a4d52913',1,'linalg.h']]],
+  ['la_5fdet_5fcmplx_13',['la_det_cmplx',['../linalg_8h.html#ace9edf6a878ee4dd0b220b75b7db6431',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_14',['la_diag_mtx_mult',['../linalg_8h.html#a4b74177a8914b109e1bf3aa56c9d9cb7',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_5fcmplx_15',['la_diag_mtx_mult_cmplx',['../linalg_8h.html#a63bec2daa56fdc4bbf3f45b67ea14f65',1,'linalg.h']]],
+  ['la_5fdiag_5fmtx_5fmult_5fmixed_16',['la_diag_mtx_mult_mixed',['../linalg_8h.html#a4d5bad18dcc8a52d9594cc21954c572d',1,'linalg.h']]],
+  ['la_5feigen_5fasymm_17',['la_eigen_asymm',['../linalg_8h.html#a9491626ab4b3664771e1282b61eeaa74',1,'linalg.h']]],
+  ['la_5feigen_5fcmplx_18',['la_eigen_cmplx',['../linalg_8h.html#ae5a16375c14c924836c33bafa747a1cf',1,'linalg.h']]],
+  ['la_5feigen_5fgen_19',['la_eigen_gen',['../linalg_8h.html#af3c6f1a45aee2f275d4b109c9bb660d2',1,'linalg.h']]],
+  ['la_5feigen_5fsymm_20',['la_eigen_symm',['../linalg_8h.html#ac208d5e6849972a77ef261f2e368868c',1,'linalg.h']]],
+  ['la_5fform_5flq_21',['la_form_lq',['../linalg_8h.html#ac54763802ad5c3966f8e14cdf93fdc96',1,'linalg.h']]],
+  ['la_5fform_5flq_5fcmplx_22',['la_form_lq_cmplx',['../linalg_8h.html#aa54b8d224976dca7ef384eed74f50bed',1,'linalg.h']]],
+  ['la_5fform_5flu_23',['la_form_lu',['../linalg_8h.html#a15774f6323c34d307c99b32ac4f188a7',1,'linalg.h']]],
+  ['la_5fform_5flu_5fcmplx_24',['la_form_lu_cmplx',['../linalg_8h.html#a73bea3ca338925cfa4a58bcaea726a14',1,'linalg.h']]],
+  ['la_5fform_5fqr_25',['la_form_qr',['../linalg_8h.html#afe39765d805c1d9ae93e9aa2f20d8548',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fcmplx_26',['la_form_qr_cmplx',['../linalg_8h.html#a0338870fe1142f88c96db63495fec615',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fcmplx_5fpvt_27',['la_form_qr_cmplx_pvt',['../linalg_8h.html#ad76e25c5eb98075e83cc9df493be5b38',1,'linalg.h']]],
+  ['la_5fform_5fqr_5fpvt_28',['la_form_qr_pvt',['../linalg_8h.html#aace787c5b11959a457b936ace4995033',1,'linalg.h']]],
+  ['la_5finverse_29',['la_inverse',['../linalg_8h.html#a95d6ed56844c62d553b940091837014b',1,'linalg.h']]],
+  ['la_5finverse_5fcmplx_30',['la_inverse_cmplx',['../linalg_8h.html#a7a821b41c61670f5710214a4d9178998',1,'linalg.h']]],
+  ['la_5flq_5ffactor_31',['la_lq_factor',['../linalg_8h.html#a7b2048bb219e58f455175041558ac44f',1,'linalg.h']]],
+  ['la_5flq_5ffactor_5fcmplx_32',['la_lq_factor_cmplx',['../linalg_8h.html#a5e6786c40f8f91e5f16f06e92be71ffa',1,'linalg.h']]],
+  ['la_5flu_5ffactor_33',['la_lu_factor',['../linalg_8h.html#a248142a5f0826cddac5daf1c74f234a6',1,'linalg.h']]],
+  ['la_5flu_5ffactor_5fcmplx_34',['la_lu_factor_cmplx',['../linalg_8h.html#ace554b62c12a5d9a2434c8171c756c47',1,'linalg.h']]],
+  ['la_5fmtx_5fmult_35',['la_mtx_mult',['../linalg_8h.html#a968b10545320af7bbe1030867ae88e8c',1,'linalg.h']]],
+  ['la_5fmtx_5fmult_5fcmplx_36',['la_mtx_mult_cmplx',['../linalg_8h.html#aefefe80e13f74470d5afaf44b3a45e76',1,'linalg.h']]],
+  ['la_5fmult_5flq_37',['la_mult_lq',['../linalg_8h.html#ac575e10e20e9c2d8d40ed8df47179773',1,'linalg.h']]],
+  ['la_5fmult_5flq_5fcmplx_38',['la_mult_lq_cmplx',['../linalg_8h.html#adcb07293cf47d090dfb89c20837ca7b5',1,'linalg.h']]],
+  ['la_5fmult_5fqr_39',['la_mult_qr',['../linalg_8h.html#a95f921847131eaedd62a439490d2a801',1,'linalg.h']]],
+  ['la_5fmult_5fqr_5fcmplx_40',['la_mult_qr_cmplx',['../linalg_8h.html#acc25c0daa53c10ace21a61d78b2e79f3',1,'linalg.h']]],
+  ['la_5fpinverse_41',['la_pinverse',['../linalg_8h.html#af7f8185c0f25ad3fb0b89cc98d77b3d6',1,'linalg.h']]],
+  ['la_5fpinverse_5fcmplx_42',['la_pinverse_cmplx',['../linalg_8h.html#a71ba1a09caca9d59a9d24b95c7ea749b',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_43',['la_qr_factor',['../linalg_8h.html#a791d5221eb8ad4fcd106cb218590dfc9',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fcmplx_44',['la_qr_factor_cmplx',['../linalg_8h.html#ae5ffa6e8d9c850bd41f43f7564bf6896',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fcmplx_5fpvt_45',['la_qr_factor_cmplx_pvt',['../linalg_8h.html#a4a3f6dafe185c2985fc76aab3d0abb97',1,'linalg.h']]],
+  ['la_5fqr_5ffactor_5fpvt_46',['la_qr_factor_pvt',['../linalg_8h.html#a4bc671dad87b42ff285a4241322a3764',1,'linalg.h']]],
+  ['la_5fqr_5frank1_5fupdate_47',['la_qr_rank1_update',['../linalg_8h.html#a9b0639faf9ac0af9bbdb348b92746d5f',1,'linalg.h']]],
+  ['la_5fqr_5frank1_5fupdate_5fcmplx_48',['la_qr_rank1_update_cmplx',['../linalg_8h.html#acfbd42393c8b1931ff11bc4c7e858aef',1,'linalg.h']]],
+  ['la_5frank_49',['la_rank',['../linalg_8h.html#a089690d293303e30c6eef0bb1e982191',1,'linalg.h']]],
+  ['la_5frank1_5fupdate_50',['la_rank1_update',['../linalg_8h.html#ab346fed23fd61f02d65e09c795c26d74',1,'linalg.h']]],
+  ['la_5frank1_5fupdate_5fcmplx_51',['la_rank1_update_cmplx',['../linalg_8h.html#a3c958fe274f8d1663dd0188455a5fe15',1,'linalg.h']]],
+  ['la_5frank_5fcmplx_52',['la_rank_cmplx',['../linalg_8h.html#afdc9b7e6ffab89915a082c00ceac7258',1,'linalg.h']]],
+  ['la_5fsolve_5fcholesky_53',['la_solve_cholesky',['../linalg_8h.html#a0dc578507a0cb6ada776142476383590',1,'linalg.h']]],
+  ['la_5fsolve_5fcholesky_5fcmplx_54',['la_solve_cholesky_cmplx',['../linalg_8h.html#a719ffdff56c8fa0875409c4f4e5e95cf',1,'linalg.h']]],
+  ['la_5fsolve_5fleast_5fsquares_55',['la_solve_least_squares',['../linalg_8h.html#a02eb049983dd41f2307bb52594fb210e',1,'linalg.h']]],
+  ['la_5fsolve_5fleast_5fsquares_5fcmplx_56',['la_solve_least_squares_cmplx',['../linalg_8h.html#ac3bb7b959d8cc7400e9b13290a895b64',1,'linalg.h']]],
+  ['la_5fsolve_5flq_57',['la_solve_lq',['../linalg_8h.html#a2c485d619c24435be713cf4356285e9a',1,'linalg.h']]],
+  ['la_5fsolve_5flq_5fcmplx_58',['la_solve_lq_cmplx',['../linalg_8h.html#a54ee9d9ab89b88b0ca682f70bc6c3c54',1,'linalg.h']]],
+  ['la_5fsolve_5flu_59',['la_solve_lu',['../linalg_8h.html#aae725d3247301d1163c58f89edff3d4b',1,'linalg.h']]],
+  ['la_5fsolve_5flu_5fcmplx_60',['la_solve_lu_cmplx',['../linalg_8h.html#aa067ac0d3f58e28371d413ab7419da74',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_61',['la_solve_qr',['../linalg_8h.html#aefdc2e6758482d02a3aa7978f7d5efe0',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fcmplx_62',['la_solve_qr_cmplx',['../linalg_8h.html#a0ff5f2519eb1d2af94e3b4a26dfb10fe',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fcmplx_5fpvt_63',['la_solve_qr_cmplx_pvt',['../linalg_8h.html#ad0ee4a9c71de62911a71a342790f5070',1,'linalg.h']]],
+  ['la_5fsolve_5fqr_5fpvt_64',['la_solve_qr_pvt',['../linalg_8h.html#a62f97b4319f5574aef5e52bbacff14bb',1,'linalg.h']]],
+  ['la_5fsolve_5ftri_5fmtx_65',['la_solve_tri_mtx',['../linalg_8h.html#aed7b29bbff1472ebe805054eb9d8c6d4',1,'linalg.h']]],
+  ['la_5fsolve_5ftri_5fmtx_5fcmplx_66',['la_solve_tri_mtx_cmplx',['../linalg_8h.html#af87823d73fb5a319e4262594d147e38c',1,'linalg.h']]],
+  ['la_5fsort_5feigen_67',['la_sort_eigen',['../linalg_8h.html#abf5918abab8f97fc2ac5887e051ff493',1,'linalg.h']]],
+  ['la_5fsort_5feigen_5fcmplx_68',['la_sort_eigen_cmplx',['../linalg_8h.html#a090178a5f99a4b400da80481aad77757',1,'linalg.h']]],
+  ['la_5fsvd_69',['la_svd',['../linalg_8h.html#a56c0cea99a066e74c8fff9682d5ca92d',1,'linalg.h']]],
+  ['la_5fsvd_5fcmplx_70',['la_svd_cmplx',['../linalg_8h.html#afbffa0856d75c607a03d3dc7b5b1076e',1,'linalg.h']]],
+  ['la_5ftrace_71',['la_trace',['../linalg_8h.html#a7f611f8f3de7d56120c78e70671c7112',1,'linalg.h']]],
+  ['la_5ftrace_5fcmplx_72',['la_trace_cmplx',['../linalg_8h.html#a021fbb7fdccf557ec407a86bace43d85',1,'linalg.h']]],
+  ['la_5ftri_5fmtx_5fmult_73',['la_tri_mtx_mult',['../linalg_8h.html#ae7d70f1ef2a2824772e1bf0f726c257e',1,'linalg.h']]],
+  ['la_5ftri_5fmtx_5fmult_5fcmplx_74',['la_tri_mtx_mult_cmplx',['../linalg_8h.html#a02c464a9dd95298c91f431ae4d0773e9',1,'linalg.h']]]
 ];
diff --git a/docs/html/search/namespaces_3.js b/docs/html/search/namespaces_3.js
new file mode 100644
index 00000000..e99569f0
--- /dev/null
+++ b/docs/html/search/namespaces_3.js
@@ -0,0 +1,4 @@
+var searchData=
+[
+  ['sparskit_0',['sparskit',['../namespacesparskit.html',1,'']]]
+];
diff --git a/docs/html/search/searchdata.js b/docs/html/search/searchdata.js
index 0090d495..35d35ff9 100644
--- a/docs/html/search/searchdata.js
+++ b/docs/html/search/searchdata.js
@@ -1,11 +1,11 @@
 var indexSectionsWithContent =
 {
-  0: "bcdefilmqrstz",
-  1: "bcdeflmqrstz",
-  2: "blq",
+  0: "abcdefgilmnopqrstvz",
+  1: "abcdefgilmnopqrstz",
+  2: "blqs",
   3: "l",
-  4: "l",
-  5: "l",
+  4: "gl",
+  5: "cilrv",
   6: "l"
 };
 
diff --git a/docs/html/search/variables_0.js b/docs/html/search/variables_0.js
index 5dd8e2c7..bed433a4 100644
--- a/docs/html/search/variables_0.js
+++ b/docs/html/search/variables_0.js
@@ -1,14 +1,4 @@
 var searchData=
 [
-  ['la_5farray_5fsize_5ferror_0',['la_array_size_error',['../namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9',1,'linalg']]],
-  ['la_5fconvergence_5ferror_1',['la_convergence_error',['../namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7',1,'linalg']]],
-  ['la_5fhermitian_5ftranspose_2',['la_hermitian_transpose',['../namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a',1,'linalg']]],
-  ['la_5finvalid_5finput_5ferror_3',['la_invalid_input_error',['../namespacelinalg.html#ace738355659bce2e9591473f0d543ef7',1,'linalg']]],
-  ['la_5finvalid_5foperation_5ferror_4',['la_invalid_operation_error',['../namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc',1,'linalg']]],
-  ['la_5fmatrix_5fformat_5ferror_5',['la_matrix_format_error',['../namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776',1,'linalg']]],
-  ['la_5fno_5ferror_6',['la_no_error',['../namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4',1,'linalg']]],
-  ['la_5fno_5foperation_7',['la_no_operation',['../namespacelinalg.html#a665d131453840e869510e9e8d2f7f151',1,'linalg']]],
-  ['la_5fout_5fof_5fmemory_5ferror_8',['la_out_of_memory_error',['../namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006',1,'linalg']]],
-  ['la_5fsingular_5fmatrix_5ferror_9',['la_singular_matrix_error',['../namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9',1,'linalg']]],
-  ['la_5ftranspose_10',['la_transpose',['../namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59',1,'linalg']]]
+  ['column_5findices_0',['column_indices',['../structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307',1,'linalg::csr_matrix']]]
 ];
diff --git a/docs/html/search/variables_1.js b/docs/html/search/variables_1.js
index f0e2a425..705b1aa4 100644
--- a/docs/html/search/variables_1.js
+++ b/docs/html/search/variables_1.js
@@ -1,4 +1,4 @@
 var searchData=
 [
-  ['p_0',['p',['../structlinalg__immutable_1_1lu__results.html#ae1e1fd78123e04a2be4f1bfd25ddddb1',1,'linalg_immutable::lu_results::p()'],['../structlinalg__immutable_1_1lu__results__cmplx.html#a99d03bc910361aab08d17fcc4aaa960d',1,'linalg_immutable::lu_results_cmplx::p()'],['../structlinalg__immutable_1_1qr__results.html#a053899b9dffba08b5052544c13d4983c',1,'linalg_immutable::qr_results::p()'],['../structlinalg__immutable_1_1qr__results__cmplx.html#a782d54320ca646427702d5f2e0a9372f',1,'linalg_immutable::qr_results_cmplx::p()']]]
+  ['indices_0',['indices',['../structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a',1,'linalg::msr_matrix']]]
 ];
diff --git a/docs/html/search/variables_2.js b/docs/html/search/variables_2.js
index 4201d28a..5dd8e2c7 100644
--- a/docs/html/search/variables_2.js
+++ b/docs/html/search/variables_2.js
@@ -1,4 +1,14 @@
 var searchData=
 [
-  ['q_0',['q',['../structlinalg__immutable_1_1qr__results.html#a91547ec8def57c0cc59271ccf59b3a01',1,'linalg_immutable::qr_results::q()'],['../structlinalg__immutable_1_1qr__results__cmplx.html#a7fa839ced2d020c61550d5b6cff9bb69',1,'linalg_immutable::qr_results_cmplx::q()']]]
+  ['la_5farray_5fsize_5ferror_0',['la_array_size_error',['../namespacelinalg.html#a7974856c0c0c76e6f1f2098a1eb7eac9',1,'linalg']]],
+  ['la_5fconvergence_5ferror_1',['la_convergence_error',['../namespacelinalg.html#ac691dea40873ac2a70c8b44c933774a7',1,'linalg']]],
+  ['la_5fhermitian_5ftranspose_2',['la_hermitian_transpose',['../namespacelinalg.html#a0e420096028b759a87f2f4f4306d202a',1,'linalg']]],
+  ['la_5finvalid_5finput_5ferror_3',['la_invalid_input_error',['../namespacelinalg.html#ace738355659bce2e9591473f0d543ef7',1,'linalg']]],
+  ['la_5finvalid_5foperation_5ferror_4',['la_invalid_operation_error',['../namespacelinalg.html#a4f47021e96cd813b568422a2eb3821bc',1,'linalg']]],
+  ['la_5fmatrix_5fformat_5ferror_5',['la_matrix_format_error',['../namespacelinalg.html#ad89b9d502b7c484df53f9b10b9545776',1,'linalg']]],
+  ['la_5fno_5ferror_6',['la_no_error',['../namespacelinalg.html#aefdfc0979567e89aa3b8c599d3f766f4',1,'linalg']]],
+  ['la_5fno_5foperation_7',['la_no_operation',['../namespacelinalg.html#a665d131453840e869510e9e8d2f7f151',1,'linalg']]],
+  ['la_5fout_5fof_5fmemory_5ferror_8',['la_out_of_memory_error',['../namespacelinalg.html#abfb78ba61c0c2751f1c771c984469006',1,'linalg']]],
+  ['la_5fsingular_5fmatrix_5ferror_9',['la_singular_matrix_error',['../namespacelinalg.html#af5dc9d60151bb81436b442525871c8c9',1,'linalg']]],
+  ['la_5ftranspose_10',['la_transpose',['../namespacelinalg.html#a2b842a1fb17710d7ec2f117f5fdb2a59',1,'linalg']]]
 ];
diff --git a/docs/html/search/variables_3.js b/docs/html/search/variables_3.js
index 30a4e410..1e0a7566 100644
--- a/docs/html/search/variables_3.js
+++ b/docs/html/search/variables_3.js
@@ -1,4 +1,4 @@
 var searchData=
 [
-  ['r_0',['r',['../structlinalg__immutable_1_1qr__results.html#aeeea31b1fad256f5fcc2462b2990d56b',1,'linalg_immutable::qr_results::r()'],['../structlinalg__immutable_1_1qr__results__cmplx.html#a9382745395a25db425c5de89c33df2cd',1,'linalg_immutable::qr_results_cmplx::r()']]]
+  ['row_5findices_0',['row_indices',['../structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de',1,'linalg::csr_matrix']]]
 ];
diff --git a/docs/html/search/variables_4.js b/docs/html/search/variables_4.js
index 2a4689c8..3f9b2fe2 100644
--- a/docs/html/search/variables_4.js
+++ b/docs/html/search/variables_4.js
@@ -1,4 +1,4 @@
 var searchData=
 [
-  ['s_0',['s',['../structlinalg__immutable_1_1svd__results.html#acbc05e1d170351bbfcd4cd1f089c81d8',1,'linalg_immutable::svd_results::s()'],['../structlinalg__immutable_1_1svd__results__cmplx.html#a66544dafaacf2b5465e6b1c55d804fff',1,'linalg_immutable::svd_results_cmplx::s()']]]
+  ['values_0',['values',['../structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5',1,'linalg::csr_matrix::values'],['../structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75',1,'linalg::msr_matrix::values']]]
 ];
diff --git a/docs/html/sparskit_8f90_source.html b/docs/html/sparskit_8f90_source.html
new file mode 100644
index 00000000..70f56d61
--- /dev/null
+++ b/docs/html/sparskit_8f90_source.html
@@ -0,0 +1,327 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: D:/Code/linalg/src/sparskit.f90 Source File</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() { codefold.init(0); });
+/* @license-end */
+</script>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('sparskit_8f90_source.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">sparskit.f90</div></div>
+</div><!--header-->
+<div class="contents">
+<div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span> </div>
+<div class="line"><a id="l00003" name="l00003"></a><span class="lineno"><a class="line" href="namespacesparskit.html">    3</a></span><span class="keyword">module</span> <a class="code hl_namespace" href="namespacesparskit.html">sparskit</a></div>
+<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span>    <span class="keywordtype">implicit none</span></div>
+<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span> </div>
+<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span>    <span class="comment">! BLASSM.F</span></div>
+<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span>    <span class="keyword">interface</span></div>
+<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span> </div>
+<div class="foldopen" id="foldopen00031" data-start="" data-end="">
+<div class="line"><a id="l00031" name="l00031"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1amub.html">   31</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1amub.html">amub</a>(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, &amp;</div>
+<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span>            nzmax, iw, ierr)</div>
+<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: nrow, ncol, job, nzmax</div>
+<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: ja(*), ia(nrow+1), jb(*), ib(*)</div>
+<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jc(*), ic(*), iw(ncol), ierr</div>
+<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*), b(*)</div>
+<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: c(*)</div>
+</div>
+<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span> </div>
+<div class="foldopen" id="foldopen00063" data-start="" data-end="">
+<div class="line"><a id="l00063" name="l00063"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1aplb.html">   63</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1aplb.html">aplb</a>(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, &amp;</div>
+<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>            nzmax, iw, ierr)</div>
+<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: nrow, ncol, job, nzmax</div>
+<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: ja(*), ia(nrow+1), jb(*), ib(nrow+1)</div>
+<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*), b(*)</div>
+<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: c(*)</div>
+<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jc(*), ic(nrow+1), iw(ncol), ierr</div>
+</div>
+<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span> </div>
+<div class="foldopen" id="foldopen00096" data-start="" data-end="">
+<div class="line"><a id="l00096" name="l00096"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1aplsb.html">   96</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1aplsb.html">aplsb</a>(nrow, ncol, a, ja, ia, s, b, jb, ib, c, jc, ic, &amp;</div>
+<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span>            nzmax, iw, ierr)</div>
+<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: nrow, ncol, nzmax</div>
+<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: ja(*), ia(nrow+1), jb(*), ib(nrow+1)</div>
+<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: ierr</div>
+<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jc(*), ic(nrow+1), iw(ncol)</div>
+<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: s</div>
+<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*), b(*)</div>
+<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: c(*)</div>
+</div>
+<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span> </div>
+<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span>    <span class="comment">! FORMATS.F</span></div>
+<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>    <span class="keyword">interface</span></div>
+<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span> </div>
+<div class="foldopen" id="foldopen00124" data-start="" data-end="">
+<div class="line"><a id="l00124" name="l00124"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1csrcsc2.html">  124</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1csrcsc2.html">csrcsc2</a>(n, n2, job, ipos, a, ja, ia, a0, ja0, ia0)</div>
+<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, n2, job, ipos, ja(*), ia(n+1)</div>
+<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: ja0(*), ia0(n2+1)</div>
+<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*)</div>
+<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: a0(*)</div>
+</div>
+<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span> </div>
+<div class="foldopen" id="foldopen00150" data-start="" data-end="">
+<div class="line"><a id="l00150" name="l00150"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1bndcsr.html">  150</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1bndcsr.html">bndcsr</a>(n, abd, nabd, lowd, ml, mu, a, ja, ia, len, ierr)</div>
+<div class="line"><a id="l00151" name="l00151"></a><span class="lineno">  151</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00152" name="l00152"></a><span class="lineno">  152</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, nabd, lowd, ml, mu, len</div>
+<div class="line"><a id="l00153" name="l00153"></a><span class="lineno">  153</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: abd(nabd,*)</div>
+<div class="line"><a id="l00154" name="l00154"></a><span class="lineno">  154</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: a(*)</div>
+<div class="line"><a id="l00155" name="l00155"></a><span class="lineno">  155</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: ia(n+1), ja(*), ierr</div>
+</div>
+<div class="line"><a id="l00156" name="l00156"></a><span class="lineno">  156</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00157" name="l00157"></a><span class="lineno">  157</span> </div>
+<div class="foldopen" id="foldopen00170" data-start="" data-end="">
+<div class="line"><a id="l00170" name="l00170"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1csrmsr.html">  170</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1csrmsr.html">csrmsr</a>(n, a, ja, ia, ao, jao, wk, iwk)</div>
+<div class="line"><a id="l00171" name="l00171"></a><span class="lineno">  171</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00172" name="l00172"></a><span class="lineno">  172</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n</div>
+<div class="line"><a id="l00173" name="l00173"></a><span class="lineno">  173</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span> :: ja(*), ia(n+1)</div>
+<div class="line"><a id="l00174" name="l00174"></a><span class="lineno">  174</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jao(*), iwk(n+1)</div>
+<div class="line"><a id="l00175" name="l00175"></a><span class="lineno">  175</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(inout)</span> :: a(*)</div>
+<div class="line"><a id="l00176" name="l00176"></a><span class="lineno">  176</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: ao(*), wk(n)</div>
+</div>
+<div class="line"><a id="l00177" name="l00177"></a><span class="lineno">  177</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00178" name="l00178"></a><span class="lineno">  178</span> </div>
+<div class="foldopen" id="foldopen00191" data-start="" data-end="">
+<div class="line"><a id="l00191" name="l00191"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1msrcsr.html">  191</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1msrcsr.html">msrcsr</a>(n, a, ja, ao, jao, iao, wk, iwk)</div>
+<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, ja(*)</div>
+<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jao(*), iao(n+1), iwk(n+1)</div>
+<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*)</div>
+<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: ao(*), wk(n)</div>
+</div>
+<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span> </div>
+<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    <span class="comment">! UNARY.F</span></div>
+<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span>    <span class="keyword">interface</span></div>
+<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span> </div>
+<div class="foldopen" id="foldopen00214" data-start="" data-end="">
+<div class="line"><a id="l00214" name="l00214"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1getelm.html">  214</a></span>        <span class="keyword">function </span><a class="code hl_interface" href="interfacesparskit_1_1getelm.html">getelm</a>(i, j, a, ja, ia, iadd, sorted) <span class="keyword">result</span>(rst)</div>
+<div class="line"><a id="l00215" name="l00215"></a><span class="lineno">  215</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00216" name="l00216"></a><span class="lineno">  216</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: i, j, ia(*), ja(*)</div>
+<div class="line"><a id="l00217" name="l00217"></a><span class="lineno">  217</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*)</div>
+<div class="line"><a id="l00218" name="l00218"></a><span class="lineno">  218</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: iadd</div>
+<div class="line"><a id="l00219" name="l00219"></a><span class="lineno">  219</span>            <span class="keywordtype">logical</span>, <span class="keywordtype">intent(in)</span> :: sorted</div>
+<div class="line"><a id="l00220" name="l00220"></a><span class="lineno">  220</span><span class="keywordtype">            real</span>(real64) :: rst</div>
+</div>
+<div class="line"><a id="l00221" name="l00221"></a><span class="lineno">  221</span>        <span class="keyword">end function</span></div>
+<div class="line"><a id="l00222" name="l00222"></a><span class="lineno">  222</span> </div>
+<div class="foldopen" id="foldopen00234" data-start="" data-end="">
+<div class="line"><a id="l00234" name="l00234"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1getdia.html">  234</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1getdia.html">getdia</a>(nrow, ncol, job, a, ja, ia, len, diag, idiag, ioff)</div>
+<div class="line"><a id="l00235" name="l00235"></a><span class="lineno">  235</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00236" name="l00236"></a><span class="lineno">  236</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: nrow, ncol, job, ja(*), ia(*), ioff</div>
+<div class="line"><a id="l00237" name="l00237"></a><span class="lineno">  237</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: len, idiag(*)</div>
+<div class="line"><a id="l00238" name="l00238"></a><span class="lineno">  238</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*)</div>
+<div class="line"><a id="l00239" name="l00239"></a><span class="lineno">  239</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: diag(*)</div>
+</div>
+<div class="line"><a id="l00240" name="l00240"></a><span class="lineno">  240</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00241" name="l00241"></a><span class="lineno">  241</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l00242" name="l00242"></a><span class="lineno">  242</span> </div>
+<div class="line"><a id="l00243" name="l00243"></a><span class="lineno">  243</span>    <span class="comment">! ILUT.F</span></div>
+<div class="line"><a id="l00244" name="l00244"></a><span class="lineno">  244</span>    <span class="keyword">interface</span></div>
+<div class="line"><a id="l00245" name="l00245"></a><span class="lineno">  245</span> </div>
+<div class="foldopen" id="foldopen00277" data-start="" data-end="">
+<div class="line"><a id="l00277" name="l00277"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1ilut.html">  277</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1ilut.html">ilut</a>(n, a, ja, ia, lfil, droptol, alu, jlu, ju, iwk, w, &amp;</div>
+<div class="line"><a id="l00278" name="l00278"></a><span class="lineno">  278</span>            jw, ierr)</div>
+<div class="line"><a id="l00279" name="l00279"></a><span class="lineno">  279</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00280" name="l00280"></a><span class="lineno">  280</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, ja(*), ia(n+1), lfil, iwk</div>
+<div class="line"><a id="l00281" name="l00281"></a><span class="lineno">  281</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jlu(*), ju(n), jw(2*n), ierr</div>
+<div class="line"><a id="l00282" name="l00282"></a><span class="lineno">  282</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*), droptol</div>
+<div class="line"><a id="l00283" name="l00283"></a><span class="lineno">  283</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: alu(*), w(n+1)</div>
+</div>
+<div class="line"><a id="l00284" name="l00284"></a><span class="lineno">  284</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00285" name="l00285"></a><span class="lineno">  285</span> </div>
+<div class="foldopen" id="foldopen00343" data-start="" data-end="">
+<div class="line"><a id="l00343" name="l00343"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1ilutp.html">  343</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1ilutp.html">ilutp</a>(n, a, ja, ia, lfil, droptol, permtol, mbloc, alu, &amp;</div>
+<div class="line"><a id="l00344" name="l00344"></a><span class="lineno">  344</span>            jlu, ju, iwk, w, jw, iperm, ierr)</div>
+<div class="line"><a id="l00345" name="l00345"></a><span class="lineno">  345</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00346" name="l00346"></a><span class="lineno">  346</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, lfil, iwk, mbloc</div>
+<div class="line"><a id="l00347" name="l00347"></a><span class="lineno">  347</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span> :: ja(*), ia(n+1)</div>
+<div class="line"><a id="l00348" name="l00348"></a><span class="lineno">  348</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jlu(*), ju(n), jw(2*n), &amp;</div>
+<div class="line"><a id="l00349" name="l00349"></a><span class="lineno">  349</span>                iperm(2*n), ierr</div>
+<div class="line"><a id="l00350" name="l00350"></a><span class="lineno">  350</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: droptol, permtol</div>
+<div class="line"><a id="l00351" name="l00351"></a><span class="lineno">  351</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(inout)</span> :: a(*)</div>
+<div class="line"><a id="l00352" name="l00352"></a><span class="lineno">  352</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: alu(*), w(n+1)</div>
+</div>
+<div class="line"><a id="l00353" name="l00353"></a><span class="lineno">  353</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00354" name="l00354"></a><span class="lineno">  354</span> </div>
+<div class="foldopen" id="foldopen00386" data-start="" data-end="">
+<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1ilud.html">  386</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1ilud.html">ilud</a>(n, a, ja, ia, alph, tol, alu, jlu, ju, iwk, w, jw, ierr)</div>
+<div class="line"><a id="l00387" name="l00387"></a><span class="lineno">  387</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00388" name="l00388"></a><span class="lineno">  388</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, iwk, ja(*), ia(n+1)</div>
+<div class="line"><a id="l00389" name="l00389"></a><span class="lineno">  389</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jlu(*), ju(n), jw(2*n), ierr</div>
+<div class="line"><a id="l00390" name="l00390"></a><span class="lineno">  390</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: a(*), alph, tol</div>
+<div class="line"><a id="l00391" name="l00391"></a><span class="lineno">  391</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: alu(*), w(2*n)</div>
+</div>
+<div class="line"><a id="l00392" name="l00392"></a><span class="lineno">  392</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00393" name="l00393"></a><span class="lineno">  393</span> </div>
+<div class="foldopen" id="foldopen00433" data-start="" data-end="">
+<div class="line"><a id="l00433" name="l00433"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1iludp.html">  433</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1iludp.html">iludp</a>(n, a, ja, ia, alph, droptol, permtol, mbloc, alu, &amp;</div>
+<div class="line"><a id="l00434" name="l00434"></a><span class="lineno">  434</span>            jlu, ju, iwk, w, jw, iperm, ierr)</div>
+<div class="line"><a id="l00435" name="l00435"></a><span class="lineno">  435</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00436" name="l00436"></a><span class="lineno">  436</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, iwk, mbloc</div>
+<div class="line"><a id="l00437" name="l00437"></a><span class="lineno">  437</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(inout)</span> :: ja(*), ia(n+1)</div>
+<div class="line"><a id="l00438" name="l00438"></a><span class="lineno">  438</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: jlu(*), ju(n), jw(2*n), iperm(2*n), &amp;</div>
+<div class="line"><a id="l00439" name="l00439"></a><span class="lineno">  439</span>                ierr</div>
+<div class="line"><a id="l00440" name="l00440"></a><span class="lineno">  440</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: alph, droptol, permtol</div>
+<div class="line"><a id="l00441" name="l00441"></a><span class="lineno">  441</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(inout)</span> :: a(*)</div>
+<div class="line"><a id="l00442" name="l00442"></a><span class="lineno">  442</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: alu(*), w(2*n)</div>
+</div>
+<div class="line"><a id="l00443" name="l00443"></a><span class="lineno">  443</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00444" name="l00444"></a><span class="lineno">  444</span> </div>
+<div class="foldopen" id="foldopen00474" data-start="" data-end="">
+<div class="line"><a id="l00474" name="l00474"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1pgmres.html">  474</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1pgmres.html">pgmres</a>(n, im, rhs, sol, vv, eps, maxits, iout, aa, ja, ia, &amp;</div>
+<div class="line"><a id="l00475" name="l00475"></a><span class="lineno">  475</span>            alu, jlu, ju, ierr)</div>
+<div class="line"><a id="l00476" name="l00476"></a><span class="lineno">  476</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00477" name="l00477"></a><span class="lineno">  477</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, im, maxits, iout, ja(*), ia(n+1), &amp;</div>
+<div class="line"><a id="l00478" name="l00478"></a><span class="lineno">  478</span>                jlu(*), ju(n)</div>
+<div class="line"><a id="l00479" name="l00479"></a><span class="lineno">  479</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(out)</span> :: ierr</div>
+<div class="line"><a id="l00480" name="l00480"></a><span class="lineno">  480</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: aa(*), eps, alu(*)</div>
+<div class="line"><a id="l00481" name="l00481"></a><span class="lineno">  481</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(inout)</span> :: rhs(n), sol(n)</div>
+<div class="line"><a id="l00482" name="l00482"></a><span class="lineno">  482</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: vv(n,*)</div>
+</div>
+<div class="line"><a id="l00483" name="l00483"></a><span class="lineno">  483</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00484" name="l00484"></a><span class="lineno">  484</span> </div>
+<div class="foldopen" id="foldopen00493" data-start="" data-end="">
+<div class="line"><a id="l00493" name="l00493"></a><span class="lineno"><a class="line" href="interfacesparskit_1_1lusol.html">  493</a></span>        <span class="keyword">subroutine </span><a class="code hl_interface" href="interfacesparskit_1_1lusol.html">lusol</a>(n, y, x, alu, jlu, ju)</div>
+<div class="line"><a id="l00494" name="l00494"></a><span class="lineno">  494</span>            <span class="keywordtype">use </span>iso_fortran_env, <span class="keywordtype">only</span> : int32, real64</div>
+<div class="line"><a id="l00495" name="l00495"></a><span class="lineno">  495</span>            <span class="keywordtype">integer(int32)</span>, <span class="keywordtype">intent(in)</span> :: n, jlu(*), ju(*)</div>
+<div class="line"><a id="l00496" name="l00496"></a><span class="lineno">  496</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(in)</span> :: y(n), alu(*)</div>
+<div class="line"><a id="l00497" name="l00497"></a><span class="lineno">  497</span><span class="keywordtype">            real</span>(real64), <span class="keywordtype">intent(out)</span> :: x(n)</div>
+</div>
+<div class="line"><a id="l00498" name="l00498"></a><span class="lineno">  498</span>        <span class="keyword">end subroutine</span></div>
+<div class="line"><a id="l00499" name="l00499"></a><span class="lineno">  499</span>    <span class="keyword">end interface</span></div>
+<div class="line"><a id="l00500" name="l00500"></a><span class="lineno">  500</span><span class="keyword">end module</span></div>
+<div class="ttc" id="ainterfacesparskit_1_1amub_html"><div class="ttname"><a href="interfacesparskit_1_1amub.html">sparskit::amub</a></div><div class="ttdoc">Computes the matrix product: C = A * B.</div><div class="ttdef"><b>Definition</b> <a href="#l00031">sparskit.f90:31</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1aplb_html"><div class="ttname"><a href="interfacesparskit_1_1aplb.html">sparskit::aplb</a></div><div class="ttdoc">Computes the matrix sum: C = A + B, where the matrices are given in CSR format.</div><div class="ttdef"><b>Definition</b> <a href="#l00063">sparskit.f90:63</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1aplsb_html"><div class="ttname"><a href="interfacesparskit_1_1aplsb.html">sparskit::aplsb</a></div><div class="ttdoc">Computes the matrix sum: C = A + s * B, where the matrices are given in CSR format.</div><div class="ttdef"><b>Definition</b> <a href="#l00096">sparskit.f90:96</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1bndcsr_html"><div class="ttname"><a href="interfacesparskit_1_1bndcsr.html">sparskit::bndcsr</a></div><div class="ttdoc">Converts the LINPACK, BLAS, LAPACK banded matrix format into a CSR format.</div><div class="ttdef"><b>Definition</b> <a href="#l00150">sparskit.f90:150</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1csrcsc2_html"><div class="ttname"><a href="interfacesparskit_1_1csrcsc2.html">sparskit::csrcsc2</a></div><div class="ttdoc">Converts a CSR matrix into a CSC matrix (transposition).</div><div class="ttdef"><b>Definition</b> <a href="#l00124">sparskit.f90:124</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1csrmsr_html"><div class="ttname"><a href="interfacesparskit_1_1csrmsr.html">sparskit::csrmsr</a></div><div class="ttdoc">Converts a CSR matrix to an MSR matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00170">sparskit.f90:170</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1getdia_html"><div class="ttname"><a href="interfacesparskit_1_1getdia.html">sparskit::getdia</a></div><div class="ttdoc">Extracts the diagonal from a matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00234">sparskit.f90:234</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1getelm_html"><div class="ttname"><a href="interfacesparskit_1_1getelm.html">sparskit::getelm</a></div><div class="ttdoc">Gets element A(i,j) of matrix A for any pair (i,j).</div><div class="ttdef"><b>Definition</b> <a href="#l00214">sparskit.f90:214</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1ilud_html"><div class="ttname"><a href="interfacesparskit_1_1ilud.html">sparskit::ilud</a></div><div class="ttdoc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping stra...</div><div class="ttdef"><b>Definition</b> <a href="#l00386">sparskit.f90:386</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1iludp_html"><div class="ttname"><a href="interfacesparskit_1_1iludp.html">sparskit::iludp</a></div><div class="ttdoc">Computes the incomplete LU factorization of a sparse matrix in CSR format with standard dropping stra...</div><div class="ttdef"><b>Definition</b> <a href="#l00433">sparskit.f90:433</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1ilut_html"><div class="ttname"><a href="interfacesparskit_1_1ilut.html">sparskit::ilut</a></div><div class="ttdoc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mec...</div><div class="ttdef"><b>Definition</b> <a href="#l00277">sparskit.f90:277</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1ilutp_html"><div class="ttname"><a href="interfacesparskit_1_1ilutp.html">sparskit::ilutp</a></div><div class="ttdoc">Computes the incomplete LU factorization of a sparse matrix in CSR format using a dual truncation mec...</div><div class="ttdef"><b>Definition</b> <a href="#l00343">sparskit.f90:343</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1lusol_html"><div class="ttname"><a href="interfacesparskit_1_1lusol.html">sparskit::lusol</a></div><div class="ttdoc">Solves the LU-factored system (LU) x = y.</div><div class="ttdef"><b>Definition</b> <a href="#l00493">sparskit.f90:493</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1msrcsr_html"><div class="ttname"><a href="interfacesparskit_1_1msrcsr.html">sparskit::msrcsr</a></div><div class="ttdoc">Converts and MSR matrix to a CSR matrix.</div><div class="ttdef"><b>Definition</b> <a href="#l00191">sparskit.f90:191</a></div></div>
+<div class="ttc" id="ainterfacesparskit_1_1pgmres_html"><div class="ttname"><a href="interfacesparskit_1_1pgmres.html">sparskit::pgmres</a></div><div class="ttdoc">An ILUT preconditioned GMRES algorithm. This routine utilizes the L and U matrices generated by the I...</div><div class="ttdef"><b>Definition</b> <a href="#l00474">sparskit.f90:474</a></div></div>
+<div class="ttc" id="anamespacesparskit_html"><div class="ttname"><a href="namespacesparskit.html">sparskit</a></div><div class="ttdoc">An interface to the SPARSKIT library available at https://www-users.cse.umn.edu/~saad/software/SPARSK...</div><div class="ttdef"><b>Definition</b> <a href="#l00003">sparskit.f90:3</a></div></div>
+</div><!-- fragment --></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="dir_68267d1309a1af8e8297ef4c3efbcdba.html">src</a></li><li class="navelem"><b>sparskit.f90</b></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/structlinalg_1_1csr__matrix-members.html b/docs/html/structlinalg_1_1csr__matrix-members.html
new file mode 100644
index 00000000..221a8ecf
--- /dev/null
+++ b/docs/html/structlinalg_1_1csr__matrix-members.html
@@ -0,0 +1,121 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('structlinalg_1_1csr__matrix.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::csr_matrix Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a>, including all inherited members.</p>
+<table class="directory">
+  <tr class="even"><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307">column_indices</a></td><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a></td><td class="entry"></td></tr>
+  <tr class="odd"><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf">get</a>csr_get_element</td><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a></td><td class="entry"></td></tr>
+  <tr class="even"><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de">row_indices</a></td><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a></td><td class="entry"></td></tr>
+  <tr class="odd"><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5">values</a></td><td class="entry"><a class="el" href="structlinalg_1_1csr__matrix.html">linalg::csr_matrix</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/structlinalg_1_1csr__matrix.html b/docs/html/structlinalg_1_1csr__matrix.html
new file mode 100644
index 00000000..f3f0d62d
--- /dev/null
+++ b/docs/html/structlinalg_1_1csr__matrix.html
@@ -0,0 +1,222 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::csr_matrix Type Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('structlinalg_1_1csr__matrix.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-methods">Public Member Functions</a> &#124;
+<a href="#pub-attribs">Public Attributes</a> &#124;
+<a href="structlinalg_1_1csr__matrix-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::csr_matrix Type Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>A sparse matrix stored in compressed sparse row (CSR) format.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-methods" name="pub-methods"></a>
+Public Member Functions</h2></td></tr>
+<tr class="memitem:ab2eeae025874561c37412f1ecd8bd2cf" id="r_ab2eeae025874561c37412f1ecd8bd2cf"><td class="memItemLeft" align="right" valign="top">procedure, public&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#ab2eeae025874561c37412f1ecd8bd2cf">get</a> csr_get_element</td></tr>
+<tr class="memdesc:ab2eeae025874561c37412f1ecd8bd2cf"><td class="mdescLeft">&#160;</td><td class="mdescRight">Gets the requested element from the matrix.  <br /></td></tr>
+<tr class="separator:ab2eeae025874561c37412f1ecd8bd2cf"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table><table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-attribs" name="pub-attribs"></a>
+Public Attributes</h2></td></tr>
+<tr class="memitem:a1a2f379ce437fed824e6eca3627bd1de" id="r_a1a2f379ce437fed824e6eca3627bd1de"><td class="memItemLeft" align="right" valign="top">integer(int32), dimension(:), allocatable&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a1a2f379ce437fed824e6eca3627bd1de">row_indices</a></td></tr>
+<tr class="memdesc:a1a2f379ce437fed824e6eca3627bd1de"><td class="mdescLeft">&#160;</td><td class="mdescRight">An M+1 element array containing the indices in V an JA at which the requested row starts.  <br /></td></tr>
+<tr class="separator:a1a2f379ce437fed824e6eca3627bd1de"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:acb77b1101f32cefe10e1d15fdd87d307" id="r_acb77b1101f32cefe10e1d15fdd87d307"><td class="memItemLeft" align="right" valign="top">integer(int32), dimension(:), allocatable&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#acb77b1101f32cefe10e1d15fdd87d307">column_indices</a></td></tr>
+<tr class="memdesc:acb77b1101f32cefe10e1d15fdd87d307"><td class="mdescLeft">&#160;</td><td class="mdescRight">An NNZ-element array, where NNZ is the number of non-zero values, containing the column indices of each value.  <br /></td></tr>
+<tr class="separator:acb77b1101f32cefe10e1d15fdd87d307"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:ad83ad0af16fdc69c396cce5925471bd5" id="r_ad83ad0af16fdc69c396cce5925471bd5"><td class="memItemLeft" align="right" valign="top">real(real64), dimension(:), allocatable&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#ad83ad0af16fdc69c396cce5925471bd5">values</a></td></tr>
+<tr class="memdesc:ad83ad0af16fdc69c396cce5925471bd5"><td class="mdescLeft">&#160;</td><td class="mdescRight">An NNZ-element array, where NNZ is the number of non-zero values, containing the non-zero values of the matrix.  <br /></td></tr>
+<tr class="separator:ad83ad0af16fdc69c396cce5925471bd5"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>A sparse matrix stored in compressed sparse row (CSR) format. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00232">232</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><h2 class="groupheader">Member Function/Subroutine Documentation</h2>
+<a id="ab2eeae025874561c37412f1ecd8bd2cf" name="ab2eeae025874561c37412f1ecd8bd2cf"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#ab2eeae025874561c37412f1ecd8bd2cf">&#9670;&#160;</a></span>get()</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">procedure, public linalg::csr_matrix::get</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>Gets the requested element from the matrix. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00246">246</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<h2 class="groupheader">Member Data Documentation</h2>
+<a id="acb77b1101f32cefe10e1d15fdd87d307" name="acb77b1101f32cefe10e1d15fdd87d307"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#acb77b1101f32cefe10e1d15fdd87d307">&#9670;&#160;</a></span>column_indices</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">integer(int32), dimension(:), allocatable linalg::csr_matrix::column_indices</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>An NNZ-element array, where NNZ is the number of non-zero values, containing the column indices of each value. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00238">238</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<a id="a1a2f379ce437fed824e6eca3627bd1de" name="a1a2f379ce437fed824e6eca3627bd1de"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a1a2f379ce437fed824e6eca3627bd1de">&#9670;&#160;</a></span>row_indices</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">integer(int32), dimension(:), allocatable linalg::csr_matrix::row_indices</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>An M+1 element array containing the indices in V an JA at which the requested row starts. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00235">235</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<a id="ad83ad0af16fdc69c396cce5925471bd5" name="ad83ad0af16fdc69c396cce5925471bd5"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#ad83ad0af16fdc69c396cce5925471bd5">&#9670;&#160;</a></span>values</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">real(real64), dimension(:), allocatable linalg::csr_matrix::values</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>An NNZ-element array, where NNZ is the number of non-zero values, containing the non-zero values of the matrix. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00241">241</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this type was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="structlinalg_1_1csr__matrix.html">csr_matrix</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/structlinalg_1_1csr__matrix.js b/docs/html/structlinalg_1_1csr__matrix.js
new file mode 100644
index 00000000..13f0066b
--- /dev/null
+++ b/docs/html/structlinalg_1_1csr__matrix.js
@@ -0,0 +1,7 @@
+var structlinalg_1_1csr__matrix =
+[
+    [ "get", "structlinalg_1_1csr__matrix.html#ab2eeae025874561c37412f1ecd8bd2cf", null ],
+    [ "column_indices", "structlinalg_1_1csr__matrix.html#acb77b1101f32cefe10e1d15fdd87d307", null ],
+    [ "row_indices", "structlinalg_1_1csr__matrix.html#a1a2f379ce437fed824e6eca3627bd1de", null ],
+    [ "values", "structlinalg_1_1csr__matrix.html#ad83ad0af16fdc69c396cce5925471bd5", null ]
+];
\ No newline at end of file
diff --git a/docs/html/structlinalg_1_1msr__matrix-members.html b/docs/html/structlinalg_1_1msr__matrix-members.html
new file mode 100644
index 00000000..4d766f0f
--- /dev/null
+++ b/docs/html/structlinalg_1_1msr__matrix-members.html
@@ -0,0 +1,119 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: Member List</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('structlinalg_1_1msr__matrix.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="headertitle"><div class="title">linalg::msr_matrix Member List</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>This is the complete list of members for <a class="el" href="structlinalg_1_1msr__matrix.html">linalg::msr_matrix</a>, including all inherited members.</p>
+<table class="directory">
+  <tr class="even"><td class="entry"><a class="el" href="structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a">indices</a></td><td class="entry"><a class="el" href="structlinalg_1_1msr__matrix.html">linalg::msr_matrix</a></td><td class="entry"></td></tr>
+  <tr class="odd"><td class="entry"><a class="el" href="structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75">values</a></td><td class="entry"><a class="el" href="structlinalg_1_1msr__matrix.html">linalg::msr_matrix</a></td><td class="entry"></td></tr>
+</table></div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/structlinalg_1_1msr__matrix.html b/docs/html/structlinalg_1_1msr__matrix.html
new file mode 100644
index 00000000..753c075e
--- /dev/null
+++ b/docs/html/structlinalg_1_1msr__matrix.html
@@ -0,0 +1,175 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
+<head>
+<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
+<meta http-equiv="X-UA-Compatible" content="IE=11"/>
+<meta name="generator" content="Doxygen 1.10.0"/>
+<meta name="viewport" content="width=device-width, initial-scale=1"/>
+<title>linalg: linalg::msr_matrix Type Reference</title>
+<link href="tabs.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="jquery.js"></script>
+<script type="text/javascript" src="dynsections.js"></script>
+<script type="text/javascript" src="clipboard.js"></script>
+<link href="navtree.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="resize.js"></script>
+<script type="text/javascript" src="navtreedata.js"></script>
+<script type="text/javascript" src="navtree.js"></script>
+<script type="text/javascript" src="cookie.js"></script>
+<link href="search/search.css" rel="stylesheet" type="text/css"/>
+<script type="text/javascript" src="search/searchdata.js"></script>
+<script type="text/javascript" src="search/search.js"></script>
+<script type="text/x-mathjax-config">
+MathJax.Hub.Config({
+  extensions: ["tex2jax.js"],
+  jax: ["input/TeX","output/HTML-CSS"],
+});
+</script>
+<script type="text/javascript" async="async" src="http://cdn.mathjax.org/mathjax/latest/MathJax.js"></script>
+<link href="doxygen.css" rel="stylesheet" type="text/css" />
+</head>
+<body>
+<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
+<div id="titlearea">
+<table cellspacing="0" cellpadding="0">
+ <tbody>
+ <tr id="projectrow">
+  <td id="projectalign">
+   <div id="projectname">linalg<span id="projectnumber">&#160;1.8.0</span>
+   </div>
+   <div id="projectbrief">A linear algebra library that provides a user-friendly interface to several BLAS and LAPACK routines.</div>
+  </td>
+ </tr>
+ </tbody>
+</table>
+</div>
+<!-- end header part -->
+<!-- Generated by Doxygen 1.10.0 -->
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+var searchBox = new SearchBox("searchBox", "search/",'.html');
+/* @license-end */
+</script>
+<script type="text/javascript" src="menudata.js"></script>
+<script type="text/javascript" src="menu.js"></script>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function() {
+  initMenu('',true,false,'search.php','Search');
+  $(function() { init_search(); });
+});
+/* @license-end */
+</script>
+<div id="main-nav"></div>
+</div><!-- top -->
+<div id="side-nav" class="ui-resizable side-nav-resizable">
+  <div id="nav-tree">
+    <div id="nav-tree-contents">
+      <div id="nav-sync" class="sync"></div>
+    </div>
+  </div>
+  <div id="splitbar" style="-moz-user-select:none;" 
+       class="ui-resizable-handle">
+  </div>
+</div>
+<script type="text/javascript">
+/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
+$(function(){initNavTree('structlinalg_1_1msr__matrix.html',''); initResizable(); });
+/* @license-end */
+</script>
+<div id="doc-content">
+<!-- window showing the filter options -->
+<div id="MSearchSelectWindow"
+     onmouseover="return searchBox.OnSearchSelectShow()"
+     onmouseout="return searchBox.OnSearchSelectHide()"
+     onkeydown="return searchBox.OnSearchSelectKey(event)">
+</div>
+
+<!-- iframe showing the search results (closed by default) -->
+<div id="MSearchResultsWindow">
+<div id="MSearchResults">
+<div class="SRPage">
+<div id="SRIndex">
+<div id="SRResults"></div>
+<div class="SRStatus" id="Loading">Loading...</div>
+<div class="SRStatus" id="Searching">Searching...</div>
+<div class="SRStatus" id="NoMatches">No Matches</div>
+</div>
+</div>
+</div>
+</div>
+
+<div class="header">
+  <div class="summary">
+<a href="#pub-attribs">Public Attributes</a> &#124;
+<a href="structlinalg_1_1msr__matrix-members.html">List of all members</a>  </div>
+  <div class="headertitle"><div class="title">linalg::msr_matrix Type Reference</div></div>
+</div><!--header-->
+<div class="contents">
+
+<p>A sparse matrix stored in modified sparse row format. This format is convenient for situations where the diagonal is fully populated.  
+ <a href="#details">More...</a></p>
+<table class="memberdecls">
+<tr class="heading"><td colspan="2"><h2 class="groupheader"><a id="pub-attribs" name="pub-attribs"></a>
+Public Attributes</h2></td></tr>
+<tr class="memitem:a123d2cb513b31589cc6bafb67c63a62a" id="r_a123d2cb513b31589cc6bafb67c63a62a"><td class="memItemLeft" align="right" valign="top">integer(int32), dimension(:), allocatable&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a123d2cb513b31589cc6bafb67c63a62a">indices</a></td></tr>
+<tr class="memdesc:a123d2cb513b31589cc6bafb67c63a62a"><td class="mdescLeft">&#160;</td><td class="mdescRight">An NNZ-element array containing the index information.  <br /></td></tr>
+<tr class="separator:a123d2cb513b31589cc6bafb67c63a62a"><td class="memSeparator" colspan="2">&#160;</td></tr>
+<tr class="memitem:a8e692d3479f3562935e60b771ec91e75" id="r_a8e692d3479f3562935e60b771ec91e75"><td class="memItemLeft" align="right" valign="top">real(real64), dimension(:), allocatable&#160;</td><td class="memItemRight" valign="bottom"><a class="el" href="#a8e692d3479f3562935e60b771ec91e75">values</a></td></tr>
+<tr class="memdesc:a8e692d3479f3562935e60b771ec91e75"><td class="mdescLeft">&#160;</td><td class="mdescRight">An NNZ-element array containing the non-zero values from the matrix. The first MIN(M,N) elements contain the diagonal.  <br /></td></tr>
+<tr class="separator:a8e692d3479f3562935e60b771ec91e75"><td class="memSeparator" colspan="2">&#160;</td></tr>
+</table>
+<a name="details" id="details"></a><h2 class="groupheader">Detailed Description</h2>
+<div class="textblock"><p>A sparse matrix stored in modified sparse row format. This format is convenient for situations where the diagonal is fully populated. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00252">252</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+</div><h2 class="groupheader">Member Data Documentation</h2>
+<a id="a123d2cb513b31589cc6bafb67c63a62a" name="a123d2cb513b31589cc6bafb67c63a62a"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a123d2cb513b31589cc6bafb67c63a62a">&#9670;&#160;</a></span>indices</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">integer(int32), dimension(:), allocatable linalg::msr_matrix::indices</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>An NNZ-element array containing the index information. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00254">254</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<a id="a8e692d3479f3562935e60b771ec91e75" name="a8e692d3479f3562935e60b771ec91e75"></a>
+<h2 class="memtitle"><span class="permalink"><a href="#a8e692d3479f3562935e60b771ec91e75">&#9670;&#160;</a></span>values</h2>
+
+<div class="memitem">
+<div class="memproto">
+      <table class="memname">
+        <tr>
+          <td class="memname">real(real64), dimension(:), allocatable linalg::msr_matrix::values</td>
+        </tr>
+      </table>
+</div><div class="memdoc">
+
+<p>An NNZ-element array containing the non-zero values from the matrix. The first MIN(M,N) elements contain the diagonal. </p>
+
+<p class="definition">Definition at line <a class="el" href="linalg_8f90_source.html#l00257">257</a> of file <a class="el" href="linalg_8f90_source.html">linalg.f90</a>.</p>
+
+</div>
+</div>
+<hr/>The documentation for this type was generated from the following file:<ul>
+<li>D:/Code/linalg/src/<a class="el" href="linalg_8f90_source.html">linalg.f90</a></li>
+</ul>
+</div><!-- contents -->
+</div><!-- doc-content -->
+<!-- start footer part -->
+<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
+  <ul>
+    <li class="navelem"><a class="el" href="namespacelinalg.html">linalg</a></li><li class="navelem"><a class="el" href="structlinalg_1_1msr__matrix.html">msr_matrix</a></li>
+    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.10.0 </li>
+  </ul>
+</div>
+</body>
+</html>
diff --git a/docs/html/structlinalg_1_1msr__matrix.js b/docs/html/structlinalg_1_1msr__matrix.js
new file mode 100644
index 00000000..32900313
--- /dev/null
+++ b/docs/html/structlinalg_1_1msr__matrix.js
@@ -0,0 +1,5 @@
+var structlinalg_1_1msr__matrix =
+[
+    [ "indices", "structlinalg_1_1msr__matrix.html#a123d2cb513b31589cc6bafb67c63a62a", null ],
+    [ "values", "structlinalg_1_1msr__matrix.html#a8e692d3479f3562935e60b771ec91e75", null ]
+];
\ No newline at end of file