11090 TJ(IP,J)=TJ(IP,J)/PIV