4165 KX=(2*NXX-IA)*(IA-1)/2