Lines Matching refs:err

11       integer ceed,err,i,j
38       call ceedinit(trim(arg)//char(0),ceed,err)
49      & ceed_use_pointer,indx,erestrictx,err)
58      & ceed_use_pointer,indu,erestrictu,err)
61      & erestrictui,err)
63       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
64       call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,q,ceed_gauss,bu,err)
68      &//'t500-operator.h:setup'//char(0),qf_setup,err)
69       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
70       call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
71       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
75      &//'t500-operator.h:mass'//char(0),qf_mass,err)
76       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
77       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
78       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
81      & ceed_qfunction_none,op_setup,err)
83      & ceed_qfunction_none,op_mass,err)
85       call ceedvectorcreate(ceed,nx,x,err)
87       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
88       call ceedvectorcreate(ceed,nelem*q,qdata,err)
91      & bx,ceed_vector_none,err)
93      & ceed_vector_active,err)
95      ceed_basis_none,ceed_vector_active,err)
97      ceed_basis_none,qdata,err)
99      & ceed_vector_active,err)
101      & ceed_vector_active,err)
103       call ceedoperatorapply(op_setup,x,qdata,ceed_request_immediate,err)
105       call ceedvectorcreate(ceed,nu,u,err)
106       call ceedvectorsetvalue(u,1.d0,err)
107       call ceedvectorcreate(ceed,nu,v,err)
108       call ceedoperatorapply(op_mass,u,v,ceed_request_immediate,err)
110       call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
120       call ceedvectorrestorearrayread(v,hv,voffset,err)
122       call ceedvectordestroy(qdata,err)
123       call ceedvectordestroy(x,err)
124       call ceedvectordestroy(u,err)
125       call ceedvectordestroy(v,err)
126       call ceedoperatordestroy(op_mass,err)
127       call ceedoperatordestroy(op_setup,err)
128       call ceedqfunctiondestroy(qf_mass,err)
129       call ceedqfunctiondestroy(qf_setup,err)
130       call ceedbasisdestroy(bu,err)
131       call ceedbasisdestroy(bx,err)
132       call ceedelemrestrictiondestroy(erestrictu,err)
133       call ceedelemrestrictiondestroy(erestrictx,err)
134       call ceedelemrestrictiondestroy(erestrictui,err)
135       call ceeddestroy(ceed,err)