5990 CA=1 : IF IPC>1 THEN CA=DE(K)*DE(L)