rotate Subroutine

public subroutine rotate(t1, mode, t2, n, rot, nkmmax)

Performs the rotation of the matrix T1 using the rotation-matrix ROT, set up by CALCROTMAT() $T2 = ROT T1 ROT_+$ IF MODE = 'L->G'

$T2 = ROT_+ T1 ROT$ IF MODE = 'G->L' see: E.M. ROSE ELEMENTARY THEORY OF ANGULAR MOMENTUM

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),			dimension(nkmmax, nkmmax)	::	t1
character(len=4)				::	mode
complex(kind=dp),			dimension(nkmmax, nkmmax)	::	t2
integer				::	n
complex(kind=dp),			dimension(nkmmax, nkmmax)	::	rot
integer				::	nkmmax