Lines Matching +full:setup +full:- +full:qfunctions
1 !-----------------------------------------------------------------------
5 include 't320-basis-f.h'
7 ! Header with QFunctions
9 include 't510-operator-f.h'
10 !-----------------------------------------------------------------------
55 external setup,mass
98 ! -- Restrictions
107 ! -- Bases
115 ! -- QFunctions
116 call ceedqfunctioncreateinterior(ceed,1,setup,&
118 &//'t510-operator.h:setup'//char(0),qf_setuptet,err)
125 &//'t510-operator.h:mass'//char(0),qf_masstet,err)
130 ! -- Operators
131 ! ---- Setup Tet
140 ! ---- Mass Tet
151 do i=0,nelemhex-1
155 do j=0,phex-1
156 do k=0,phex-1
162 ! -- Restrictions
172 ! -- Bases
178 ! -- QFunctions
179 call ceedqfunctioncreateinterior(ceed,1,setup,&
181 &//'t510-operator.h:setup'//char(0),qf_setuphex,err)
188 &//'t510-operator.h:mass'//char(0),qf_masshex,err)
193 ! -- Operators
194 ! ---- Setup Hex
203 ! ---- Mass Hex
222 ! Apply Setup Operator
236 if (abs(hv(voffset+i))>1.0d-10) then
272 !-----------------------------------------------------------------------