Commit b2b78c46 authored by Elia Merzari's avatar Elia Merzari

Commented out printing of coefficients in userchk

parent e89b40e6
......@@ -107,13 +107,14 @@ 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
c This is to test coefficients with MOOSE --
c do i0=1,n_legendre
c do j0=1,m_fourier
c if (nid.eq.0) write(6,*)"C(",i0,",",j0,")=",
c & coeff_fij(i0,j0)
c enddo
c enddo
c------------------------------------------
return
end
c-----------------------------------------------------------------------
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment