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