Searched refs:uuq (Results 1 – 2 of 2) sorted by relevance
| /libCEED/tests/ ! |
| H A D | t313-basis-f.f90 | 42 real*8 uuq(qdimmax) variable
86 call eval(dimn,xxx,uuq(i))
90 call ceedvectorsetarray(uq,ceed_mem_host,ceed_use_pointer,uuq,uqoffset,&
103 call ceedvectorgetarrayread(uq,ceed_mem_host,uuq,offset2,err)
110 if(dabs(uuq(i+offset2)-fx) > 1.0D-4) then
112 write(*,*) uuq(i+offset2),' not equal to ',fx,dimn,i
117 call ceedvectorrestorearrayread(uq,uuq,offset2,err)
|
| H A D | t314-basis-f.f90 | 43 real*8 uuq(qdimnmax*maxdim) variable
111 call ceedvectorgetarrayread(uq,ceed_mem_host,uuq,offset3,err)
116 sum2=sum2+uuq(i+offset3)
120 call ceedvectorrestorearrayread(uq,uuq,offset3,err)
|