Added testing

examples/integration_example/integration_example.usr

@@ -94,8 +94,8 @@ c-----------------------------------------------------------------------
 
 c     Will this be overwritten -----------------
       write(6,*)"*** Setting polynomial orders ..." 
-      n_legendre=10
-      m_fourier=10
+      n_legendre=5
+      m_fourier=2
 c-----------------------------------------------
 
 c This is for testing -----------
@@ -107,6 +107,13 @@ c      call nek_testp()
 c      call exitt()
 c--------------------------------
 
+      do i0=1,n_legendre
+        do j0=1,m_fourier
+        if (nid.eq.0) write(6,*)"C(",i0,",",j0,")=",
+     &      coeff_fij(i0,j0)
+        enddo 
+      enddo
+
       return
       end
 c-----------------------------------------------------------------------