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