Commit af2c7951 authored by Elia Merzari's avatar Elia Merzari

Added testing

parent 3993263c
......@@ -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-----------------------------------------------------------------------
......
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