Lines Matching refs:q
9 integer q,i variable
10 parameter(q=8)
11 real*8 jj(q)
12 real*8 ww(q)
13 real*8 uu(q)
14 real*8 vv(q)
15 real*8 vvv(q)
26 do i=0,q-1
28 x=2.0*i/(q-1)-1
34 call ceedvectorcreate(ceed,q,j,err)
37 call ceedvectorcreate(ceed,q,w,err)
40 call ceedvectorcreate(ceed,q,u,err)
43 call ceedvectorcreate(ceed,q,v,err)
45 call ceedvectorcreate(ceed,q,qdata,err)
48 call ceedqfunctionapply(qf_setup,q,j,w,ceed_null,ceed_null,&
55 call ceedqfunctionapply(qf_mass,q,u,qdata,ceed_null,ceed_null,&
63 do i=1,q