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,qdatatet,err)
76       call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
101      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
104      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
107      & stridesutet,erestrictuitet,err)
112      & qweight,bxtet,err)
115      & qweight,butet,err)
120      &//'t510-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)
123       call ceedqfunctionaddoutput(qf_setuptet,'rho',1,ceed_eval_none,err)
127      &//'t510-operator.h:mass'//char(0),qf_masstet,err)
128       call ceedqfunctionaddinput(qf_masstet,'rho',1,ceed_eval_none,err)
129       call ceedqfunctionaddinput(qf_masstet,'u',1,ceed_eval_interp,err)
130       call ceedqfunctionaddoutput(qf_masstet,'v',1,ceed_eval_interp,err)
135      & ceed_qfunction_none,op_setuptet,err)
137      & ceed_elemrestriction_none,bxtet,ceed_vector_none,err)
139      & bxtet,ceed_vector_active,err)
141      ceed_basis_none,qdatatet,err)
144      & ceed_qfunction_none,op_masstet,err)
146      ceed_basis_none,qdatatet,err)
148      & butet,ceed_vector_active,err)
150      & butet,ceed_vector_active,err)
166      & ceed_mem_host,ceed_use_pointer,indxhex,erestrictxhex,err)
169      & ceed_mem_host,ceed_use_pointer,indxhex,erestrictuhex,err)
172      & 1,nqptshex,stridesuhex,erestrictuihex,err)
176      & bxhex,err)
178      & buhex,err)
183      &//'t510-operator.h:setup'//char(0),qf_setuphex,err)
184       call ceedqfunctionaddinput(qf_setuphex,'_weight',1,ceed_eval_weight,err)
185       call ceedqfunctionaddinput(qf_setuphex,'dx',d*d,ceed_eval_grad,err)
186       call ceedqfunctionaddoutput(qf_setuphex,'rho',1,ceed_eval_none,err)
190      &//'t510-operator.h:mass'//char(0),qf_masshex,err)
191       call ceedqfunctionaddinput(qf_masshex,'rho',1,ceed_eval_none,err)
192       call ceedqfunctionaddinput(qf_masshex,'u',1,ceed_eval_interp,err)
193       call ceedqfunctionaddoutput(qf_masshex,'v',1,ceed_eval_interp,err)
199      & err)
201      & ceed_elemrestriction_none,bxhex,ceed_vector_none,err)
203      & bxhex,ceed_vector_active,err)
205      ceed_basis_none,qdatahex,err)
209      & 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_mass,err)
223       call ceedoperatorcompositeaddsub(op_mass,op_masstet,err)
224       call ceedoperatorcompositeaddsub(op_mass,op_masshex,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)
234       call ceedvectorsetvalue(v,0.d0,err)
236       call ceedoperatorapplyadd(op_mass,u,v,ceed_request_immediate,err)
239       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
249       call ceedvectorrestorearrayread(v,hv,voffset,err)
251       call ceedvectorsetvalue(v,1.d0,err)
252       call ceedoperatorapplyadd(op_mass,u,v,ceed_request_immediate,err)
255       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
265       call ceedvectorrestorearrayread(v,hv,voffset,err)
268       call ceedqfunctiondestroy(qf_setuptet,err)
269       call ceedqfunctiondestroy(qf_masstet,err)
270       call ceedoperatordestroy(op_setuptet,err)
271       call ceedoperatordestroy(op_masstet,err)
272       call ceedqfunctiondestroy(qf_setuphex,err)
273       call ceedqfunctiondestroy(qf_masshex,err)
274       call ceedoperatordestroy(op_setuphex,err)
275       call ceedoperatordestroy(op_masshex,err)
276       call ceedoperatordestroy(op_setup,err)
277       call ceedoperatordestroy(op_mass,err)
278       call ceedelemrestrictiondestroy(erestrictutet,err)
279       call ceedelemrestrictiondestroy(erestrictxtet,err)
280       call ceedelemrestrictiondestroy(erestrictuitet,err)
281       call ceedelemrestrictiondestroy(erestrictuhex,err)
282       call ceedelemrestrictiondestroy(erestrictxhex,err)
283       call ceedelemrestrictiondestroy(erestrictuihex,err)
284       call ceedbasisdestroy(butet,err)
285       call ceedbasisdestroy(bxtet,err)
286       call ceedbasisdestroy(buhex,err)
287       call ceedbasisdestroy(bxhex,err)
288       call ceedvectordestroy(x,err)
289       call ceedvectordestroy(u,err)
290       call ceedvectordestroy(v,err)
291       call ceedvectordestroy(qdatatet,err)
292       call ceedvectordestroy(qdatahex,err)
293       call ceeddestroy(ceed,err)