SpinSphericals Module
Uses
-
- Constants
- mod_datatypes
Functions
public function ComplexSphericalHarmonic(l, m, theta, phi)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | l | |||
| integer, | intent(in) | :: | m | |||
| double precision, | intent(in) | :: | theta | |||
| double precision, | intent(in) | :: | phi |
Return Value complex(kind=dp)
public function RealSphericalHarmonic(l, m, theta, phi)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | l | |||
| integer, | intent(in) | :: | m | |||
| double precision, | intent(in) | :: | theta | |||
| double precision, | intent(in) | :: | phi |
Return Value complex(kind=dp)
public function AssociatedLegendrePolynomial(l, mm, x)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | l | |||
| integer, | intent(in) | :: | mm | |||
| double precision, | intent(in) | :: | x |
Return Value doubleprecision
public function factorial(n)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n |
Return Value integer
public function ClebshGordan(kappa, mu, ms)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | kappa | |||
| real, | intent(in) | :: | mu | |||
| real, | intent(in) | :: | ms |
Return Value doubleprecision
public function getL(kappa)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | kappa |
Return Value integer
public function getLbar(kappa)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | kappa |
Return Value integer
public function getJ(kappa)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | kappa |
Return Value real
public function getLambdacut(lcut)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | lcut |
Return Value integer
Subroutines
public subroutine SpinSphericalHarmonic(kappa, mu, theta, phi, chi1, chi2)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | kappa | ||||
| real | :: | mu | ||||
| double precision | :: | theta | ||||
| double precision | :: | phi | ||||
| complex(kind=dp) | :: | chi1 | ||||
| complex(kind=dp) | :: | chi2 |
public subroutine makeLambdabarArray(lcut, LambdabarArray)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | lcut | ||||
| integer, | allocatable, dimension(:) | :: | LambdabarArray |
public subroutine KappaMuArray(lcut, KappaArray, MuArray)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | lcut | ||||
| integer, | allocatable, dimension(:) | :: | KappaArray | |||
| real, | allocatable, dimension(:) | :: | MuArray |
public subroutine Cartesian2Spherical(x, y, z, r, theta, phi)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision | :: | x | ||||
| double precision | :: | y | ||||
| double precision | :: | z | ||||
| double precision | :: | r | ||||
| double precision | :: | theta | ||||
| double precision | :: | phi |
public subroutine Spherical2Cartesian(x, y, z, r, theta, phi)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision | :: | x | ||||
| double precision | :: | y | ||||
| double precision | :: | z | ||||
| double precision | :: | r | ||||
| double precision | :: | theta | ||||
| double precision | :: | phi |