Searched refs:dimn (Results 1 – 2 of 2) sorted by relevance
| /libCEED/tests/ |
| H A D | t313-basis-f.f90 | 2 subroutine eval(dimn,x,rslt) argument
3 integer dimn local
13 do d=1,dimn
27 integer dimn,d variable
51 do dimn=1,maxdim
52 qdim=q**dimn
53 xdim=2**dimn
55 do d=0,dimn-1
65 call ceedvectorcreate(ceed,xdim*dimn,x,err)
68 call ceedvectorcreate(ceed,qdim*dimn,xq,err)
[all …]
|
| H A D | t314-basis-f.f90 | 2 subroutine eval(dimn,x,rslt) argument
3 integer dimn local
8 if (dimn>1) then
11 if (dimn>2) then
24 integer dimn,d variable
56 do dimn=1,maxdim
57 qdimn=q**dimn
58 pdimn=p**dimn
59 xdim=2**dimn
60 dimxqdimn=dimn*qdimn
[all …]
|