revise comm_group
tri-diagonal subroutine
First successful version