Searched refs:vvv (Results 1 – 3 of 3) sorted by relevance
| /libCEED/tests/ |
| H A D | t410-qfunction-f.f90 | 15 real*8 vvv(q) variable
31 vvv(i+1)=ww(i+1)*uu(i+1)
64 if (abs(vv(i+voffset)-vvv(i)) > 1.0D-14) then
66 write(*,*) 'v(i)=',vv(i+voffset),', vv(i)=',vvv(i)
|
| H A D | t400-qfunction-f.f90 | 19 real*8 vvv(q)
46 vvv(i+1)=ww(i+1)*uu(i+1)
76 if (abs(vv(i+voffset)-vvv(i)) > 1.0D-14) then
78 write(*,*) 'v(i)=',vv(i+voffset),', vv(i)=',vvv(i)
|
| H A D | t401-qfunction-f.f90 | 20 real*8 vvv(q)
58 vvv(i+1)=ww(i+1)*uu(i+1)
88 if (abs(vv(i+voffset)-ctxdata(5)*vvv(i)) > 1.0D-14) then
90 write(*,*) 'v(i)=',vv(i+voffset),', 5*vv(i)=',ctxdata(5)*vvv(i)
|