Searched refs:tmpQptb (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genint.f | 12 real*8, allocatable :: tmpQptb(:,:), tmpQwtb(:) local
53 allocate (tmpQptb(4,nintb(1)))
61 call symtri(nintb(1),tmpQptb,tmpQwtb,nerr) ! boundary elements
62 Qptb(1,1:4,1:nintb(1)) = tmpQptb(1:4,1:nintb(1))
67 deallocate (tmpQptb)
133 allocate (tmpQptb(4,nintb(2)))
140 call symquad(nintb(2),tmpQptb,tmpQwtb,nerr)
141 Qptb(2,1:4,1:nintb(2)) = tmpQptb(1:4,1:nintb(2))
146 deallocate (tmpQptb)
229 allocate (tmpQptb(4,nintb(5)))
[all …]
|