Lines Matching refs:err

11       integer ceed,err,i,j
35       call ceedinit(trim(arg)//char(0),ceed,err)
44       call ceedvectorcreate(ceed,d*nelem*2*2,x,err)
46       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
49       call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
54      & stridesx,erestrictxi,err)
58      & stridesu,erestrictui,err)
62      & stridesq,erestrictqi,err)
65       call ceedbasiscreatetensorh1lagrange(ceed,d,d,2,q,ceed_gauss,bx,err)
66       call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
71      &//'t540-operator.h:setup_mass'//char(0),qf_setup_mass,err)
72       call ceedqfunctionaddinput(qf_setup_mass,'dx',d*d,ceed_eval_grad,err)
73       call ceedqfunctionaddinput(qf_setup_mass,'weight',1,ceed_eval_weight,err)
74       call ceedqfunctionaddoutput(qf_setup_mass,'qdata',1,ceed_eval_none,err)
78      & ceed_qfunction_none,op_setup_mass,err)
80      & bx,ceed_vector_active,err)
82      & ceed_elemrestriction_none,bx,ceed_vector_none,err)
84      ceed_basis_none,ceed_vector_active,err)
88      & ceed_request_immediate,err)
93      &//'t540-operator.h:apply'//char(0),qf_apply,err)
94       call ceedqfunctionaddinput(qf_apply,'u',1,ceed_eval_interp,err)
95       call ceedqfunctionaddinput(qf_apply,'mass qdata',1,ceed_eval_none,err)
96       call ceedqfunctionaddoutput(qf_apply,'v',1,ceed_eval_interp,err)
100      & ceed_qfunction_none,op_apply,err)
102      & bu,ceed_vector_active,err)
104      ceed_basis_none,qdata_mass,err)
106      & bu,ceed_vector_active,err)
109       call ceedvectorcreate(ceed,ndofs,u,err)
110       call ceedvectorsetvalue(u,1.d0,err)
111       call ceedvectorcreate(ceed,ndofs,v,err)
112       call ceedvectorsetvalue(v,0.d0,err)
113       call ceedoperatorapply(op_apply,u,v,ceed_request_immediate,err)
117      & ceed_request_immediate,err)
120       call ceedoperatorapply(op_inv,v,u,ceed_request_immediate,err)
123       call ceedvectorgetarrayread(u,ceed_mem_host,uu,uoffset,err)
131       call ceedvectorrestorearrayread(u,uu,uoffset,err)
134       call ceedqfunctiondestroy(qf_setup_mass,err)
135       call ceedqfunctiondestroy(qf_apply,err)
136       call ceedoperatordestroy(op_setup_mass,err)
137       call ceedoperatordestroy(op_apply,err)
138       call ceedoperatordestroy(op_inv,err)
139       call ceedelemrestrictiondestroy(erestrictxi,err)
140       call ceedelemrestrictiondestroy(erestrictui,err)
141       call ceedelemrestrictiondestroy(erestrictqi,err)
142       call ceedbasisdestroy(bu,err)
143       call ceedbasisdestroy(bx,err)
144       call ceedvectordestroy(x,err)
145       call ceedvectordestroy(u,err)
146       call ceedvectordestroy(v,err)
147       call ceedvectordestroy(qdata_mass,err)
148       call ceeddestroy(ceed,err)