common
     $/cbktorang/  dargtdc(ntomax,3,4),thg(ntomax)