extern void irpl_standard_c(fint *,double *,double *,fint *);