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