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 !-----------------------------------------------------------------------
56 external setup,mass
99 ! -- Restrictions
109 ! -- Bases
117 ! -- QFunctions
118 call ceedqfunctioncreateinterior(ceed,1,setup,&
120 &//'t510-operator.h:setup'//char(0),qf_setuptet,err)
127 &//'t510-operator.h:mass'//char(0),qf_masstet,err)
132 ! -- Operators
133 ! ---- Setup Tet
142 ! ---- Mass Tet
153 do i=0,nelemhex-1
157 do j=0,phex-1
158 do k=0,phex-1
164 ! -- Restrictions
174 ! -- Bases
180 ! -- QFunctions
181 call ceedqfunctioncreateinterior(ceed,1,setup,&
183 &//'t510-operator.h:setup'//char(0),qf_setuphex,err)
190 &//'t510-operator.h:mass'//char(0),qf_masshex,err)
195 ! -- Operators
196 ! ---- Setup Hex
206 ! ---- Mass Hex
226 ! Apply Setup Operator
244 if (abs(total-1.)>1.0d-10) then
256 total=-ndofs
260 if (abs(total-1.)>1.0d-10) then
295 !-----------------------------------------------------------------------