(vector w) = (vector z)

 
/* sphcv - copy vector */

void sphcv(z,x) double *z, *x; {z[0]=x[0]; z[1]=x[1]; z[2]=x[2];}