Performs the rotation of the matrix T1 using the rotation-matrix ROT, set
up by CALCROTMAT()
IF MODE = 'L->G'
IF MODE = 'G->L'
see: E.M. ROSE ELEMENTARY THEORY OF ANGULAR MOMENTUM
Performs the rotation of the matrix T1 using the rotation-matrix ROT, set up by CALCROTMAT()
| 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 |