ergo
|
00001 /* Ergo, version 3.2, a program for linear scaling electronic structure 00002 * calculations. 00003 * Copyright (C) 2012 Elias Rudberg, Emanuel H. Rubensson, and Pawel Salek. 00004 * 00005 * This program is free software: you can redistribute it and/or modify 00006 * it under the terms of the GNU General Public License as published by 00007 * the Free Software Foundation, either version 3 of the License, or 00008 * (at your option) any later version. 00009 * 00010 * This program is distributed in the hope that it will be useful, 00011 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00012 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00013 * GNU General Public License for more details. 00014 * 00015 * You should have received a copy of the GNU General Public License 00016 * along with this program. If not, see <http://www.gnu.org/licenses/>. 00017 * 00018 * Primary academic reference: 00019 * KohnâSham Density Functional Theory Electronic Structure Calculations 00020 * with Linearly Scaling Computational Time and Memory Usage, 00021 * Elias Rudberg, Emanuel H. Rubensson, and Pawel Salek, 00022 * J. Chem. Theory Comput. 7, 340 (2011), 00023 * <http://dx.doi.org/10.1021/ct100611z> 00024 * 00025 * For further information about Ergo, see <http://www.ergoscf.org>. 00026 */ 00027 00028 #include "realtype.h" 00029 00030 #ifdef __cplusplus 00031 #define EXTERN_C extern "C" 00032 #else 00033 #define EXTERN_C 00034 #endif 00035 00036 EXTERN_C void multiply2matrices(int n, ergo_real* A, ergo_real* B, ergo_real* AB); 00037 EXTERN_C void multiply2matricesSymm(int n, ergo_real* A, ergo_real* B, ergo_real* AB); 00038 EXTERN_C void multiply2matricesSymmResult(int n, ergo_real* A, ergo_real* B, ergo_real* AB); 00039 EXTERN_C void computeSquareOfSymmetricMatrix(int n, 00040 const ergo_real* Aa, 00041 const ergo_real* Ab, 00042 ergo_real* A2); 00043 EXTERN_C void multiply_matrices_general (int An1, int An2, int Bn1, int Bn2, const ergo_real* A, const ergo_real* B, ergo_real* AB); 00044 EXTERN_C void multiply_matrices_general_T_1(int An1, int An2, int Bn1, int Bn2, const ergo_real* A, const ergo_real* B, ergo_real* AB); 00045 EXTERN_C void multiply_matrices_general_T_2(int An1, int An2, int Bn1, int Bn2, const ergo_real* A, const ergo_real* B, ergo_real* AB); 00046 EXTERN_C void multiply3matrices(int n, ergo_real* A, ergo_real* B, ergo_real* C, ergo_real* ABC); 00047