Lines Matching refs:q

27       integer p,q,d  variable
29       parameter(q=4)
32       real*8 qref(d*q)
33       real*8 qweight(q)
34       real*8 interp(p*q)
35       real*8 grad(d*p*q)
36       real*8 xq(d*q)
39       real*8 ooutput(d*q)
57       call ceedbasiscreateh1(ceed,ceed_triangle,1,p,q,interp,grad,qref,qweight,&
71       call ceedvectorcreate(ceed,q*d,output,err)
77       do i=1,q
78         x1=xq(0*q+i)
79         x2=xq(1*q+i)
81         diff=val-ooutput(0*q+i+ooffset)
89         diff=val-ooutput(1*q+i+ooffset)