re of the routine WAP1LS is the same as that of AWP1LS.
The subroutine has the formal arguments:

<OL>
<LI>IK is the array I for the bra function.
</LI>
<LI>BK is the array B for the bra function.
</LI>
<LI>ID is the array I for the ket function.
</LI>
<LI>BD is the array B for the ket function.
</LI>
<LI>K1 is the rank <IMG
 WIDTH="22" HEIGHT="32" ALIGN="MIDDLE" BORDER="0"
 SRC="img381.png"
 ALT="$k_{1}$">.
</LI>
<LI>K2 is the rank <IMG
 WIDTH="22" HEIGHT="32" ALIGN="MIDDLE" BORDER="0"
 SRC="img382.png"
 A