From 80a9f8703afecc0f240f60bb2e7624717ffe6c5e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marek=20Ne=C4=8Dada?= Date: Fri, 17 Jan 2020 16:06:51 +0200 Subject: [PATCH] Fix index mismatch Former-commit-id: b1077e37785539b055c9d182b35273e321c0eda8 --- qpms/scatsystem.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/qpms/scatsystem.c b/qpms/scatsystem.c index 2d48fd7..0265472 100644 --- a/qpms/scatsystem.c +++ b/qpms/scatsystem.c @@ -228,8 +228,8 @@ qpms_scatsys_at_omega_t *qpms_scatsys_apply_symmetry(const qpms_scatsys_t *orig, break; } if (j == ss->tm_count) { // duplicity not found, save both the "abstract" and "at omega" T-matrices - qpms_tmatrix_operation_copy(&ss->tm[j].op, &orig->tm[j].op); - ss->tm[j].tmgi = orig->tm[j].tmgi; // T-matrix functions are preserved. + qpms_tmatrix_operation_copy(&ss->tm[j].op, &orig->tm[i].op); + ss->tm[j].tmgi = orig->tm[i].tmgi; // T-matrix functions are preserved. ssw->tm[j] = ti; ss->max_bspecn = MAX(ssw->tm[j]->spec->n, ss->max_bspecn); lMax = MAX(lMax, ssw->tm[j]->spec->lMax);