Lines Matching refs:err

15       integer ceed,err,i,j,k
57       call ceedinit(trim(arg)//char(0),ceed,err)
60       call ceedvectorcreate(ceed,d*ndofs,x,err)
63       call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
64       call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
89      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
92      & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
95      & stridesutet,erestrictuitet,err)
100      & qweight,bxtet,err)
103      & qweight,butet,err)
108      &//'t510-operator.h:setup'//char(0),qf_setuptet,err)
109       call ceedqfunctionaddinput(qf_setuptet,'weight',1,ceed_eval_weight,err)
110       call ceedqfunctionaddinput(qf_setuptet,'dx',d*d,ceed_eval_grad,err)
111       call ceedqfunctionaddoutput(qf_setuptet,'rho',1,ceed_eval_none,err)
115      &//'t510-operator.h:mass'//char(0),qf_masstet,err)
116       call ceedqfunctionaddinput(qf_masstet,'rho',1,ceed_eval_none,err)
117       call ceedqfunctionaddinput(qf_masstet,'u',1,ceed_eval_interp,err)
118       call ceedqfunctionaddoutput(qf_masstet,'v',1,ceed_eval_interp,err)
123      & ceed_qfunction_none,op_setuptet,err)
124       call ceedoperatorsetname(op_setuptet,'triangle elements',err)
126      & ceed_elemrestriction_none,bxtet,ceed_vector_none,err)
128      & bxtet,ceed_vector_active,err)
130      ceed_basis_none,qdatatet,err)
133      & ceed_qfunction_none,op_masstet,err)
134       call ceedoperatorsetname(op_masstet,'triangle elements',err)
136      ceed_basis_none,qdatatet,err)
138      & butet,ceed_vector_active,err)
140      & butet,ceed_vector_active,err)
156      & ceed_mem_host,ceed_use_pointer,indxhex,erestrictxhex,err)
159      & ceed_mem_host,ceed_use_pointer,indxhex,erestrictuhex,err)
162      & 1,nqptshex,stridesuhex,erestrictuihex,err)
166      & bxhex,err)
168      & buhex,err)
173      &//'t510-operator.h:setup'//char(0),qf_setuphex,err)
174       call ceedqfunctionaddinput(qf_setuphex,'weight',1,ceed_eval_weight,err)
175       call ceedqfunctionaddinput(qf_setuphex,'dx',d*d,ceed_eval_grad,err)
176       call ceedqfunctionaddoutput(qf_setuphex,'rho',1,ceed_eval_none,err)
180      &//'t510-operator.h:mass'//char(0),qf_masshex,err)
181       call ceedqfunctionaddinput(qf_masshex,'rho',1,ceed_eval_none,err)
182       call ceedqfunctionaddinput(qf_masshex,'u',1,ceed_eval_interp,err)
183       call ceedqfunctionaddoutput(qf_masshex,'v',1,ceed_eval_interp,err)
188      & ceed_qfunction_none,op_setuphex,err)
189       call ceedoperatorsetname(op_setuphex,'quadrilateral elements',err)
191      & ceed_elemrestriction_none,bxhex,ceed_vector_none,err)
193      & bxhex,ceed_vector_active,err)
195      ceed_basis_none,qdatahex,err)
198      & ceed_qfunction_none,op_masshex,err)
199       call ceedoperatorsetname(op_masshex,'quadrilateral elements',err)
201      ceed_basis_none,qdatahex,err)
203      & buhex,ceed_vector_active,err)
205      & buhex,ceed_vector_active,err)
208       call ceedoperatorcreatecomposite(ceed,op_setup,err)
209       call ceedoperatorsetname(op_setup,'setup',err)
210       call ceedoperatorcompositeaddsub(op_setup,op_setuptet,err)
211       call ceedoperatorcompositeaddsub(op_setup,op_setuphex,err)
213       call ceedoperatorcreatecomposite(ceed,op_mass,err)
214       call ceedoperatorsetname(op_mass,'mass',err)
215       call ceedoperatorsetnumviewtabs(op_mass,1,err)
216       call ceedoperatorcompositeaddsub(op_mass,op_masstet,err)
217       call ceedoperatorcompositeaddsub(op_mass,op_masshex,err)
220       call ceedoperatorview(op_setup,err)
221       call ceedoperatorview(op_mass,err)
224       call ceedqfunctiondestroy(qf_setuptet,err)
225       call ceedqfunctiondestroy(qf_masstet,err)
226       call ceedoperatordestroy(op_setuptet,err)
227       call ceedoperatordestroy(op_masstet,err)
228       call ceedqfunctiondestroy(qf_setuphex,err)
229       call ceedqfunctiondestroy(qf_masshex,err)
230       call ceedoperatordestroy(op_setuphex,err)
231       call ceedoperatordestroy(op_masshex,err)
232       call ceedoperatordestroy(op_setup,err)
233       call ceedoperatordestroy(op_mass,err)
234       call ceedelemrestrictiondestroy(erestrictutet,err)
235       call ceedelemrestrictiondestroy(erestrictxtet,err)
236       call ceedelemrestrictiondestroy(erestrictuitet,err)
237       call ceedelemrestrictiondestroy(erestrictuhex,err)
238       call ceedelemrestrictiondestroy(erestrictxhex,err)
239       call ceedelemrestrictiondestroy(erestrictuihex,err)
240       call ceedbasisdestroy(butet,err)
241       call ceedbasisdestroy(bxtet,err)
242       call ceedbasisdestroy(buhex,err)
243       call ceedbasisdestroy(bxhex,err)
244       call ceedvectordestroy(x,err)
245       call ceedvectordestroy(qdatatet,err)
246       call ceedvectordestroy(qdatahex,err)
247       call ceeddestroy(ceed,err)