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

Fix call arguments at qpms_vswf_irot_elem_from_irot3() 

Former-commit-id: ba1937b78ed4d525ec9e00b722fcb3b8a24e7940
This commit is contained in:
Marek Nečada 2019-02-25 21:39:20 +02:00
parent e2722bc866
commit 980e281e4d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
qpms/wigner.c
View File

@ -54,12 +54,12 @@ complex double qpms_wignerD_elem(const qpms_quat_t R,
} }
} }
complex double qpms_vswf_irot_elem_from_irot3(const_qpms_irot3_t q, complex double qpms_vswf_irot_elem_from_irot3(const qpms_irot3_t q,
qpms_l_t l, qpms_m_t mp, qpms_m_t m, bool pseudo) { const qpms_l_t l, const qpms_m_t mp, const qpms_m_t m, bool pseudo) {
#ifndef NDEBUG #ifndef NDEBUG
qpms_irot3_checkdet(q); qpms_irot3_checkdet(q);
#endif #endif
complex double res = qpms_wignerD_elem(q.rot, l, mp); complex double res = qpms_wignerD_elem(q.rot, l, mp, m);
if (q.det == -1) { if (q.det == -1) {
res *= min1pow(l); res *= min1pow(l);
if (pseudo) if (pseudo)