Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't400-qfunction-f.h'
6 !-----------------------------------------------------------------------
18 real*8 vv(q)
31 &//'t400-qfunction.h:setup'//char(0),qf_setup,err)
37 &//'t400-qfunction.h:mass'//char(0),qf_mass,err)
42 do i=0,q-1
43 x=2.0*i/(q-1)-1
44 ww(i+1)=1-x*x
74 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
76 if (abs(vv(i+voffset)-vvv(i)) > 1.0D-14) then
78 write(*,*) 'v(i)=',vv(i+voffset),', vv(i)=',vvv(i)
82 call ceedvectorrestorearrayread(v,vv,voffset,err)
92 !-----------------------------------------------------------------------