Searched refs:tmpQpt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genint.f | 11 real*8, allocatable :: tmpQpt (:,:), tmpQwt (:) local
51 allocate (tmpQpt (4,nint(1)))
56 call symtet(nint(1),tmpQpt,tmpQwt,nerr) ! interior elements
57 Qpt(1,1:4,1:nint(1)) = tmpQpt(1:4,1:nint(1))
65 deallocate (tmpQpt)
131 allocate (tmpQpt (4,nint(2)))
136 call symhex(nint(2),tmpQpt,tmpQwt,nerr)
137 Qpt(2,1:4,1:nint(2)) = tmpQpt(1:4,1:nint(2))
144 deallocate (tmpQpt)
219 allocate (tmpQpt (4,nint(5)))
[all …]
|