Searched refs:pdimn (Results 1 – 1 of 1) sorted by relevance
| /libCEED/tests/ |
| H A D | t314-basis-f.f90 | 38 integer pdimn,qdimn,xdim variable
58 pdimn=p**dimn
77 call ceedvectorcreate(ceed,pdimn*dimn,xq,err)
79 call ceedvectorcreate(ceed,pdimn,u,err)
84 call ceedvectorcreate(ceed,pdimn,gtposeones,err)
92 do i=1,pdimn
94 xxx(d+1)=xxq(d*pdimn+i+offset1)
112 do i=1,pdimn
|