Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't401-qfunction-f.h'
6 !-----------------------------------------------------------------------
19 real*8 vv(q)
37 &//'t401-qfunction.h:setup'//char(0),qf_setup,err)
43 &//'t401-qfunction.h:mass'//char(0),qf_mass,err)
54 do i=0,q-1
55 x=2.0*i/(q-1)-1
56 ww(i+1)=1-x*x
86 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
88 if (abs(vv(i+voffset)-ctxdata(5)*vvv(i)) > 1.0D-14) then
90 write(*,*) 'v(i)=',vv(i+voffset),', 5*vv(i)=',ctxdata(5)*vvv(i)
94 call ceedvectorrestorearrayread(v,vv,voffset,err)
105 !-----------------------------------------------------------------------