Lines Matching +full:- +full:y
1 !-----------------------------------------------------------------------
7 integer x,y variable
29 a(i)=10+i-1
38 call ceedvectorcreate(ceed,2*ne,y,err)
39 call ceedvectorsetvalue(y,0.d0,err)
40 call ceedelemrestrictionapply(r,ceed_notranspose,x,y,&
43 call ceedvectorgetarrayread(y,ceed_mem_host,yy,yoffset,err)
47 do k=0,ne-1
49 diff=diff-a(i*strides(1)+j*strides(2)+k*strides(3)+1)
50 if (abs(diff) > 1.0D-15) then
52 write(*,*) 'Error in restricted array y(',i,')(',j,')(',k,')=',&
59 call ceedvectorrestorearrayread(y,yy,yoffset,err)
62 call ceedvectordestroy(y,err)
67 !-----------------------------------------------------------------------