Searched refs:xdim (Results 1 – 2 of 2) sorted by relevance
| /libCEED/tests/ |
| H A D | t313-basis-f.f90 | 37 integer qdim,xdim variable
53 xdim=2**dimn
56 do i=1,xdim
58 xx(d*xdim+i)=1
60 xx(d*xdim+i)=-1
65 call ceedvectorcreate(ceed,xdim*dimn,x,err)
|
| H A D | t314-basis-f.f90 | 38 integer pdimn,qdimn,xdim variable
59 xdim=2**dimn
65 do i=1,xdim
67 xx(d*xdim+i)=1
69 xx(d*xdim+i)=-1
74 call ceedvectorcreate(ceed,xdim*dimn,x,err)
|