3080 IF XX>0 THEN TI(J,K)=100*TI(J,K)/XX