Lines Matching +full:setup +full:- +full:qfunctions
1 !-----------------------------------------------------------------------
5 include 't320-basis-f.h'
7 ! Header with QFunctions
9 include 't522-operator-f.h'
10 !-----------------------------------------------------------------------
56 external setup,diff
99 ! -- Restrictions
109 ! -- Bases
117 ! -- QFunctions
118 call ceedqfunctioncreateinterior(ceed,1,setup,&
120 &//'t522-operator.h:setup'//char(0),qf_setuptet,err)
128 &//'t522-operator.h:diff'//char(0),qf_difftet,err)
133 ! -- Operators
134 ! ---- Setup Tet
143 ! ---- diff Tet
154 do i=0,nelemhex-1
158 do j=0,phex-1
159 do k=0,phex-1
165 ! -- Restrictions
175 ! -- Bases
181 ! -- QFunctions
182 call ceedqfunctioncreateinterior(ceed,1,setup,&
184 &//'t522-operator.h:setup'//char(0),qf_setuphex,err)
192 &//'t522-operator.h:diff'//char(0),qf_diffhex,err)
197 ! -- Operators
198 ! ---- Setup Hex
207 ! ---- diff Hex
226 ! Apply Setup Operator
240 if (abs(hv(voffset+i))>1.0d-14) then
276 !-----------------------------------------------------------------------