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)
59       call ceedvectorcreate(ceed,ndofs,u,err)
61       call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
62       call ceedvectorcreate(ceed,ndofs,v,err)
63       call ceedvectorcreate(ceed,ndofs,v_lin,err)
66       call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
82      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
85      & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
88      & stridesu,erestrictui,err)
92      & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
96      & bx,err)
98      & bu,err)
103      &//'t531-operator.h:setup'//char(0),qf_setup,err)
104       call ceedqfunctionaddinput(qf_setup,'dx',d*d,ceed_eval_grad,err)
105       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
106       call ceedqfunctionaddoutput(qf_setup,'qdata',d*(d+1)/2,ceed_eval_none,err)
110      & ceed_qfunction_none,op_setup,err)
112      & bx,ceed_vector_active,err)
114      & bx,ceed_vector_none,err)
116      ceed_basis_none,ceed_vector_active,err)
119       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
124      &//'t531-operator.h:diff'//char(0),qf_diff,err)
125       call ceedqfunctionaddinput(qf_diff,'du',d,ceed_eval_grad,err)
126       call ceedqfunctionaddinput(qf_diff,'qdata',d*(d+1)/2,ceed_eval_none,err)
127       call ceedqfunctionaddoutput(qf_diff,'dv',d,ceed_eval_grad,err)
131      & ceed_qfunction_none,op_diff,err)
133      & bu,ceed_vector_active,err)
135      ceed_basis_none,qdata,err)
137      & bu,ceed_vector_active,err)
140       call ceedoperatorapply(op_diff,u,v,ceed_request_immediate,err)
144      & ceed_request_immediate,err)
149      &//'t531-operator.h:diff_lin'//char(0),qf_diff_lin,err)
150       call ceedqfunctionaddinput(qf_diff_lin,'du',d,ceed_eval_grad,err)
151       call ceedqfunctionaddinput(qf_diff_lin,'qdata',d*d,ceed_eval_none,err)
152       call ceedqfunctionaddoutput(qf_diff_lin,'dv',d,ceed_eval_grad,err)
156      & ceed_qfunction_none,op_diff_lin,err)
158      & bu,ceed_vector_active,err)
160      ceed_basis_none,a,err)
162      & bu,ceed_vector_active,err)
165       call ceedoperatorapply(op_diff_lin,u,v_lin,ceed_request_immediate,err)
168       call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
169       call ceedvectorgetarrayread(v_lin,ceed_mem_host,vvlin,vlinoffset,err)
178       call ceedvectorrestorearrayread(v,vv,voffset,err)
179       call ceedvectorrestorearrayread(v_lin,vvlin,vlinoffset,err)
182       call ceedqfunctiondestroy(qf_setup,err)
183       call ceedqfunctiondestroy(qf_diff,err)
184       call ceedqfunctiondestroy(qf_diff_lin,err)
185       call ceedoperatordestroy(op_setup,err)
186       call ceedoperatordestroy(op_diff,err)
187       call ceedoperatordestroy(op_diff_lin,err)
188       call ceedelemrestrictiondestroy(erestrictu,err)
189       call ceedelemrestrictiondestroy(erestrictx,err)
190       call ceedelemrestrictiondestroy(erestrictui,err)
191       call ceedelemrestrictiondestroy(erestrictqi,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(v_lin,err)
200       call ceedvectordestroy(qdata,err)
201       call ceeddestroy(ceed,err)