A set of program to calculate good sets of a given tensor of structure constants