Lines Matching +full:- +full:y

1 !-----------------------------------------------------------------------
7       integer x,y,i,n  variable
21       call ceedvectorcreate(ceed,n,y,err)
31       call ceedvectorsetarray(y,ceed_mem_host,ceed_copy_values,xx,xoffset,err)
34       call ceedvectorgetarrayread(y,ceed_mem_host,yy,yoffset,err)
37         diff=yy(i+yoffset)-10-i
38         if (abs(diff)>1.0D-15) then
40           write(*,*) 'Error reading array y(',i,')=',yy(i+yoffset)
45       call ceedvectorrestorearrayread(y,yy,yoffset,err)
47       call ceedvectordestroy(y,err)
51 !-----------------------------------------------------------------------