Lines Matching +full:setup +full:- +full:qfunctions
1 !-----------------------------------------------------------------------
3 ! Header with QFunctions
5 include 't530-operator-f.h'
6 !-----------------------------------------------------------------------
36 external setup,mass
56 ! Element Setup
57 do i=0,nelem-1
60 offset=col*(p-1)+row*(nx*2+1)*(p-1)
61 do j=0,p-1
62 do k=0,p-1
84 ! QFunctions
85 ! -- Setup
86 call ceedqfunctioncreateinterior(ceed,1,setup,&
88 &//'t510-operator.h:setup'//char(0),qf_setup,err)
92 ! -- Mass
95 &//'t510-operator.h:mass'//char(0),qf_mass,err)
101 ! -- Setup
110 ! -- Mass
120 ! Apply Setup Operator
131 if (abs(qq(qoffset+i)-aa(aoffset+i))>1.0d-9) then
154 if (abs(total-1.)>1.0d-14) then
177 if (abs(total-1.)>1.0d-10) then
202 !-----------------------------------------------------------------------