2935 J=JJ(M) : IF J>0 THEN A(KI,J)=TP(M)