1675 FOR K=1 TO NCP