extern void irc_nonlin_c(fint *,float *,fint *,fint *,float *);