From 09334ed9f9c352ad99f99b7880b9c963c071692b Mon Sep 17 00:00:00 2001
From: jiri <jiri>
Date: Mon, 2 Jun 2008 16:15:55 +0000
Subject: [PATCH] *** empty log message ***

---
 fourindex.h | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/fourindex.h b/fourindex.h
index 643901f..5d19c69 100644
--- a/fourindex.h
+++ b/fourindex.h
@@ -772,6 +772,12 @@ if (!NRMat<T>::v) laerror("access to unallocated fourindex_dense");
 #endif
 return (*this).NRMat<T>::operator() ((j-1)*noca+i-1,(b-1)*nvra+a-1);
 }
+
+	void print(ostream &out) const
+		{
+		unsigned int i,j,a,b;
+		for(i=1; i<=noca; ++i) for(j=1; j<=nocb; ++j) for(a=1; a<=nvra; ++a) for(b=1; b<=nvrb; ++b) out << i<<" "<<j<<" "<<a<<" "<<b<<" "<<(*this)(i,j,a,b)<<endl;
+		}
 };
 
 
@@ -825,6 +831,12 @@ if(a<b) {minus++; unsigned int t=a; a=b; b=t;}
 }
 
 
+        void print(ostream &out) const
+                {
+                unsigned int i,j,a,b;
+                for(i=1; i<=nocc; ++i) for(j=1; j<i; ++j) for(a=1; a<=nvrt; ++a) for(b=1; b<a; ++b) out << i<<" "<<j<<" "<<a<<" "<<b<<" "<<(*this)(i,j,a,b)<<endl;
+                }
+
 
 };