Lines Matching refs:p
20 integer p,q,d variable
21 parameter(p=6)
27 real*8 interp(p*q)
28 real*8 grad(d*p*q)
29 real*8 xr(d*p)
30 real*8 iinput(p)
50 call ceedbasiscreateh1(ceed,ceed_triangle,1,p,q,interp,grad,qref,qweight,&
53 do i=1,p
54 x1=xr(0*p+i)
55 x2=xr(1*p+i)
60 call ceedvectorcreate(ceed,p,input,err)