extern fint dcdint_c(fchar,fint *,fint *,fint *);