extern fint cotrans_c(fchar,fint *,double *,double *,fint *);