From 43cc687518bc30c65e0292b69ab0d7f7b59f350c Mon Sep 17 00:00:00 2001
From: jiri <jiri>
Date: Tue, 26 Jun 2007 09:57:15 +0000
Subject: [PATCH] *** empty log message ***

---
 bitvector.cc | 12 ++++++++++++
 fourindex.h  |  6 +++---
 t.cc         | 20 +++++++++++++++-----
 3 files changed, 30 insertions(+), 8 deletions(-)

diff --git a/bitvector.cc b/bitvector.cc
index aac2cfd..e96f910 100644
--- a/bitvector.cc
+++ b/bitvector.cc
@@ -119,6 +119,18 @@ x+= (x>>8);
 x+= (x>>16);
 return x&0x3f;
 }
+#else
+static unsigned long word_popul(unsigned long x)
+{
+unsigned long s=0;
+for(int i=0; i<64; ++i)
+        {
+        if(x&1) ++s;
+        x>>=1;
+        }
+return s;
+}
+
 #endif
 
 
diff --git a/fourindex.h b/fourindex.h
index 3a3ad61..da3c42b 100644
--- a/fourindex.h
+++ b/fourindex.h
@@ -347,7 +347,7 @@ public:
         typedef class piterator {
         private:
                 fourindex_ext *base;
-		matel4stored<I,T> my;
+		matel4<I,T> my;
 		int permindex;
 		typename fourindex_ext::iterator it;
 
@@ -371,8 +371,8 @@ public:
                 bool operator!=(const piterator &rhs) const {return base!=rhs.base;} //should only be used for comparison with end()
                 piterator &operator++() {if(++permindex>=fourindex_permnumbers[base->symmetry]) {permindex=0; ++it;} if(it.notNULL()) setup(); else base=NULL; return *this;} 
 		piterator operator++(int) {laerror("postincrement not possible");}
-                const matel4stored<I,T> * operator->() const {return &my;}
-                const matel4stored<I,T> & operator*() const {return my;}
+                const matel4<I,T> * operator->() const {return &my;}
+                const matel4<I,T> & operator*() const {return my;}
 		bool end(void) {return !base;}
                 bool notend(void) {return base;}
 	};
diff --git a/t.cc b/t.cc
index b97c525..dfc509e 100644
--- a/t.cc
+++ b/t.cc
@@ -669,7 +669,7 @@ cout <<"e=exp(c)\n"<<e;
 cout<<"error2 = "<<(e-b).norm()<<endl;
 }
 
-if(1)
+if(0)
 {
 int n;
 double f;
@@ -1060,7 +1060,7 @@ NRVec<double> bb=b;
 NRMat<double>aa=a;
 linear_solve(aa,bb);
 //cout <<bb;
-gmres   (a,b,x,1,1e-10,100,1,0,1,0);
+gmres(a,b,x,1,1e-10,100,1,0,1,0);
 //conjgrad(a,b,x,1,1e-10,200,1,0,1);
 
 cout <<"\nsolution compare:\n";
@@ -1103,11 +1103,12 @@ double *p = (double *)A;
 cout <<A;
 }
 
-if(0)
+#if 0 //@@@make a more realistic test
 {
 int i;
-DIIS<NRVec<double> > diis(5,1);
-int dim=8;
+DIIS<NRVec<double> > diis(5);
+int dim;
+cin>>dim;
 NRVec<double> solution(dim), deviation(dim);
 for(i=0; i<dim; ++i) solution[i]=i&1 ? i/2.:-i-3.;
 for(i=0; i<dim; ++i) deviation[i]= (i&2 ? 1:-1) * random()/(1.+RAND_MAX);
@@ -1124,6 +1125,7 @@ for(int iter=1; iter<100 && norm>1e-8 ; ++iter)
 	deviation=trial-solution;
 	}
 }
+#endif
 
 if(0)
 {
@@ -1141,8 +1143,16 @@ NRSMat<double> a;
 NRMat<double> b;
 cin >>a>>b;
 cout <<a*b;
+}
 
+if(1)
+{
+NRMat<double> a,b;
+cin >>a >>b;
+cout <<a.oplus(b);
+cout <<a.otimes(b);
 }
 
 
+
 }