Lines Matching +full:- +full:v
1 !-----------------------------------------------------------------------
5 include 't500-operator-f.h'
6 !-----------------------------------------------------------------------
17 integer qdata,x,u,v
24 parameter(nu=nelem*(p-1)+1)
40 do i=0,nx-1
41 arrx(i+1)=i/(nx-1.d0)
43 do i=0,nelem-1
51 do i=0,nelem-1
52 do j=0,p-1
53 indu(p*i+j+1)=i*(p-1)+j
68 &//'t500-operator.h:setup'//char(0),qf_setup,err)
75 &//'t500-operator.h:mass'//char(0),qf_mass,err)
78 call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
100 call ceedoperatorsetfield(op_mass,'v',erestrictu,bu,&
107 call ceedvectorcreate(ceed,nu,v,err)
108 call ceedvectorsetvalue(v,0.d0,err)
110 call ceedoperatorapplyadd(op_mass,u,v,ceed_request_immediate,err)
112 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
117 if (abs(total-1.)>1.0d-10) then
122 call ceedvectorrestorearrayread(v,hv,voffset,err)
124 call ceedvectorsetvalue(v,1.d0,err)
125 call ceedoperatorapplyadd(op_mass,u,v,ceed_request_immediate,err)
127 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
128 total=-nu
132 if (abs(total-1.)>1.0d-10) then
137 call ceedvectorrestorearrayread(v,hv,voffset,err)
142 call ceedvectordestroy(v,err)
154 !-----------------------------------------------------------------------