Lines Matching +full:setup +full:- +full:qfunctions
1 !-----------------------------------------------------------------------
3 ! Header with QFunctions
5 include 't510-operator-f.h'
6 !-----------------------------------------------------------------------
35 external setup,mass
55 ! Element Setup
56 do i=0,nelem-1
59 offset=col*(p-1)+row*(nx*2+1)*(p-1)
60 do j=0,p-1
61 do k=0,p-1
83 ! QFunctions
84 ! -- Setup
85 call ceedqfunctioncreateinterior(ceed,1,setup,&
87 &//'t510-operator.h:setup'//char(0),qf_setup,err)
91 ! -- Mass
94 &//'t510-operator.h:mass'//char(0),qf_mass,err)
100 ! -- Setup
109 ! -- Mass
119 ! Apply Setup Operator
135 uu(i-1+uoffset)=0.d0
149 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
175 !-----------------------------------------------------------------------