mirror of
https://github.com/triqs/dft_tools
synced 2024-08-17 09:41:43 +02:00
![Alexander Hampel](/assets/img/avatar_default.png)
* moved the plovasp C++ code to c++/triqs_dft_tools/converters/vasp * added global header triqs_dft_tools/triqs_dft_tools.hpp * python dir based on single cmakelist file * registered C++ tests for plovasp * corrected imports for py3 tests for plovasp * corrected block order in sigma_from_file and srvo3_Gloc * exchanged ref files for sigma_from_file, srvo3_Gloc, SrVO3.ref.h5 * moved vasp converter bash scripts from dir shells to bin dir
68 lines
1.5 KiB
C++
68 lines
1.5 KiB
C++
/*******************************************************************************
|
|
*
|
|
* This file is part of the ATM library.
|
|
*
|
|
* Copyright (C) 2010 by O. E. Peil
|
|
*
|
|
* TRIQS is free software: you can redistribute it and/or modify it under the
|
|
* terms of the GNU General Public License as published by the Free Software
|
|
* Foundation, either version 3 of the License, or (at your option) any later
|
|
* version.
|
|
*
|
|
* TRIQS is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
* details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along with
|
|
* TRIQS. If not, see <http://www.gnu.org/licenses/>.
|
|
*
|
|
*******************************************************************************/
|
|
#include <cstdlib>
|
|
|
|
int cmp(const void *a, const void *b)
|
|
{
|
|
return (**(const double **)a) < (**(const double **)b) ? -1 : 1;
|
|
}
|
|
|
|
int icmp(const void *a, const void *b)
|
|
{
|
|
return (**(const int **)a) - (**(const int **)b);
|
|
}
|
|
|
|
void argsort(double *arr, int *inds, double **ptrs, const int n)
|
|
{
|
|
int i;
|
|
|
|
for (i=0; i < n; i++)
|
|
{
|
|
ptrs[i] = arr + i;
|
|
}
|
|
|
|
qsort(ptrs, n, sizeof(double *), cmp);
|
|
|
|
for (i=0; i < n; i++)
|
|
{
|
|
inds[i] = (int)(ptrs[i] - arr);
|
|
}
|
|
}
|
|
|
|
void iargsort(int *iarr, int *inds, int **ptrs, const int n)
|
|
{
|
|
int i;
|
|
|
|
for (i=0; i < n; i++)
|
|
{
|
|
ptrs[i] = iarr + i;
|
|
}
|
|
|
|
qsort(ptrs, n, sizeof(int *), icmp);
|
|
|
|
for (i=0; i < n; i++)
|
|
{
|
|
inds[i] = (int)(ptrs[i] - iarr);
|
|
}
|
|
}
|
|
|
|
|