Lines Matching refs:err
11 integer ceed,err,i,j,k
41 call ceedinit(trim(arg)//char(0),ceed,err)
50 call ceedvectorcreate(ceed,d*ndofs,x,err)
52 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
55 call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
56 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
72 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
75 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
78 & stridesu,erestrictui,err)
82 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
85 call ceedbasiscreatetensorh1lagrange(ceed,d,d,p,q,ceed_gauss,bx,err)
86 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
91 &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
92 call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
93 call ceedqfunctionaddinput(qf_setup_mass,'weight',1,ceed_eval_weight,err)
94 call ceedqfunctionaddoutput(qf_setup_mass,'qdata',1,ceed_eval_none,err)
98 & ceed_qfunction_none,op_setup_mass,err)
100 & bx,ceed_vector_active,err)
102 & ceed_elemrestriction_none,bx,ceed_vector_none,err)
104 ceed_basis_none,ceed_vector_active,err)
109 &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
110 call ceedqfunctionaddinput(qf_setup_diff,'dx',d*d,ceed_eval_grad,err)
111 call ceedqfunctionaddinput(qf_setup_diff,'weight',1,ceed_eval_weight,err)
113 & d*(d+1)/2,ceed_eval_none,err)
117 & ceed_qfunction_none,op_setup_diff,err)
119 & bx,ceed_vector_active,err)
121 & ceed_elemrestriction_none,bx,ceed_vector_none,err)
123 ceed_basis_none,ceed_vector_active,err)
127 & ceed_request_immediate,err)
129 & ceed_request_immediate,err)
134 &//'t532-operator.h:apply'//char(0),qf_apply,err)
135 call ceedqfunctionaddinput(qf_apply,'du',d,ceed_eval_grad,err)
136 call ceedqfunctionaddinput(qf_apply,'mass qdata',1,ceed_eval_none,err)
138 & d*(d+1)/2,ceed_eval_none,err)
139 call ceedqfunctionaddinput(qf_apply,'u',1,ceed_eval_interp,err)
140 call ceedqfunctionaddoutput(qf_apply,'v',1,ceed_eval_interp,err)
141 call ceedqfunctionaddoutput(qf_apply,'dv',d,ceed_eval_grad,err)
145 & ceed_qfunction_none,op_apply,err)
147 & bu,ceed_vector_active,err)
149 ceed_basis_none,qdata_mass,err)
151 ceed_basis_none,qdata_diff,err)
153 & bu,ceed_vector_active,err)
155 & bu,ceed_vector_active,err)
157 & bu,ceed_vector_active,err)
160 call ceedvectorcreate(ceed,ndofs,u,err)
161 call ceedvectorsetvalue(u,1.d0,err)
162 call ceedvectorcreate(ceed,ndofs,v,err)
163 call ceedvectorsetvalue(v,0.d0,err)
164 call ceedoperatorapply(op_apply,u,v,ceed_request_immediate,err)
167 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
177 call ceedvectorrestorearrayread(v,vv,voffset,err)
181 & ceed_request_immediate,err)
186 &//'t532-operator.h:apply_lin'//char(0),qf_apply_lin,err)
187 call ceedqfunctionaddinput(qf_apply_lin,'du',d,ceed_eval_grad,err)
189 & ceed_eval_none,err)
190 call ceedqfunctionaddinput(qf_apply_lin,'u',1,ceed_eval_interp,err)
191 call ceedqfunctionaddoutput(qf_apply_lin,'v',1,ceed_eval_interp,err)
192 call ceedqfunctionaddoutput(qf_apply_lin,'dv',d,ceed_eval_grad,err)
196 & ceed_qfunction_none,op_apply_lin,err)
198 & bu,ceed_vector_active,err)
200 ceed_basis_none,a,err)
202 & bu,ceed_vector_active,err)
204 & bu,ceed_vector_active,err)
206 & bu,ceed_vector_active,err)
209 call ceedvectorsetvalue(v,0.d0,err)
210 call ceedoperatorapply(op_apply_lin,u,v,ceed_request_immediate,err)
213 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
223 call ceedvectorrestorearrayread(v,vv,voffset,err)
226 call ceedqfunctiondestroy(qf_setup_mass,err)
227 call ceedqfunctiondestroy(qf_setup_diff,err)
228 call ceedqfunctiondestroy(qf_apply,err)
229 call ceedqfunctiondestroy(qf_apply_lin,err)
230 call ceedoperatordestroy(op_setup_mass,err)
231 call ceedoperatordestroy(op_setup_diff,err)
232 call ceedoperatordestroy(op_apply,err)
233 call ceedoperatordestroy(op_apply_lin,err)
234 call ceedelemrestrictiondestroy(erestrictu,err)
235 call ceedelemrestrictiondestroy(erestrictx,err)
236 call ceedelemrestrictiondestroy(erestrictui,err)
237 call ceedelemrestrictiondestroy(erestrictqi,err)
238 call ceedelemrestrictiondestroy(erestrictlini,err)
239 call ceedbasisdestroy(bu,err)
240 call ceedbasisdestroy(bx,err)
241 call ceedvectordestroy(x,err)
242 call ceedvectordestroy(a,err)
243 call ceedvectordestroy(u,err)
244 call ceedvectordestroy(v,err)
245 call ceedvectordestroy(qdata_mass,err)
246 call ceedvectordestroy(qdata_diff,err)
247 call ceeddestroy(ceed,err)