3160 FOR I=1 TO NP