Searched refs:collograd1d (Results 1 – 1 of 1) sorted by relevance
| /libCEED/tests/ |
| H A D | t302-basis-f.f90 | 9 real*8 collograd1d(36),x2(6) variable
23 call ceedbasisgetcollocatedgrad(b,collograd1d,err)
27 if (abs(collograd1d(j+p*i)-grad1d(j+p*i+gradoffset))>1.0D-13) then
29 write(*,*) 'Error in collocated gradient ',collograd1d(j+p*i),' != ',&
39 call ceedbasisgetcollocatedgrad(b,collograd1d,err)
49 sum=sum+collograd1d(j+p*i)*x2(j)
62 call ceedbasisgetcollocatedgrad(b,collograd1d,err)
72 sum=sum+collograd1d(j+(p+2)*i)*x2(j)
|