Lines Matching refs:tmpQptb

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)))
232       call symquad (nintb(5),tmpQptb,tmpQwtb,nerr) ! quad boundary elements
233       Qptb(5,1:4,1:nintb(5)) = tmpQptb(1:4,1:nintb(5))
236       deallocate (tmpQptb)
239       allocate (tmpQptb(4,nintb(6)))
242       call symtripyr (nintb(6),tmpQptb,tmpQwtb,nerr) ! tri boundary elements
243       Qptb(6,1:4,1:nintb(6)) = tmpQptb(1:4,1:nintb(6))
246       deallocate (tmpQptb)
322       allocate (tmpQptb(4,nintb(3)))           
325       call symtri(nintb(3),tmpQptb,tmpQwtb,nerr) ! boundary elements
326       Qptb(3,1:2,2:nintb(3)) = tmpQptb(1:2,1:nintb(3)-1)
327       Qptb(3,1:2,1) = tmpQptb(1:2,nintb(3))
336       deallocate (tmpQptb)
339       allocate (tmpQptb(4,nintb(4)))           
342       call symquadw(nintb(4),tmpQptb,tmpQwtb,nerr) ! boundary elements
343       Qptb(4,1:4,1:nintb(4)) = tmpQptb(1:4,1:nintb(4))
346       deallocate (tmpQptb)