3725 FOR K=1 TO IP