Lines Matching refs:err

15       integer ceed,err,i
51       call ceedinit(trim(arg)//char(0),ceed,err)
80      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
83      & ceed_use_pointer,indx,erestrictu,err)
86      & erestrictui,err)
90      & bx,err)
93      & bu,err)
97      &//'t510-operator.h:setup'//char(0),qf_setup,err)
98       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
99       call ceedqfunctionaddinput(qf_setup,'x',d*d,ceed_eval_grad,err)
100       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
104      &//'t510-operator.h:mass'//char(0),qf_mass,err)
105       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
106       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
107       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
110      & ceed_qfunction_none,op_setup,err)
112      & ceed_qfunction_none,op_mass,err)
114       call ceedvectorcreate(ceed,d*ndofs,x,err)
116       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
117       call ceedvectorcreate(ceed,nqpts,qdata,err)
120      & bx,ceed_vector_none,err)
122      & ceed_vector_active,err)
124      ceed_basis_none,ceed_vector_active,err)
126      ceed_basis_none,qdata,err)
128      & ceed_vector_active,err)
130      & ceed_vector_active,err)
132       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
134       call ceedvectorcreate(ceed,ndofs,u,err)
135       call ceedvectorsetvalue(u,1.d0,err)
136       call ceedvectorcreate(ceed,ndofs,v,err)
137       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
139       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
149       call ceedvectorrestorearrayread(v,hv,voffset,err)
151       call ceedvectordestroy(qdata,err)
152       call ceedvectordestroy(x,err)
153       call ceedvectordestroy(u,err)
154       call ceedvectordestroy(v,err)
155       call ceedoperatordestroy(op_mass,err)
156       call ceedoperatordestroy(op_setup,err)
157       call ceedqfunctiondestroy(qf_mass,err)
158       call ceedqfunctiondestroy(qf_setup,err)
159       call ceedbasisdestroy(bu,err)
160       call ceedbasisdestroy(bx,err)
161       call ceedelemrestrictiondestroy(erestrictu,err)
162       call ceedelemrestrictiondestroy(erestrictx,err)
163       call ceedelemrestrictiondestroy(erestrictui,err)
164       call ceeddestroy(ceed,err)