symetrmat Subroutine

public subroutine symetrmat(nsym, cpref, dsymll, symunitary, matq, iqs, matsym, lmmaxd, nsymaxd)

Symmetrising the t/G matrix (or their inverses). $$\begin{equation} MATSYM = CPREF \sum_{i=1}^{nsym} [ DLL(i) * MATQ(iqs(i)) * DLL(i)^T ] \end{equation}$$ IQS - set outside the routine - has either the same value regardless of i (e.g. in case of the single-site matrices or is taking on the value of i => MATSYM is a cummulative sum over MATQ[1...nsym] (e.g. in case of the BZ-integration of G)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nsym
complex(kind=dp)				::	cpref
complex(kind=dp)				::	dsymll(lmmaxd,lmmaxd,nsymaxd)
logical				::	symunitary(nsymaxd)
complex(kind=dp)				::	matq(lmmaxd,lmmaxd,*)
integer				::	iqs(nsymaxd)
complex(kind=dp)				::	matsym(lmmaxd,lmmaxd)
integer				::	lmmaxd
integer				::	nsymaxd