2330 IF CY(K)>0 THEN A(I,CY(K))=PMM(K)