Lines Matching refs:err

11       integer ceed,err,i,j
40       call ceedinit(trim(arg)//char(0),ceed,err)
51      & ceed_use_pointer,indx,erestrictx,err)
60      & ceed_use_pointer,indu,erestrictu,err)
63      & stridesu_small,erestrictui_small,err)
66      & q*nelem*scale,stridesu_large,erestrictui_large,err)
68       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx_small,err)
69       call ceedbasiscreatetensorh1lagrange(ceed,1,2,p,q,ceed_gauss,bu_small,err)
71      & ceed_gauss,bx_large,err)
73      & ceed_gauss,bu_large,err)
79      &//'t502-operator.h:setup'//char(0),qf_setup,err)
80       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
81       call ceedqfunctionaddinput(qf_setup,'x',1,ceed_eval_grad,err)
82       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
86      &//'t502-operator.h:mass'//char(0),qf_mass,err)
87       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
88       call ceedqfunctionaddinput(qf_mass,'u',2,ceed_eval_interp,err)
89       call ceedqfunctionaddoutput(qf_mass,'v',2,ceed_eval_interp,err)
91       call ceedvectorcreate(ceed,nx,x,err)
93       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
98      & ceed_qfunction_none,op_setup_small,err)
100      & ceed_qfunction_none,op_mass_small,err)
102       call ceedvectorcreate(ceed,nelem*q,qdata_small,err)
105      & ceed_elemrestriction_none,bx_small,ceed_vector_none,err)
107      & bx_small,ceed_vector_active,err)
109      ceed_basis_none,ceed_vector_active,err)
111      ceed_basis_none,qdata_small,err)
113      & bu_small,ceed_vector_active,err)
115      & bu_small,ceed_vector_active,err)
120      & ceed_qfunction_none,op_setup_large,err)
122      & ceed_qfunction_none,op_mass_large,err)
124       call ceedvectorcreate(ceed,nelem*q*scale,qdata_large,err)
127      & ceed_elemrestriction_none,bx_large,ceed_vector_none,err)
129      & bx_large,ceed_vector_active,err)
131      ceed_basis_none,ceed_vector_active,err)
133      ceed_basis_none,qdata_large,err)
135      & bu_large,ceed_vector_active,err)
137      & bu_large,ceed_vector_active,err)
141       call ceedvectorcreate(ceed,2*nu,u,err)
142       call ceedvectorgetarraywrite(u,ceed_mem_host,hu,voffset,err)
147       call ceedvectorrestorearray(u,hu,voffset,err)
148       call ceedvectorcreate(ceed,2*nu,v,err)
153      & ceed_request_immediate,err)
154       call ceedoperatorapply(op_mass_small,u,v,ceed_request_immediate,err)
156       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
173       call ceedvectorrestorearrayread(v,hv,voffset,err)
178      & ceed_request_immediate,err)
179       call ceedoperatorapply(op_mass_large,u,v,ceed_request_immediate,err)
181       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
198       call ceedvectorrestorearrayread(v,hv,voffset,err)
200       call ceedvectordestroy(qdata_small,err)
201       call ceedvectordestroy(qdata_large,err)
202       call ceedvectordestroy(x,err)
203       call ceedvectordestroy(u,err)
204       call ceedvectordestroy(v,err)
205       call ceedoperatordestroy(op_mass_small,err)
206       call ceedoperatordestroy(op_setup_small,err)
207       call ceedoperatordestroy(op_mass_large,err)
208       call ceedoperatordestroy(op_setup_large,err)
209       call ceedqfunctiondestroy(qf_mass,err)
210       call ceedqfunctiondestroy(qf_setup,err)
211       call ceedbasisdestroy(bu_small,err)
212       call ceedbasisdestroy(bx_small,err)
213       call ceedbasisdestroy(bu_large,err)
214       call ceedbasisdestroy(bx_large,err)
215       call ceedelemrestrictiondestroy(erestrictu,err)
216       call ceedelemrestrictiondestroy(erestrictx,err)
217       call ceedelemrestrictiondestroy(erestrictui_small,err)
218       call ceedelemrestrictiondestroy(erestrictui_large,err)
219       call ceeddestroy(ceed,err)