Lines Matching refs:err

11       integer ceed,err,i,j,k
40       call ceedinit(trim(arg)//char(0),ceed,err)
49       call ceedvectorcreate(ceed,d*ndofs,x,err)
51       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
54       call ceedvectorcreate(ceed,nqpts,qdata,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      & bx,err)
82      & bu,err)
88      &//'t510-operator.h:setup'//char(0),qf_setup,err)
89       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
90       call ceedqfunctionaddinput(qf_setup,'dx',d*d,ceed_eval_grad,err)
91       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
95      &//'t510-operator.h:mass'//char(0),qf_mass,err)
96       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
97       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
98       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
103      & ceed_qfunction_none,op_setup,err)
105      & bx,ceed_vector_none,err)
107      & bx,ceed_vector_active,err)
109      ceed_basis_none,ceed_vector_active,err)
112      & ceed_qfunction_none,op_mass,err)
114      ceed_basis_none,qdata,err)
116      & bu,ceed_vector_active,err)
118      & bu,ceed_vector_active,err)
121       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
125      & ceed_request_immediate,err)
128       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
129       call ceedvectorgetarrayread(qdata,ceed_mem_host,qq,qoffset,err)
138       call ceedvectorrestorearrayread(a,aa,aoffset,err)
139       call ceedvectorrestorearrayread(qdata,qq,qoffset,err)
142       call ceedvectorcreate(ceed,ndofs,u,err)
143       call ceedvectorsetvalue(u,1.d0,err)
144       call ceedvectorcreate(ceed,ndofs,v,err)
145       call ceedvectorsetvalue(v,0.d0,err)
146       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
149       call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
159       call ceedvectorrestorearrayread(v,vv,voffset,err)
162       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
164      & aoffset,err)
165       call ceedvectorrestorearrayread(a,aa,aoffset,err)
168       call ceedvectorsetvalue(v,0.d0,err)
169       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
172       call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
182       call ceedvectorrestorearrayread(v,vv,voffset,err)
185       call ceedqfunctiondestroy(qf_setup,err)
186       call ceedqfunctiondestroy(qf_mass,err)
187       call ceedoperatordestroy(op_setup,err)
188       call ceedoperatordestroy(op_mass,err)
189       call ceedelemrestrictiondestroy(erestrictu,err)
190       call ceedelemrestrictiondestroy(erestrictx,err)
191       call ceedelemrestrictiondestroy(erestrictui,err)
192       call ceedelemrestrictiondestroy(erestrictlini,err)
193       call ceedbasisdestroy(bu,err)
194       call ceedbasisdestroy(bx,err)
195       call ceedvectordestroy(x,err)
196       call ceedvectordestroy(a,err)
197       call ceedvectordestroy(u,err)
198       call ceedvectordestroy(v,err)
199       call ceedvectordestroy(qdata,err)
200       call ceeddestroy(ceed,err)