Lines Matching refs:err

11       integer ceed,err,i,j,k
39       call ceedinit(trim(arg)//char(0),ceed,err)
48       call ceedvectorcreate(ceed,d*ndofs,x,err)
50       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53       call ceedvectorcreate(ceed,nqpts,qdata,err)
69      & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
72      & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
75      & stridesu,erestrictui,err)
79      & bx,err)
81      & bu,err)
87      &//'t510-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',d*d,ceed_eval_grad,err)
90       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
94      &//'t510-operator.h:mass'//char(0),qf_mass,err)
95       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
96       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
97       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
102      & ceed_qfunction_none,op_setup,err)
104      & bx,ceed_vector_none,err)
106      & bx,ceed_vector_active,err)
108      ceed_basis_none,ceed_vector_active,err)
111      & ceed_qfunction_none,op_mass,err)
113      ceed_basis_none,qdata,err)
115      & bu,ceed_vector_active,err)
117      & bu,ceed_vector_active,err)
120       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
123       call ceedvectorcreate(ceed,ndofs,a,err)
125      & ceed_request_immediate,err)
128       call ceedvectorcreate(ceed,ndofs,u,err)
129       call ceedvectorsetvalue(u,0.d0,err)
130       call ceedvectorcreate(ceed,ndofs,v,err)
132         call ceedvectorgetarray(u,ceed_mem_host,uu,uoffset,err)
137         call ceedvectorrestorearray(u,uu,uoffset,err)
139         call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
141         call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
143         call ceedvectorrestorearrayread(v,vv,voffset,err)
147       call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
156       call ceedvectorrestorearrayread(a,aa,aoffset,err)
159       call ceedqfunctiondestroy(qf_setup,err)
160       call ceedqfunctiondestroy(qf_mass,err)
161       call ceedoperatordestroy(op_setup,err)
162       call ceedoperatordestroy(op_mass,err)
163       call ceedelemrestrictiondestroy(erestrictu,err)
164       call ceedelemrestrictiondestroy(erestrictx,err)
165       call ceedelemrestrictiondestroy(erestrictui,err)
166       call ceedbasisdestroy(bu,err)
167       call ceedbasisdestroy(bx,err)
168       call ceedvectordestroy(x,err)
169       call ceedvectordestroy(a,err)
170       call ceedvectordestroy(u,err)
171       call ceedvectordestroy(v,err)
172       call ceedvectordestroy(qdata,err)
173       call ceeddestroy(ceed,err)