/* sphcm - copy matrix */ void sphcm(z,x) double z[3][3], x[3][3]; { int i, j; for (i=0; i<3; i++) for (j=0; j<3; j++) z[i][j]=x[i][j]; }