Next: The subroutine NINE
Up: SAI_SQLS1
Previous: The subroutine C1E1SM
This routine determines the value of the 6j- coefficients:
 |
(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