void matface(int *par,int *nin,double *in_r,double *in_i,
	int *nout, double *out_r, double *out_i, double *upar);