Lines Matching refs:err

11       integer ceed,err,i,j,k
39       call ceedinit(trim(arg)//char(0),ceed,err)
48       call ceedvectorcreate(ceed,d*ndofs,x,err)
50       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53       call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
69      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
72      & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
75      & stridesu,erestrictui,err)
79      & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
83      & bx,err)
85      & bu,err)
90      &//'t531-operator.h:setup'//char(0),qf_setup,err)
91       call ceedqfunctionaddinput(qf_setup,'dx',d*d,ceed_eval_grad,err)
92       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
93       call ceedqfunctionaddoutput(qf_setup,'qdata',d*(d+1)/2,ceed_eval_none,err)
97      & ceed_qfunction_none,op_setup,err)
99      & bx,ceed_vector_active,err)
101      & bx,ceed_vector_none,err)
103      ceed_basis_none,ceed_vector_active,err)
106       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
111      &//'t531-operator.h:diff'//char(0),qf_diff,err)
112       call ceedqfunctionaddinput(qf_diff,'du',d,ceed_eval_grad,err)
113       call ceedqfunctionaddinput(qf_diff,'qdata',d*(d+1)/2,ceed_eval_none,err)
114       call ceedqfunctionaddoutput(qf_diff,'dv',d,ceed_eval_grad,err)
118      & ceed_qfunction_none,op_diff,err)
120      & bu,ceed_vector_active,err)
122      ceed_basis_none,qdata,err)
124      & bu,ceed_vector_active,err)
127       call ceedvectorcreate(ceed,ndofs,a,err)
129      & ceed_request_immediate,err)
132       call ceedvectorcreate(ceed,ndofs,u,err)
133       call ceedvectorsetvalue(u,0.d0,err)
134       call ceedvectorcreate(ceed,ndofs,v,err)
136         call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
141         call ceedvectorrestorearray(u,uu,uoffset,err)
143         call ceedoperatorapply(op_diff,u,v,ceed_request_immediate,err)
145         call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
147         call ceedvectorrestorearrayread(v,vv,voffset,err)
151       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
160       call ceedvectorrestorearrayread(a,aa,aoffset,err)
163       call ceedqfunctiondestroy(qf_setup,err)
164       call ceedqfunctiondestroy(qf_diff,err)
165       call ceedoperatordestroy(op_setup,err)
166       call ceedoperatordestroy(op_diff,err)
167       call ceedelemrestrictiondestroy(erestrictu,err)
168       call ceedelemrestrictiondestroy(erestrictx,err)
169       call ceedelemrestrictiondestroy(erestrictui,err)
170       call ceedelemrestrictiondestroy(erestrictqi,err)
171       call ceedbasisdestroy(bu,err)
172       call ceedbasisdestroy(bx,err)
173       call ceedvectordestroy(x,err)
174       call ceedvectordestroy(a,err)
175       call ceedvectordestroy(u,err)
176       call ceedvectordestroy(v,err)
177       call ceedvectordestroy(qdata,err)
178       call ceeddestroy(ceed,err)