isIdentityQS

Usage: i = isIdentityQS(A [,eps])

    check whether QSpace A represents a block-diagonal
    identity matrix. This also checks the corresponding
    Clebsch-Gordon spaces if any (default: eps=1E-12).

(C) AW : May 2006 ; Oct 2010 ; Oct 2014