Lines Matching refs:p
7 integer b,p variable
8 parameter(p=4)
21 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,p,ceed_gauss_lobatto,b,&
25 do i=0,p-1
26 do j=1,p
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),' != ',&
30 & grad1d(j+p*i+gradoffset)
38 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,p,ceed_gauss,b,err)
42 do i=1,p
46 do i=0,p-1
48 do j=1,p
49 sum=sum+collograd1d(j+p*i)*x2(j)
61 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,p+2,ceed_gauss,b,err)
65 do i=1,p+2
69 do i=0,p+1
71 do j=1,p+2
72 sum=sum+collograd1d(j+(p+2)*i)*x2(j)