Lines Matching refs:err

11       integer ceed,err,i,j
38       call ceedinit(trim(arg)//char(0),ceed,err)
40       call ceedvectorcreate(ceed,nu,u,err)
41       call ceedvectorsetvalue(u,1.d0,err)
43       call ceedvectorcreate(ceed,nu,v,err)
48       call ceedvectorcreate(ceed,nx,x,err)
50       call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
52       call ceedvectorcreate(ceed,nelem*q,qdata,err)
59      & ceed_use_pointer,indx,erestrictx,err)
68      & ceed_use_pointer,indu,erestrictu,err)
71      & erestrictui,err)
73       call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
74       call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,q,ceed_gauss,bu,err)
78      &//'t500-operator.h:setup'//char(0),qf_setup,err)
79       call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
80       call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
81       call ceedqfunctionaddoutput(qf_setup,'rho',1,ceed_eval_none,err)
85      &//'t500-operator.h:mass'//char(0),qf_mass,err)
86       call ceedqfunctionaddinput(qf_mass,'rho',1,ceed_eval_none,err)
87       call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
88       call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
91      & ceed_qfunction_none,op_setup,err)
93      & ceed_qfunction_none,op_mass,err)
96      & bx,ceed_vector_none,err)
97       call ceedoperatorsetfield(op_setup,'dx',erestrictx,bx,x,err)
99      ceed_basis_none,qdata,err)
101      ceed_basis_none,qdata,err)
102       call ceedoperatorsetfield(op_mass,'u',erestrictu,bu,u,err)
103       call ceedoperatorsetfield(op_mass,'v',erestrictu,bu,v,err)
106      & ceed_request_immediate,err)
108      & 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)