create_umatrix Subroutine

private subroutine create_umatrix(theta, phi, lmsize, umat, udeggamat)

Create the rotation matrix $U$ $$\begin{equation} U= \begin{bmatrix} \cos{\frac{\theta}{2}} \exp{-\frac{i\phi}{2}} & -\sin{\frac{\theta}{2}}\exp{-i\frac{i\phi}{2}} \\ \sin{\frac{\theta}{2}} \exp{ \frac{i\phi}{2}} & \cos{\frac{\theta}{2}} \exp{ \frac{i\phi}{2}}\end{bmatrix} \end{equation}$$ Udegga = transpose(complex conjug ( U ) )

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	theta
real(kind=dp),	intent(in)			::	phi
integer,	intent(in)			::	lmsize
complex(kind=dp),	intent(out)			::	umat(2*lmsize,2*lmsize)
complex(kind=dp),	intent(out)			::	udeggamat(2*lmsize,2*lmsize)