Lines Matching refs:err

15       integer ceed,err,i
50       call ceedinit(trim(arg)//char(0),ceed,err)
79      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
82      & ceed_use_pointer,indx,erestrictu,err)
85      & erestrictui,err)
89      & bx,err)
92      & bu,err)
96      &//'t510-operator.h:setup'//char(0),qf_setup,err)
97       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
98       call ceedqfunctionaddinput(qf_setup,'x',d*d,ceed_eval_grad,err)
99       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
103      &//'t510-operator.h:mass'//char(0),qf_mass,err)
104       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
105       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
106       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
109      & ceed_qfunction_none,op_setup,err)
111      & ceed_qfunction_none,op_mass,err)
113       call ceedvectorcreate(ceed,d*ndofs,x,err)
115       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
116       call ceedvectorcreate(ceed,nqpts,qdata,err)
119      & bx,ceed_vector_none,err)
121      & ceed_vector_active,err)
123      ceed_basis_none,ceed_vector_active,err)
125      ceed_basis_none,qdata,err)
127      & ceed_vector_active,err)
129      & ceed_vector_active,err)
131       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
133       call ceedvectorcreate(ceed,ndofs,u,err)
134       call ceedvectorsetvalue(u,0.d0,err)
135       call ceedvectorcreate(ceed,ndofs,v,err)
136       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
138       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
146       call ceedvectorrestorearrayread(v,hv,voffset,err)
148       call ceedvectordestroy(qdata,err)
149       call ceedvectordestroy(x,err)
150       call ceedvectordestroy(u,err)
151       call ceedvectordestroy(v,err)
152       call ceedoperatordestroy(op_mass,err)
153       call ceedoperatordestroy(op_setup,err)
154       call ceedqfunctiondestroy(qf_mass,err)
155       call ceedqfunctiondestroy(qf_setup,err)
156       call ceedbasisdestroy(bu,err)
157       call ceedbasisdestroy(bx,err)
158       call ceedelemrestrictiondestroy(erestrictu,err)
159       call ceedelemrestrictiondestroy(erestrictx,err)
160       call ceedelemrestrictiondestroy(erestrictui,err)
161       call ceeddestroy(ceed,err)