1*
2* $Id$
3*
4c
5c  Irrep direct product using EOR
6c
7      MULX(imul,jmul) = ieor((imul-1),(jmul-1)) + 1
8
9