Lines Matching refs:q

15       integer q,i
16       parameter(q=8)
17       real*8 ww(q)
18       real*8 uu(q)
19       real*8 vv(q)
20       real*8 vvv(q)
54       do i=0,q-1
55         x=2.0*i/(q-1)-1
61       call ceedvectorcreate(ceed,q,w,err)
64       call ceedvectorcreate(ceed,q,u,err)
67       call ceedvectorcreate(ceed,q,v,err)
69       call ceedvectorcreate(ceed,q,qdata,err)
72       call ceedqfunctionapply(qf_setup,q,w,ceed_null,ceed_null,ceed_null,&
79       call ceedqfunctionapply(qf_mass,q,u,qdata,ceed_null,ceed_null,&
87       do i=1,q