Searched refs:tmpQwtb (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genint.f | 12 real*8, allocatable :: tmpQptb(:,:), tmpQwtb(:) local
54 allocate (tmpQwtb(nintb(1)))
61 call symtri(nintb(1),tmpQptb,tmpQwtb,nerr) ! boundary elements
63 Qwtb(1,1:nintb(1)) = tmpQwtb(1:nintb(1))
68 deallocate (tmpQwtb)
134 allocate (tmpQwtb(nintb(2)))
140 call symquad(nintb(2),tmpQptb,tmpQwtb,nerr)
142 Qwtb(2,1:nintb(2)) = tmpQwtb(1:nintb(2))
147 deallocate (tmpQwtb)
230 allocate (tmpQwtb(nintb(5)))
[all …]
|