double* reverse_vector(double *in,  int lin);