Lines Matching refs:err

11       integer ceed,err,i,j
48       call ceedinit(trim(arg)//char(0),ceed,err)
58      & ceed_use_pointer,indx,erestrictx,err)
67      & erestrictucoarse,err)
76      & erestrictufine,err)
80      & erestrictui,err)
82       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
84      & bufine,err)
88     &//'t502-operator.h:setup'//char(0),qf_setup,err)
89      call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
90      call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
91      call ceedqfunctionaddoutput(qf_setup,'qdata',1,ceed_eval_none,err)
95     &//'t502-operator.h:mass'//char(0),qf_mass,err)
96      call ceedqfunctionaddinput(qf_mass,'qdata',1,ceed_eval_none,err)
97      call ceedqfunctionaddinput(qf_mass,'u',ncomp,ceed_eval_interp,err)
98      call ceedqfunctionaddoutput(qf_mass,'v',ncomp,ceed_eval_interp,err)
101      & ceed_qfunction_none,op_setup,err)
103      & ceed_qfunction_none,op_massfine,err)
105       call ceedvectorcreate(ceed,nx,x,err)
107       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
108       call ceedvectorcreate(ceed,nelem*q,qdata,err)
111      & bx,ceed_vector_none,err)
113      & ceed_vector_active,err)
115      ceed_basis_none,ceed_vector_active,err)
117      ceed_basis_none,qdata,err)
119      & ceed_vector_active,err)
121      & ceed_vector_active,err)
123       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
126       call ceedvectorcreate(ceed,ncomp*nufine,pmultfine,err)
128       call ceedvectorsetvalue(pmultfine,val,err)
130      & ceed_gauss,bucoarse,err)
132      & ceed_gauss_lobatto,bctof,err)
133       call ceedbasisgetinterp1d(bctof,interp1d,ioffset,err)
139      & op_prolong,op_restrict,err)
142       call ceedvectorcreate(ceed,ncomp*nucoarse,ucoarse,err)
144       call ceedvectorsetvalue(ucoarse,val,err)
145       call ceedvectorcreate(ceed,ncomp*nucoarse,vcoarse,err)
147      & ceed_request_immediate,err)
150       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
160       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
163       call ceedvectorcreate(ceed,ncomp*nufine,ufine,err)
165      & ceed_request_immediate,err)
168       call ceedvectorcreate(ceed,ncomp*nufine,vfine,err)
170      & ceed_request_immediate,err)
173       call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
183       call ceedvectorrestorearrayread(vfine,hv,voffset,err)
187      & ceed_request_immediate,err)
190       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
200       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
202       call ceedvectordestroy(qdata,err)
203       call ceedvectordestroy(x,err)
204       call ceedvectordestroy(ucoarse,err)
205       call ceedvectordestroy(ufine,err)
206       call ceedvectordestroy(vcoarse,err)
207       call ceedvectordestroy(vfine,err)
208       call ceedvectordestroy(pmultfine,err)
209       call ceedoperatordestroy(op_masscoarse,err)
210       call ceedoperatordestroy(op_massfine,err)
211       call ceedoperatordestroy(op_prolong,err)
212       call ceedoperatordestroy(op_restrict,err)
213       call ceedoperatordestroy(op_setup,err)
214       call ceedqfunctiondestroy(qf_mass,err)
215       call ceedqfunctiondestroy(qf_setup,err)
216       call ceedbasisdestroy(bufine,err)
217       call ceedbasisdestroy(bx,err)
218       call ceedelemrestrictiondestroy(erestrictucoarse,err)
219       call ceedelemrestrictiondestroy(erestrictufine,err)
220       call ceedelemrestrictiondestroy(erestrictx,err)
221       call ceedelemrestrictiondestroy(erestrictui,err)
222       call ceeddestroy(ceed,err)