Lines Matching +full:- +full:y
1 !-----------------------------------------------------------------------
7 integer x,y variable
28 a(i)=10+i-1
35 ind(2*i-1)=i-1
42 call ceedvectorcreate(ceed,2*ne,y,err);
43 call ceedvectorsetvalue(y,0.d0,err);
44 call ceedelemrestrictionapply(r,ceed_notranspose,x,y,&
47 call ceedvectorgetarrayread(y,ceed_mem_host,yy,yoffset,err)
49 diff=10+i/2-yy(i+yoffset)
50 if (abs(diff) > 1.0D-15) then
52 write(*,*) 'Error in restricted array y(',i,')=',yy(i+yoffset)
56 call ceedvectorrestorearrayread(y,yy,yoffset,err)
59 call ceedvectordestroy(y,err)
64 !-----------------------------------------------------------------------