11070 X=TK(IP,J) : TK(IP,J)=TK(JP,J) : TK(JP,J)=X