Lines Matching refs:err

6       integer ceed,err,i,j  variable
40       call ceedinit(trim(arg)//char(0),ceed,err)
50      & ceed_use_pointer,indx,erestrictx,err)
58      & ceed_mem_host,ceed_use_pointer,inducoarse,erestrictucoarse,err)
66      & ceed_mem_host,ceed_use_pointer,indufine,erestrictufine,err)
70      & erestrictui,err)
72       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
74      & bufine,err)
76       call ceedqfunctioncreateinteriorbyname(ceed,"Mass1DBuild",qf_setup,err)
77       call ceedqfunctioncreateinteriorbyname(ceed,"MassApply",qf_mass,err)
80      & ceed_qfunction_none,op_setup,err)
82      & ceed_qfunction_none,op_massfine,err)
84       call ceedvectorcreate(ceed,nx,x,err)
86       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
87       call ceedvectorcreate(ceed,nelem*q,qdata,err)
90      & bx,ceed_vector_none,err)
92      & ceed_vector_active,err)
94      ceed_basis_none,ceed_vector_active,err)
96      ceed_basis_none,qdata,err)
98      & ceed_vector_active,err)
100      & ceed_vector_active,err)
102       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
105       call ceedvectorcreate(ceed,nufine,pmultfine,err)
107       call ceedvectorsetvalue(pmultfine,val,err)
109      & bucoarse,err)
111      & ceed_gauss_lobatto,bctof,err)
112       call ceedbasisgetinterp1d(bctof,interp1d,ioffset,err)
118      & op_prolong,op_restrict,err)
121       call ceedvectorcreate(ceed,nucoarse,ucoarse,err)
123       call ceedvectorsetvalue(ucoarse,val,err)
124       call ceedvectorcreate(ceed,nucoarse,vcoarse,err)
126      & ceed_request_immediate,err)
129       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
139       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
142       call ceedvectorcreate(ceed,nufine,ufine,err)
144      & ceed_request_immediate,err)
147       call ceedvectorcreate(ceed,nufine,vfine,err)
149      & ceed_request_immediate,err)
152       call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
162       call ceedvectorrestorearrayread(vfine,hv,voffset,err)
166      & ceed_request_immediate,err)
169       call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
179       call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
181       call ceedvectordestroy(qdata,err)
182       call ceedvectordestroy(x,err)
183       call ceedvectordestroy(ucoarse,err)
184       call ceedvectordestroy(ufine,err)
185       call ceedvectordestroy(vcoarse,err)
186       call ceedvectordestroy(vfine,err)
187       call ceedvectordestroy(pmultfine,err)
188       call ceedoperatordestroy(op_masscoarse,err)
189       call ceedoperatordestroy(op_massfine,err)
190       call ceedoperatordestroy(op_prolong,err)
191       call ceedoperatordestroy(op_restrict,err)
192       call ceedoperatordestroy(op_setup,err)
193       call ceedqfunctiondestroy(qf_mass,err)
194       call ceedqfunctiondestroy(qf_setup,err)
195       call ceedbasisdestroy(bucoarse,err)
196       call ceedbasisdestroy(bufine,err)
197       call ceedbasisdestroy(bctof,err)
198       call ceedbasisdestroy(bx,err)
199       call ceedelemrestrictiondestroy(erestrictucoarse,err)
200       call ceedelemrestrictiondestroy(erestrictufine,err)
201       call ceedelemrestrictiondestroy(erestrictx,err)
202       call ceedelemrestrictiondestroy(erestrictui,err)
203       call ceeddestroy(ceed,err)