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      & nqptstet,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      & d*ndofs,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)
198      & ceed_qfunction_none,op_setuphex,err)
200      & ceed_elemrestriction_none,bxhex,ceed_vector_none,err)
202      & bxhex,ceed_vector_active,err)
204      ceed_basis_none,qdatahex,err)
207      & ceed_qfunction_none,op_masshex,err)
209      ceed_basis_none,qdatahex,err)
211      & buhex,ceed_vector_active,err)
213      & buhex,ceed_vector_active,err)
216       call ceedoperatorcreatecomposite(ceed,op_setup,err)
217       call ceedoperatorcompositeaddsub(op_setup,op_setuptet,err)
218       call ceedoperatorcompositeaddsub(op_setup,op_setuphex,err)
220       call ceedoperatorcreatecomposite(ceed,op_mass,err)
221       call ceedoperatorcompositeaddsub(op_mass,op_masstet,err)
222       call ceedoperatorcompositeaddsub(op_mass,op_masshex,err)
226      & ceed_request_immediate,err)
229       call ceedvectorcreate(ceed,ndofs,u,err)
230       call ceedvectorsetvalue(u,1.d0,err)
231       call ceedvectorcreate(ceed,ndofs,v,err)
233       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
236       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_masstet,err)
251       call ceedoperatordestroy(op_setuptet,err)
252       call ceedoperatordestroy(op_masstet,err)
253       call ceedqfunctiondestroy(qf_setuphex,err)
254       call ceedqfunctiondestroy(qf_masshex,err)
255       call ceedoperatordestroy(op_setuphex,err)
256       call ceedoperatordestroy(op_masshex,err)
257       call ceedoperatordestroy(op_setup,err)
258       call ceedoperatordestroy(op_mass,err)
259       call ceedelemrestrictiondestroy(erestrictutet,err)
260       call ceedelemrestrictiondestroy(erestrictxtet,err)
261       call ceedelemrestrictiondestroy(erestrictuitet,err)
262       call ceedelemrestrictiondestroy(erestrictuhex,err)
263       call ceedelemrestrictiondestroy(erestrictxhex,err)
264       call ceedelemrestrictiondestroy(erestrictuihex,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)