Lines Matching refs:err
11 integer ceed,err,i,j
35 call ceedinit(trim(arg)//char(0),ceed,err)
43 & ceed_use_pointer,indx,erestrictx,err)
52 & ceed_use_pointer,indu,erestrictu,err)
55 & erestrictui,err)
57 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
58 call ceedbasiscreatetensorh1lagrange(ceed,1,2,p,q,ceed_gauss,bu,err)
62 &//'t500-operator.h:setup'//char(0),qf_setup,err)
63 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
64 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
65 call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
69 &//'t500-operator.h:mass'//char(0),qf_mass,err)
70 call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
71 call ceedqfunctionaddinput(qf_mass,'u',2,ceed_eval_interp,err)
72 call ceedqfunctionaddoutput(qf_mass,'v',2,ceed_eval_interp,err)
75 & ceed_qfunction_none,op_setup,err)
77 & ceed_qfunction_none,op_mass,err)
79 call ceedvectorcreate(ceed,nx,x,err)
80 call ceedvectorcreate(ceed,nelem*q,qdata,err)
83 & bx,ceed_vector_none,err)
85 & ceed_vector_active,err)
87 ceed_basis_none,ceed_vector_active,err)
89 ceed_basis_none,qdata,err)
91 & ceed_vector_active,err)
93 & ceed_vector_active,err)
95 call ceedoperatorsetname(op_setup,'setup',err)
96 call ceedoperatorview(op_setup,err)
97 call ceedoperatorsetname(op_mass,'mass',err)
98 call ceedoperatorsetnumviewtabs(op_mass,1,err)
99 call ceedoperatorview(op_mass,err)
101 call ceedvectordestroy(qdata,err)
102 call ceedoperatordestroy(op_mass,err)
103 call ceedoperatordestroy(op_setup,err)
104 call ceedqfunctiondestroy(qf_mass,err)
105 call ceedqfunctiondestroy(qf_setup,err)
106 call ceedbasisdestroy(bu,err)
107 call ceedbasisdestroy(bx,err)
108 call ceedelemrestrictiondestroy(erestrictu,err)
109 call ceedelemrestrictiondestroy(erestrictx,err)
110 call ceedelemrestrictiondestroy(erestrictui,err)
111 call ceeddestroy(ceed,err)