Searched refs:tmpQwt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genint.f | 11 real*8, allocatable :: tmpQpt (:,:), tmpQwt (:) local
52 allocate (tmpQwt (nint(1)))
56 call symtet(nint(1),tmpQpt,tmpQwt,nerr) ! interior elements
58 Qwt(1,1:nint(1)) = tmpQwt(1:nint(1))
66 deallocate (tmpQwt)
132 allocate (tmpQwt (nint(2)))
136 call symhex(nint(2),tmpQpt,tmpQwt,nerr)
138 Qwt(2,1:nint(2)) = tmpQwt(1:nint(2))
145 deallocate (tmpQwt)
220 allocate (tmpQwt (nint(5)))
[all …]
|