Lines Matching +full:setup +full:- +full:qfunctions
1 !-----------------------------------------------------------------------
3 ! Header with QFunctions
5 include 't502-operator-f.h'
6 !-----------------------------------------------------------------------
26 parameter(nu=nelem*(p-1)+1)
37 external setup,mass
42 do i=0,nx-1
43 arrx(i+1)=i/(nx-1.d0)
45 do i=0,nelem-1
53 do i=0,nelem-1
54 do j=0,p-1
55 indu(p*i+j+1)=2*(i*(p-1)+j)
75 ! Common QFunctions
77 call ceedqfunctioncreateinterior(ceed,1,setup,&
79 &//'t502-operator.h:setup'//char(0),qf_setup,err)
86 &//'t502-operator.h:mass'//char(0),qf_mass,err)
139 ! Setup U, V
144 hu(voffset+2*i-1)=1.
160 total1=total1+hv(voffset+2*i-1)
163 if (abs(total1-1.)>1.0d-10) then
168 if (abs(total2-2.)>1.0d-10) then
185 total1=total1+hv(voffset+2*i-1)
188 if (abs(total1-1.)>1.0d-10) then
193 if (abs(total2-2.)>1.0d-10) then
221 !-----------------------------------------------------------------------