Lines Matching +full:- +full:v
1 !-----------------------------------------------------------------------
7 integer u,v variable
22 do i=0,q-1
29 call ceedvectorcreate(ceed,q,v,err)
30 call ceedvectorsetvalue(v,0.d0,err)
35 &v,ceed_null,ceed_null,ceed_null,ceed_null,ceed_null,&
39 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
41 if (abs(vv(i+voffset)-(i-1)*(i-1)) > 1.0D-14) then
43 write(*,*) 'v(i)=',vv(i+voffset),', u(i)=',(i-1)*(i-1)
47 call ceedvectorrestorearrayread(v,vv,voffset,err)
50 call ceedvectordestroy(v,err)
54 !-----------------------------------------------------------------------