2655 FOR M=1 TO NG