This sample creates a shared library
that incorporates Connect/C++

It provides an example of using .Call()
to access a Connect/C++ class


Steps to build and test this program:

 1. Change current directory to directory 
    containing this file

     cd <directory containing this file> 

 2. Create a chapter:

     Splus CHAPTER -sconnectlib *.cxx *.q

 3. Build the program:

     Splus make

 4. Run S-PLUS:

     Splus     

 5. Execute the following in S-PLUS:
 	
		A<-matrix(rnorm(10000),nrow=100) 
		diag(A)<-seq(ncol(A),ncol(A)) #Make it diagonally dominant
		b<-rnorm(100);
		sys.time({x1<-gaussSeidel(A,b)})
		sys.time({x2<-.Call('gaussSeidel',A,b)})
		all.equal(x1, x2) # Should return TRUE