extern void vector_outprod_c(double *,double *,double *);