Lines Matching refs:err
15 integer ceed,err,i,j,k
60 call ceedinit(trim(arg)//char(0),ceed,err)
70 call ceedvectorcreate(ceed,d*ndofs,x,err)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
75 call ceedvectorcreate(ceed,nqptstet*d*(d+1)/2,qdatatet,err)
76 call ceedvectorcreate(ceed,nqptshex*d*(d+1)/2,qdatahex,err)
101 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
104 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
107 & d*(d+1)/2*nqptstet,stridesqdtet,erestrictqditet,err)
112 & qweight,bxtet,err)
115 & qweight,butet,err)
120 &//'t522-operator.h:setup'//char(0),qf_setuptet,err)
121 call ceedqfunctionaddinput(qf_setuptet,'weight',1,ceed_eval_weight,err)
122 call ceedqfunctionaddinput(qf_setuptet,'dx',d*d,ceed_eval_grad,err)
124 & err)
128 &//'t522-operator.h:diff'//char(0),qf_difftet,err)
129 call ceedqfunctionaddinput(qf_difftet,'rho',d*(d+1)/2,ceed_eval_none,err)
130 call ceedqfunctionaddinput(qf_difftet,'u',d,ceed_eval_grad,err)
131 call ceedqfunctionaddoutput(qf_difftet,'v',d,ceed_eval_grad,err)
136 & ceed_qfunction_none,op_setuptet,err)
138 & ceed_elemrestriction_none,bxtet,ceed_vector_none,err)
140 & bxtet,ceed_vector_active,err)
142 ceed_basis_none,qdatatet,err)
145 & ceed_qfunction_none,op_difftet,err)
147 ceed_basis_none,qdatatet,err)
149 & butet,ceed_vector_active,err)
151 & butet,ceed_vector_active,err)
167 & d*ndofs,ceed_mem_host,ceed_use_pointer,indxhex,erestrictxhex,err)
170 & ceed_mem_host,ceed_use_pointer,indxhex,erestrictuhex,err)
173 & d*(d+1)/2,d*(d+1)/2*nqptshex,stridesqdhex,erestrictqdihex,err)
177 & bxhex,err)
179 & buhex,err)
184 &//'t522-operator.h:setup'//char(0),qf_setuphex,err)
185 call ceedqfunctionaddinput(qf_setuphex,'_weight',1,ceed_eval_weight,err)
186 call ceedqfunctionaddinput(qf_setuphex,'dx',d*d,ceed_eval_grad,err)
188 & err)
192 &//'t522-operator.h:diff'//char(0),qf_diffhex,err)
193 call ceedqfunctionaddinput(qf_diffhex,'rho',d*(d+1)/2,ceed_eval_none,err)
194 call ceedqfunctionaddinput(qf_diffhex,'u',d,ceed_eval_grad,err)
195 call ceedqfunctionaddoutput(qf_diffhex,'v',d,ceed_eval_grad,err)
200 & ceed_qfunction_none,op_setuphex,err)
202 & ceed_elemrestriction_none,bxhex,ceed_vector_none,err)
204 & bxhex,ceed_vector_active,err)
206 ceed_basis_none,qdatahex,err)
209 & ceed_qfunction_none,op_diffhex,err)
211 ceed_basis_none,qdatahex,err)
213 & buhex,ceed_vector_active,err)
215 & buhex,ceed_vector_active,err)
218 call ceedoperatorcreatecomposite(ceed,op_setup,err)
219 call ceedoperatorcompositeaddsub(op_setup,op_setuptet,err)
220 call ceedoperatorcompositeaddsub(op_setup,op_setuphex,err)
222 call ceedoperatorcreatecomposite(ceed,op_diff,err)
223 call ceedoperatorcompositeaddsub(op_diff,op_difftet,err)
224 call ceedoperatorcompositeaddsub(op_diff,op_diffhex,err)
228 & ceed_request_immediate,err)
231 call ceedvectorcreate(ceed,ndofs,u,err)
232 call ceedvectorsetvalue(u,1.d0,err)
233 call ceedvectorcreate(ceed,ndofs,v,err)
235 call ceedoperatorapply(op_diff,u,v,ceed_request_immediate,err)
238 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
246 call ceedvectorrestorearrayread(v,hv,voffset,err)
249 call ceedqfunctiondestroy(qf_setuptet,err)
250 call ceedqfunctiondestroy(qf_difftet,err)
251 call ceedoperatordestroy(op_setuptet,err)
252 call ceedoperatordestroy(op_difftet,err)
253 call ceedqfunctiondestroy(qf_setuphex,err)
254 call ceedqfunctiondestroy(qf_diffhex,err)
255 call ceedoperatordestroy(op_setuphex,err)
256 call ceedoperatordestroy(op_diffhex,err)
257 call ceedoperatordestroy(op_setup,err)
258 call ceedoperatordestroy(op_diff,err)
259 call ceedelemrestrictiondestroy(erestrictutet,err)
260 call ceedelemrestrictiondestroy(erestrictxtet,err)
261 call ceedelemrestrictiondestroy(erestrictqditet,err)
262 call ceedelemrestrictiondestroy(erestrictuhex,err)
263 call ceedelemrestrictiondestroy(erestrictxhex,err)
264 call ceedelemrestrictiondestroy(erestrictqdihex,err)
265 call ceedbasisdestroy(butet,err)
266 call ceedbasisdestroy(bxtet,err)
267 call ceedbasisdestroy(buhex,err)
268 call ceedbasisdestroy(bxhex,err)
269 call ceedvectordestroy(x,err)
270 call ceedvectordestroy(u,err)
271 call ceedvectordestroy(v,err)
272 call ceedvectordestroy(qdatatet,err)
273 call ceedvectordestroy(qdatahex,err)
274 call ceeddestroy(ceed,err)