Searched refs:ooutput (Results 1 – 2 of 2) sorted by relevance
| /libCEED/tests/ |
| H A D | t323-basis-f.f90 | 39 real*8 ooutput(d*q) variable
76 call ceedvectorgetarrayread(output,ceed_mem_host,ooutput,ooffset,err)
81 diff=val-ooutput(0*q+i+ooffset)
84 write(*,'(A,I1,A,F12.8,A,F12.8)') '[',i,'] ',ooutput(i+ooffset),&
89 diff=val-ooutput(1*q+i+ooffset)
92 write(*,'(A,I1,A,F12.8,A,F12.8)') '[',i,'] ',ooutput(i+ooffset),&
97 call ceedvectorrestorearrayread(output,ooutput,ooffset,err)
|
| H A D | t322-basis-f.f90 | 31 real*8 ooutput(q) variable
74 call ceedvectorgetarrayread(output,ceed_mem_host,ooutput,offset1,err)
78 val=val+ooutput(i+offset1)*wweights(i+offset2)
80 call ceedvectorrestorearrayread(output,ooutput,offset1,err)
|