codes/gramschmidt: fix calc_error

codes/gramschmidt/gramschmidt.c

@@ -87,7 +87,7 @@ void calc_error(int m, int n,
     double err = 0;
     {
         double *accurate = &_binary_data_r_bin_start;
-        double *test = R;
+        double *test = &(R[0][0]);
 
         for(i = 0; i < num; i++) {
             if(fabs(accurate[i] - test[i]) > 0.0) {
@@ -107,7 +107,7 @@ void calc_error(int m, int n,
     }
     {
         double *accurate = &_binary_data_q_bin_start;
-        double *test = Q;
+        double *test = &(Q[0][0]);
 
         for(i = 0; i < num; i++) {
             if(fabs(accurate[i] - test[i]) > 0.0) {