Searched refs:qdim (Results 1 – 1 of 1) sorted by relevance
| /libCEED/tests/ |
| H A D | t313-basis-f.f90 | 37 integer qdim,xdim variable
52 qdim=q**dimn
68 call ceedvectorcreate(ceed,qdim*dimn,xq,err)
70 call ceedvectorcreate(ceed,qdim,u,err)
72 call ceedvectorcreate(ceed,qdim,uq,err)
82 do i=1,qdim
84 xxx(d+1)=xxq(d*qdim+i+offset1)
104 do i=1,qdim
106 xxx(d+1)=xxq(d*qdim+i+offset1)
|