Commit af2c7951 authored by Elia Merzari's avatar Elia Merzari

Added testing

parent 3993263c
...@@ -94,8 +94,8 @@ c----------------------------------------------------------------------- ...@@ -94,8 +94,8 @@ c-----------------------------------------------------------------------
c Will this be overwritten ----------------- c Will this be overwritten -----------------
write(6,*)"*** Setting polynomial orders ..." write(6,*)"*** Setting polynomial orders ..."
n_legendre=10 n_legendre=5
m_fourier=10 m_fourier=2
c----------------------------------------------- c-----------------------------------------------
c This is for testing ----------- c This is for testing -----------
...@@ -107,6 +107,13 @@ c call nek_testp() ...@@ -107,6 +107,13 @@ c call nek_testp()
c call exitt() c call exitt()
c-------------------------------- c--------------------------------
do i0=1,n_legendre
do j0=1,m_fourier
if (nid.eq.0) write(6,*)"C(",i0,",",j0,")=",
& coeff_fij(i0,j0)
return return
end end
c----------------------------------------------------------------------- c-----------------------------------------------------------------------
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment