diff --git a/examples/integration_example/integration_example.usr b/examples/integration_example/integration_example.usr index 7e5b270157e16d1ca9f593a2f46294cfe622fa2e..5e7ace32d677ee82d28e513c193acea7a073e4b6 100644 --- a/examples/integration_example/integration_example.usr +++ b/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-----------------------------------------------------------------------