mod_rotate Module
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
Uses
-
- mod_datatypes
Subroutines
public subroutine rotate(t1, mode, t2, n, rot, nkmmax)
- License
- Category
- numerical-tools, KKRhost
P e r f o r m s
t h e
r o t a t i o n
o f
t h e
m a t r i x
T
1
u s i n g
t h e
r o t a t i o n - m a t r i x
R
O
T
,
s e t
u p
b y
C
A
L
C
R
O
T
M
A
T
(
)
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 |