2625 FOR K=2 TO NG