11/*
22 * This file contains code adapted from the ORCA quantum chemistry program.
3- * ORCA is developed by the group of Prof. Frank Neese at the Max-Planck-Institut für Kohlenforschung,
4- * Mülheim an der Ruhr and FAccTs GmbH. ORCA is licensed by the Max-Planck-Institut für Kohlenforschung and FAccTs GmbH.
3+ * ORCA is developed by the group of Prof. Frank Neese at the
4+ * Max-Planck-Institut für Kohlenforschung, Mülheim an der Ruhr and FAccTs GmbH.
5+ * ORCA is licensed by the Max-Planck-Institut für Kohlenforschung and FAccTs
6+ * GmbH.
57 *
6- * The inclusion of ORCA code in this file has been done with the explicit permission
7- * of the ORCA developers.
8+ * The inclusion of ORCA code in this file has been done with the explicit
9+ * permission of the ORCA developers.
810 *
9- * For reuse or licensing of this code, please contact the ORCA team at the Max-Planck-Institut
10- * für Kohlenforschung (https://orcaforum.kofo.mpg.de/) or FAccTs GmbH (https://www.faccts.de/).
11+ * For reuse or licensing of this code, please contact the ORCA team at the
12+ * Max-Planck-Institut für Kohlenforschung (https://orcaforum.kofo.mpg.de/) or
13+ * FAccTs GmbH (https://www.faccts.de/).
1114 */
1215#pragma once
1316
@@ -35,8 +38,8 @@ inline int BLAS_Add_Mat_x_Vec(
3538 bool Transpose,
3639 double alpha
3740) {
38- if (Transpose) {
39- if (A.cols == C.N && A.rows == V.N ) {
41+ if (Transpose) {
42+ if (A.cols == C.N && A.rows == V.N ) {
4043 cblas_dgemv (
4144 CblasRowMajor,
4245 CblasTrans,
@@ -54,7 +57,7 @@ inline int BLAS_Add_Mat_x_Vec(
5457 return EXIT_SUCCESS;
5558 };
5659 } else {
57- if (A.rows == C.N && A.cols == V.N ) {
60+ if (A.rows == C.N && A.cols == V.N ) {
5861 cblas_dgemv (
5962 CblasRowMajor,
6063 CblasNoTrans,
@@ -220,9 +223,9 @@ inline int BLAS_InvertMatrix(TMatrix<double> &a) {
220223 (lapack_int)a.cols ,
221224 ipiv
222225 );
223- if (info != 0 ) {
226+ if (info != 0 ) {
224227 delete[] ipiv;
225- return EXIT_FAILURE;
228+ return EXIT_FAILURE;
226229 }
227230
228231 // Inverse of an LU-factored general matrix
0 commit comments