Lines Matching refs:err

15       integer ceed,err,i,j,k
59       call ceedinit(trim(arg)//char(0),ceed,err)
69       call ceedvectorcreate(ceed,d*ndofs,x,err)
71       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
74       call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
75       call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
100      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
102      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
105      & nqptstet,stridesutet,erestrictuitet,err)
110      & qweight,bxtet,err)
113      & qweight,butet,err)
118      &//'t510-operator.h:setup'//char(0),qf_setuptet,err)
119       call ceedqfunctionaddinput(qf_setuptet,'weight',1,ceed_eval_weight,err)
120       call ceedqfunctionaddinput(qf_setuptet,'dx',d*d,ceed_eval_grad,err)
121       call ceedqfunctionaddoutput(qf_setuptet,'rho',1,ceed_eval_none,err)
125      &//'t510-operator.h:mass'//char(0),qf_masstet,err)
126       call ceedqfunctionaddinput(qf_masstet,'rho',1,ceed_eval_none,err)
127       call ceedqfunctionaddinput(qf_masstet,'u',1,ceed_eval_interp,err)
128       call ceedqfunctionaddoutput(qf_masstet,'v',1,ceed_eval_interp,err)
133      & ceed_qfunction_none,op_setuptet,err)
135      & ceed_elemrestriction_none,bxtet,ceed_vector_none,err)
137      & bxtet,ceed_vector_active,err)
139      ceed_basis_none,qdatatet,err)
142      & ceed_qfunction_none,op_masstet,err)
144      ceed_basis_none,qdatatet,err)
146      & butet,ceed_vector_active,err)
148      & butet,ceed_vector_active,err)
164      & d*ndofs,ceed_mem_host,ceed_use_pointer,indxhex,erestrictxhex,err)
167      & ndofs,ceed_mem_host,ceed_use_pointer,indxhex,erestrictuhex,err)
170      & 1,nqptshex,stridesuhex,erestrictuihex,err)
174      & bxhex,err)
176      & buhex,err)
181      &//'t510-operator.h:setup'//char(0),qf_setuphex,err)
182       call ceedqfunctionaddinput(qf_setuphex,'_weight',1,ceed_eval_weight,err)
183       call ceedqfunctionaddinput(qf_setuphex,'dx',d*d,ceed_eval_grad,err)
184       call ceedqfunctionaddoutput(qf_setuphex,'rho',1,ceed_eval_none,err)
188      &//'t510-operator.h:mass'//char(0),qf_masshex,err)
189       call ceedqfunctionaddinput(qf_masshex,'rho',1,ceed_eval_none,err)
190       call ceedqfunctionaddinput(qf_masshex,'u',1,ceed_eval_interp,err)
191       call ceedqfunctionaddoutput(qf_masshex,'v',1,ceed_eval_interp,err)
196      & ceed_qfunction_none,op_setuphex,err)
198      & ceed_elemrestriction_none,bxhex,ceed_vector_none,err)
200      & bxhex,ceed_vector_active,err)
202      ceed_basis_none,qdatahex,err)
205      & ceed_qfunction_none,op_masshex,err)
207      ceed_basis_none,qdatahex,err)
209      & buhex,ceed_vector_active,err)
211      & buhex,ceed_vector_active,err)
214       call ceedoperatorcreatecomposite(ceed,op_setup,err)
215       call ceedoperatorcompositeaddsub(op_setup,op_setuptet,err)
216       call ceedoperatorcompositeaddsub(op_setup,op_setuphex,err)
218       call ceedoperatorcreatecomposite(ceed,op_mass,err)
219       call ceedoperatorcompositeaddsub(op_mass,op_masstet,err)
220       call ceedoperatorcompositeaddsub(op_mass,op_masshex,err)
224      & ceed_request_immediate,err)
227       call ceedvectorcreate(ceed,ndofs,u,err)
228       call ceedvectorsetvalue(u,0.d0,err)
229       call ceedvectorcreate(ceed,ndofs,v,err)
231       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
234       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
242       call ceedvectorrestorearrayread(v,hv,voffset,err)
245       call ceedqfunctiondestroy(qf_setuptet,err)
246       call ceedqfunctiondestroy(qf_masstet,err)
247       call ceedoperatordestroy(op_setuptet,err)
248       call ceedoperatordestroy(op_masstet,err)
249       call ceedqfunctiondestroy(qf_setuphex,err)
250       call ceedqfunctiondestroy(qf_masshex,err)
251       call ceedoperatordestroy(op_setuphex,err)
252       call ceedoperatordestroy(op_masshex,err)
253       call ceedoperatordestroy(op_setup,err)
254       call ceedoperatordestroy(op_mass,err)
255       call ceedelemrestrictiondestroy(erestrictutet,err)
256       call ceedelemrestrictiondestroy(erestrictxtet,err)
257       call ceedelemrestrictiondestroy(erestrictuitet,err)
258       call ceedelemrestrictiondestroy(erestrictuhex,err)
259       call ceedelemrestrictiondestroy(erestrictxhex,err)
260       call ceedelemrestrictiondestroy(erestrictuihex,err)
261       call ceedbasisdestroy(butet,err)
262       call ceedbasisdestroy(bxtet,err)
263       call ceedbasisdestroy(buhex,err)
264       call ceedbasisdestroy(bxhex,err)
265       call ceedvectordestroy(x,err)
266       call ceedvectordestroy(u,err)
267       call ceedvectordestroy(v,err)
268       call ceedvectordestroy(qdatatet,err)
269       call ceedvectordestroy(qdatahex,err)
270       call ceeddestroy(ceed,err)