Go to the source code of this file.
|
subroutine | tm3todm (l, k, p, r, ld, wkpr, dm) |
|
pure subroutine | dmrtoz (n, dmr, dm) |
|
◆ dmrtoz()
pure subroutine tm3todm::dmrtoz |
( |
integer, intent(in) |
n, |
|
|
real(8), dimension(n,n), intent(in) |
dmr, |
|
|
complex(8), dimension(n,n), intent(out) |
dm |
|
) |
| |
|
private |
◆ tm3todm()
subroutine tm3todm |
( |
integer, intent(in) |
l, |
|
|
integer, intent(in) |
k, |
|
|
integer, intent(in) |
p, |
|
|
integer, intent(in) |
r, |
|
|
integer, intent(in) |
ld, |
|
|
real(8), dimension(-ld:ld), intent(in) |
wkpr, |
|
|
complex(8), dimension(ld,2,ld,2), intent(out) |
dm |
|
) |
| |