extern fint invmat_c(float *,fint *,fint *);