2875 FOR P=1 TO NVC(K)