structure to keep precompute spin coupling matrices
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | nopenmax |
maximum numer of open shells |
|||
| integer, | public | :: | multp |
spin multiplicity |
|||
| integer, | public, | allocatable | :: | f(:) |
number of spin configurations for multp for given number of open shells |
||
| integer, | public, | allocatable | :: | indn(:) |
starting index for n open shells |
||
| real(kind=long), | public, | allocatable | :: | umatrix(:) |
array containing Umarix data |
||
| real(kind=long), | public, | allocatable | :: | ucyclematrix(:) |
array containing Umarix data |