Lines Matching refs:q

14       integer q,i
15       parameter(q=8)
16       real*8 ww(q)
17       real*8 uu(q)
18       real*8 vv(q)
19       real*8 vvv(q)
42       do i=0,q-1
43         x=2.0*i/(q-1)-1
49       call ceedvectorcreate(ceed,q,w,err)
52       call ceedvectorcreate(ceed,q,u,err)
55       call ceedvectorcreate(ceed,q,v,err)
57       call ceedvectorcreate(ceed,q,qdata,err)
60       call ceedqfunctionapply(qf_setup,q,w,ceed_null,ceed_null,ceed_null,&
67       call ceedqfunctionapply(qf_mass,q,u,qdata,ceed_null,ceed_null,&
75       do i=1,q