extern fint ircc_detnr_c(fint *,fchar);