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() ...@@ -107,13 +107,14 @@ c call nek_testp()
c call exitt() c call exitt()
c-------------------------------- c--------------------------------
do i0=1,n_legendre c This is to test coefficients with MOOSE --
do j0=1,m_fourier c do i0=1,n_legendre
if (nid.eq.0) write(6,*)"C(",i0,",",j0,")=", c do j0=1,m_fourier
& coeff_fij(i0,j0) c if (nid.eq.0) write(6,*)"C(",i0,",",j0,")=",
enddo c & coeff_fij(i0,j0)
enddo c enddo
c enddo
c------------------------------------------
return return
end end
c----------------------------------------------------------------------- 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