next up previous
Next: The subroutine NINE Up: SAI_SQLS1 Previous: The subroutine C1E1SM

The subroutine SIXJ

This routine determines the value of the 6j- coefficients:

\begin{displaymath}
\left\{
\begin{array}{ccc}
I/2 & J/2 & K/2 \\
L/2 & M/2 & N/2
\end{array}\right\}.
\end{displaymath} (32)

The subroutine has the input arguments I, J, K, L, M, N, ITIK and output argument SI. If the parameter ITIK=0, the subroutine does not check the triangular conditions for 6j- coefficient. In other cases it checks these. If any of the parameters of 6j- coefficient is equal to 0, 1/2, 1, 3/2, 2, 3, 4, the subroutine calculates the 6j- coefficients according to analytical formulas. Otherwise, the customary calculations are performed. In that case, the COMMON block /FACT/ must be defined. This is done by addressing the SUBROUTINE FACTRL from the library MCHF_LIB_COM [1,11].



2001-12-07