| /libCEED/tests/ |
| H A D | t411-qfunction-f.f90 | 14 integer*8 uoffset,voffset variable
27 uoffset=0
28 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t540-operator-f.f90 | 27 integer*8 xoffset,uoffset
123 call ceedvectorgetarrayread(u,ceed_mem_host,uu,uoffset,err)
125 if (abs(uu(uoffset+i)-1.0)>5.0d-14) then
127 write(*,*) '[',i,'] Error in inverse: ',uu(uoffset+i),' != 1.0'
131 call ceedvectorrestorearrayread(u,uu,uoffset,err)
|
| H A D | t412-qfunction-f.f90 | 15 integer*8 uoffset,voffset variable
28 uoffset=0
29 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t533-operator-f.f90 | 31 integer*8 xoffset,aoffset,uoffset,voffset
132 call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
133 uu(i+uoffset)=1.d0
135 uu(i-1+uoffset)=0.d0
137 call ceedvectorrestorearray(u,uu,uoffset,err)
|
| H A D | t534-operator-f.f90 | 31 integer*8 xoffset,aoffset,uoffset,voffset
136 call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
137 uu(i+uoffset)=1.d0
139 uu(i-1+uoffset)=0.d0
141 call ceedvectorrestorearray(u,uu,uoffset,err)
|
| H A D | t410-qfunction-f.f90 | 18 integer*8 joffset,uoffset,voffset,woffset variable
41 uoffset=0
42 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t400-qfunction-f.f90 | 22 integer*8 uoffset,voffset,woffset
53 uoffset=0
54 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t535-operator-f.f90 | 31 integer*8 xoffset,aoffset,uoffset,voffset
167 call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
168 uu(i+uoffset)=1.d0
170 uu(i-1+uoffset)=0.d0
172 call ceedvectorrestorearray(u,uu,uoffset,err)
|
| H A D | t401-qfunction-f.f90 | 26 integer*8 uoffset,voffset,woffset,coffset
65 uoffset=0
66 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t536-operator-f.f90 | 35 integer*8 xoffset,aoffset,uoffset,voffset
189 call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
190 uu(i+uoffset)=1.d0
192 uu(i-1+uoffset)=0.d0
194 call ceedvectorrestorearray(u,uu,uoffset,err)
|
| H A D | t314-basis-f.f90 | 49 integer*8 uoffset,xoffset,offset1,offset2,offset3 variable
99 uoffset=0
100 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|
| H A D | t531-operator-f.f90 | 32 integer*8 xoffset,uoffset,voffset,vlinoffset
60 uoffset=0
61 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
|