00001 /* Ergo, version 3.7, a program for linear scaling electronic structure 00002 * calculations. 00003 * Copyright (C) 2018 Elias Rudberg, Emanuel H. Rubensson, Pawel Salek, 00004 * and Anastasia Kruchinina. 00005 * 00006 * This program is free software: you can redistribute it and/or modify 00007 * it under the terms of the GNU General Public License as published by 00008 * the Free Software Foundation, either version 3 of the License, or 00009 * (at your option) any later version. 00010 * 00011 * This program is distributed in the hope that it will be useful, 00012 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00013 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00014 * GNU General Public License for more details. 00015 * 00016 * You should have received a copy of the GNU General Public License 00017 * along with this program. If not, see <http://www.gnu.org/licenses/>. 00018 * 00019 * Primary academic reference: 00020 * Ergo: An open-source program for linear-scaling electronic structure 00021 * calculations, 00022 * Elias Rudberg, Emanuel H. Rubensson, Pawel Salek, and Anastasia 00023 * Kruchinina, 00024 * SoftwareX 7, 107 (2018), 00025 * <http://dx.doi.org/10.1016/j.softx.2018.03.005> 00026 * 00027 * For further information about Ergo, see <http://www.ergoscf.org>. 00028 */ 00029 00038 #ifndef INTEGRALS_1EL_KINETIC 00039 #define INTEGRALS_1EL_KINETIC 00040 00041 00042 #include "basisinfo.h" 00043 00044 00045 ergo_real simplePrimTintegral(const DistributionSpecStruct& prim1, 00046 const DistributionSpecStruct& prim2, 00047 int coord, 00048 ergo_real threshold); 00049 00050 int compute_T_matrix_sparse_linear(const BasisInfoStruct& basisInfo, 00051 ergo_real threshold, 00052 ergo_real boxSize, 00053 int* nvaluesList, 00054 int** colindList, 00055 ergo_real** valuesList); 00056 00057 int compute_T_matrix_full(const BasisInfoStruct& basisInfo, 00058 ergo_real threshold, 00059 ergo_real* result); 00060 00061 00062 #endif