fixed C-fortran index shift in cblas_idamax etc.

t.cc

@@ -3421,7 +3421,7 @@ Tensor<double> bb(b);
 cout << aa*bb;
 }
 
-if(1)
+if(0)
 {
 int seed;
 int f=open("/dev/random",O_RDONLY);
@@ -3440,4 +3440,17 @@ cout <<b;
 cout <<c;
 }
 
+if(1)
+{
+NRMat<double> m;
+cin >>m;
+NRVec<double> v(m);
+cout <<v;
+NRMat<double> mm(v,m.nrows(),m.ncols());
+cout <<mm;
+cout <<m.getcount()<<" "<<v.getcount()<<" "<<mm.getcount()<<endl;
+}
+
+
+
 }