2390 CA=0 : IF NXC>0 THEN CA=TJ(M,N)/NXC