QPMS
/
qpms
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix complex conjugation; now all available point groups seem to work. 

Former-commit-id: 764155cddfd30162b01c6552cea8718d55a26fd6
This commit is contained in:
Marek Nečada 2019-03-13 15:59:05 +02:00
parent 07aed6feb7
commit ddfd4954dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
qpms/scatsystem.c
View File

@ -730,7 +730,7 @@ complex double *qpms_orbit_action_matrix(complex double *target,
const qpms_gmi_t Row = ot->action[sym->order * Col + g]; const qpms_gmi_t Row = ot->action[sym->order * Col + g];
for(size_t row = 0; row < bspec->n; ++row) for(size_t row = 0; row < bspec->n; ++row)
for(size_t col = 0; col < bspec->n; ++col) for(size_t col = 0; col < bspec->n; ++col)
target[n*n*N*Row + n*Col + n*N*row + col] = tmp[row][col]; //CHECKCONJ target[n*n*N*Row + n*Col + n*N*row + col] = conj(tmp[row][col]); //CHECKCONJ
} }
#ifdef DUMP_ACTIONMATRIX #ifdef DUMP_ACTIONMATRIX
fprintf(stderr,"%d: %s\n", fprintf(stderr,"%d: %s\n",