Lines Matching refs:err

11       integer ceed,err,i,j
45       call ceedinit(trim(arg)//char(0),ceed,err)
55      & ceed_use_pointer,indx,erestrictx,err)
64      & erestrictucoarse,err)
73      & erestrictufine,err)
77      & erestrictui,err)
79       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
81      & bufine,err)
83      & bucoarse,err)
87     &//'t502-operator.h:setup'//char(0),qf_setup,err)
88      call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
89      call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
90      call ceedqfunctionaddoutput(qf_setup,'qdata',1,ceed_eval_none,err)
94     &//'t502-operator.h:mass'//char(0),qf_mass,err)
95      call ceedqfunctionaddinput(qf_mass,'qdata',1,ceed_eval_none,err)
96      call ceedqfunctionaddinput(qf_mass,'u',ncomp,ceed_eval_interp,err)
97      call ceedqfunctionaddoutput(qf_mass,'v',ncomp,ceed_eval_interp,err)
100      & ceed_qfunction_none,op_setup,err)
102      & ceed_qfunction_none,op_massfine,err)
104       call ceedvectorcreate(ceed,nx,x,err)
106       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
107       call ceedvectorcreate(ceed,nelem*q,qdata,err)
110      & bx,ceed_vector_none,err)
112      & ceed_vector_active,err)
114      ceed_basis_none,ceed_vector_active,err)
116      ceed_basis_none,qdata,err)
118      & ceed_vector_active,err)
120      & ceed_vector_active,err)
122       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
125       call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
127       call ceedvectorsetvalue(pmultfine,val,err)
129      & erestrictucoarse,bucoarse,op_masscoarse,op_prolong,op_restrict,err)
132       call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
134       call ceedvectorsetvalue(ucoarse,val,err)
135       call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
137      & ceed_request_immediate,err)
140       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
150       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
153       call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
155      & ceed_request_immediate,err)
158       call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
160      & ceed_request_immediate,err)
163       call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
173       call ceedvectorrestorearrayread(vfine,hv,voffset,err)
177      & ceed_request_immediate,err)
180       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
190       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
192       call ceedvectordestroy(qdata,err)
193       call ceedvectordestroy(x,err)
194       call ceedvectordestroy(ucoarse,err)
195       call ceedvectordestroy(ufine,err)
196       call ceedvectordestroy(vcoarse,err)
197       call ceedvectordestroy(vfine,err)
198       call ceedvectordestroy(pmultfine,err)
199       call ceedoperatordestroy(op_masscoarse,err)
200       call ceedoperatordestroy(op_massfine,err)
201       call ceedoperatordestroy(op_prolong,err)
202       call ceedoperatordestroy(op_restrict,err)
203       call ceedoperatordestroy(op_setup,err)
204       call ceedqfunctiondestroy(qf_mass,err)
205       call ceedqfunctiondestroy(qf_setup,err)
206       call ceedbasisdestroy(bucoarse,err)
207       call ceedbasisdestroy(bufine,err)
208       call ceedbasisdestroy(bx,err)
209       call ceedelemrestrictiondestroy(erestrictucoarse,err)
210       call ceedelemrestrictiondestroy(erestrictufine,err)
211       call ceedelemrestrictiondestroy(erestrictx,err)
212       call ceedelemrestrictiondestroy(erestrictui,err)
213       call ceeddestroy(ceed,err)