3095 IX=C(4)*(XX-INT(XX))