Lines Matching +full:- +full:v
1 !-----------------------------------------------------------------------
7 integer u,v variable
23 do i=0,q*s-1
30 call ceedvectorcreate(ceed,q*s,v,err)
31 call ceedvectorsetvalue(v,0.d0,err)
36 &v,ceed_null,ceed_null,ceed_null,ceed_null,ceed_null,&
40 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
42 if (abs(vv(i+voffset)-(i-1)*(i-1)) > 1.0D-12) then
44 write(*,*) 'v(i)=',vv(i+voffset),', u(i)=',(i-1)*(i-1)
48 call ceedvectorrestorearrayread(v,vv,voffset,err)
51 call ceedvectordestroy(v,err)
55 !-----------------------------------------------------------------------