GAUNTHARMONICS_GAUNT2 Subroutine
- M. Weinert, B. Drittler
-
- KKRimp, special-functions
- 38 statements
- Source File
public subroutine GAUNTHARMONICS_GAUNT2(W, YR, N)
Sets up values needed for gaunt m. weinert january 1982
Changed for calculating with real spherical harmonics b.drittler july 1987
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision | :: | W(*) |
integration weights on 4*LMAXD points in the interval (-1,0) (from routine GRULE) |
|||
| double precision | :: | YR(N,0:N,0:N) |
spherical harmonics on 4LMAXD points to angular momentum indices (l,m) scaled with a factor of RF=(4pi)**(1/3) |
|||
| integer | :: | N |