Lines Matching refs:err

11       integer ceed,err,i,j,k
39       call ceedinit(trim(arg)//char(0),ceed,err)
48       call ceedvectorcreate(ceed,d*ndofs,x,err)
50       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53       call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
54       call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
70      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
73      & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
76      & stridesu,erestrictui,err)
80      & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
83       call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,bx,err)
84       call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
89      &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
90       call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
91       call ceedqfunctionaddinput(qf_setup_mass,'weight',1,ceed_eval_weight,err)
92       call ceedqfunctionaddoutput(qf_setup_mass,'qdata',1,ceed_eval_none,err)
96      & ceed_qfunction_none,op_setup_mass,err)
98      & bx,ceed_vector_active,err)
100      & ceed_elemrestriction_none,bx,ceed_vector_none,err)
102      ceed_basis_none,ceed_vector_active,err)
107      &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
108       call ceedqfunctionaddinput(qf_setup_diff,'dx',d*d,ceed_eval_grad,err)
109       call ceedqfunctionaddinput(qf_setup_diff,'weight',1,ceed_eval_weight,err)
111      & d*(d+1)/2,ceed_eval_none,err)
115      & ceed_qfunction_none,op_setup_diff,err)
117      & bx,ceed_vector_active,err)
119      & ceed_elemrestriction_none,bx,ceed_vector_none,err)
121      ceed_basis_none,ceed_vector_active,err)
125      & ceed_request_immediate,err)
127      & ceed_request_immediate,err)
132      &//'t532-operator.h:apply'//char(0),qf_apply,err)
133       call ceedqfunctionaddinput(qf_apply,'du',d,ceed_eval_grad,err)
134       call ceedqfunctionaddinput(qf_apply,'mass qdata',1,ceed_eval_none,err)
136      & d*(d+1)/2,ceed_eval_none,err)
137       call ceedqfunctionaddinput(qf_apply,'u',1,ceed_eval_interp,err)
138       call ceedqfunctionaddoutput(qf_apply,'v',1,ceed_eval_interp,err)
139       call ceedqfunctionaddoutput(qf_apply,'dv',d,ceed_eval_grad,err)
143      & ceed_qfunction_none,op_apply,err)
145      & bu,ceed_vector_active,err)
147      ceed_basis_none,qdata_mass,err)
149      ceed_basis_none,qdata_diff,err)
151      & bu,ceed_vector_active,err)
153      & bu,ceed_vector_active,err)
155      & bu,ceed_vector_active,err)
158       call ceedvectorcreate(ceed,ndofs,a,err)
160      & ceed_request_immediate,err)
163       call ceedvectorcreate(ceed,ndofs,u,err)
164       call ceedvectorsetvalue(u,0.d0,err)
165       call ceedvectorcreate(ceed,ndofs,v,err)
167         call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
172         call ceedvectorrestorearray(u,uu,uoffset,err)
174         call ceedoperatorapply(op_apply,u,v,ceed_request_immediate,err)
176         call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
178         call ceedvectorrestorearrayread(v,vv,voffset,err)
182       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
191       call ceedvectorrestorearrayread(a,aa,aoffset,err)
194       call ceedqfunctiondestroy(qf_setup_mass,err)
195       call ceedqfunctiondestroy(qf_setup_diff,err)
196       call ceedqfunctiondestroy(qf_apply,err)
197       call ceedoperatordestroy(op_setup_mass,err)
198       call ceedoperatordestroy(op_setup_diff,err)
199       call ceedoperatordestroy(op_apply,err)
200       call ceedelemrestrictiondestroy(erestrictu,err)
201       call ceedelemrestrictiondestroy(erestrictx,err)
202       call ceedelemrestrictiondestroy(erestrictui,err)
203       call ceedelemrestrictiondestroy(erestrictqi,err)
204       call ceedbasisdestroy(bu,err)
205       call ceedbasisdestroy(bx,err)
206       call ceedvectordestroy(x,err)
207       call ceedvectordestroy(a,err)
208       call ceedvectordestroy(u,err)
209       call ceedvectordestroy(v,err)
210       call ceedvectordestroy(qdata_mass,err)
211       call ceedvectordestroy(qdata_diff,err)
212       call ceeddestroy(ceed,err)