6245 FOR M=1 TO NVC(K)