next up previous
Next: The subroutine WWLS1 Up: SAI_SQLS1 Previous: The subroutine AWP1LS

The subroutine WAP1LS

This subroutine determines the value of the matrix elements:

\begin{displaymath}
( l^{N} QLS \vert\vert [ [ a^{(qls)}_{m_{q1}} \times a^...
...s)}_{m_{q3}} ]^{(k_{l}k_{s})} \vert\vert l^{N'} Q'L'S' ).
\end{displaymath} (38)

The structure of the routine WAP1LS is the same as that of AWP1LS. The subroutine has the formal arguments:
  1. IK is the array I for the bra function.
  2. BK is the array B for the bra function.
  3. ID is the array I for the ket function.
  4. BD is the array B for the ket function.
  5. K1 is the rank $k_{1}$.
  6. K2 is the rank $k_{2}$.
  7. K3 is the rank $k_{l}$.
  8. BK4 is the rank $k_{s}$.
  9. QM1, QM2 and QM3 are the quasispin projections in (38).
  10. WA is the value of the reduced matrix element (38) which is returned by the subroutine.



2001-12-07