Lines Matching refs:err

15       integer ceed,err,i
48       call ceedinit(trim(arg)//char(0),ceed,err)
57       call ceedvectorcreate(ceed,d*ndofs,x,err)
59       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
62       call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
63       call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
88      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
91      & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
94      & stridesu,erestrictui,err)
98      & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
103      & bx,err)
106      & bu,err)
111      &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
112       call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
113       call ceedqfunctionaddinput(qf_setup_mass,'weight',1,ceed_eval_weight,err)
114       call ceedqfunctionaddoutput(qf_setup_mass,'qdata',1,ceed_eval_none,err)
118      & ceed_qfunction_none,op_setup_mass,err)
120      & bx,ceed_vector_active,err)
122      & ceed_elemrestriction_none,bx,ceed_vector_none,err)
124      ceed_basis_none,ceed_vector_active,err)
129      &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
130       call ceedqfunctionaddinput(qf_setup_diff,'dx',d*d,ceed_eval_grad,err)
131       call ceedqfunctionaddinput(qf_setup_diff,'weight',1,ceed_eval_weight,err)
133      & d*(d+1)/2,ceed_eval_none,err)
137      & ceed_qfunction_none,op_setup_diff,err)
139      & bx,ceed_vector_active,err)
141      & ceed_elemrestriction_none,bx,ceed_vector_none,err)
143      ceed_basis_none,ceed_vector_active,err)
147      & ceed_request_immediate,err)
149      & ceed_request_immediate,err)
154      &//'t532-operator.h:apply'//char(0),qf_apply,err)
155       call ceedqfunctionaddinput(qf_apply,'du',d,ceed_eval_grad,err)
156       call ceedqfunctionaddinput(qf_apply,'mass qdata',1,ceed_eval_none,err)
158      & d*(d+1)/2,ceed_eval_none,err)
159       call ceedqfunctionaddinput(qf_apply,'u',1,ceed_eval_interp,err)
160       call ceedqfunctionaddoutput(qf_apply,'v',1,ceed_eval_interp,err)
161       call ceedqfunctionaddoutput(qf_apply,'dv',d,ceed_eval_grad,err)
165      & ceed_qfunction_none,op_apply,err)
167      & bu,ceed_vector_active,err)
169      ceed_basis_none,qdata_mass,err)
171      ceed_basis_none,qdata_diff,err)
173      & bu,ceed_vector_active,err)
175      & bu,ceed_vector_active,err)
177      & bu,ceed_vector_active,err)
180       call ceedvectorcreate(ceed,ndofs,a,err)
182      & ceed_request_immediate,err)
185       call ceedvectorcreate(ceed,ndofs,u,err)
186       call ceedvectorsetvalue(u,0.d0,err)
187       call ceedvectorcreate(ceed,ndofs,v,err)
189         call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
194         call ceedvectorrestorearray(u,uu,uoffset,err)
196         call ceedoperatorapply(op_apply,u,v,ceed_request_immediate,err)
198         call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
200         call ceedvectorrestorearrayread(v,vv,voffset,err)
204       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
213       call ceedvectorrestorearrayread(a,aa,aoffset,err)
216       call ceedqfunctiondestroy(qf_setup_mass,err)
217       call ceedqfunctiondestroy(qf_setup_diff,err)
218       call ceedqfunctiondestroy(qf_apply,err)
219       call ceedoperatordestroy(op_setup_mass,err)
220       call ceedoperatordestroy(op_setup_diff,err)
221       call ceedoperatordestroy(op_apply,err)
222       call ceedelemrestrictiondestroy(erestrictu,err)
223       call ceedelemrestrictiondestroy(erestrictx,err)
224       call ceedelemrestrictiondestroy(erestrictui,err)
225       call ceedelemrestrictiondestroy(erestrictqi,err)
226       call ceedbasisdestroy(bu,err)
227       call ceedbasisdestroy(bx,err)
228       call ceedvectordestroy(x,err)
229       call ceedvectordestroy(a,err)
230       call ceedvectordestroy(u,err)
231       call ceedvectordestroy(v,err)
232       call ceedvectordestroy(qdata_mass,err)
233       call ceedvectordestroy(qdata_diff,err)
234       call ceeddestroy(ceed,err)