integer(int64) function MinSymRep() implicit none if (TAbelian) then MinSymRep = 0 else MinSymRep = 0 end if end function MinSymRep