     <b>COF3J</b> evaluates the Wigner 3J coefficients.
        </li>
        <li>
          <b>COF6J</b> evaluates the Wigner 6J coefficients.
        </li>
        <li>
          <b>COF9J</b> evaluates the Wigner 9J coefficients.
        </li>
        <li>
          <b>FACALC</b> calculates log factorials and saves them in common.
        </li>
        <li>
          <b>I4_SWAP</b> switches two I4's.
        </li>
        <li>
          <b>PHASEF</b> returns 1 for even arguments and -1 for odd ones.
     