Lines Matching refs:tmpQwtb

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))) 
232       call symquad (nintb(5),tmpQptb,tmpQwtb,nerr) ! quad boundary elements
234       Qwtb(5,1:nintb(5)) = tmpQwtb(1:nintb(5))    
237       deallocate (tmpQwtb)
240       allocate (tmpQwtb(nintb(6))) 
242       call symtripyr (nintb(6),tmpQptb,tmpQwtb,nerr) ! tri boundary elements
244       Qwtb(6,1:nintb(6)) = tmpQwtb(1:nintb(6))    
247       deallocate (tmpQwtb)
323       allocate (tmpQwtb(nintb(3))) 
325       call symtri(nintb(3),tmpQptb,tmpQwtb,nerr) ! boundary elements
334       Qwtb(3,1:nintb(3)) = tmpQwtb(1:nintb(3))
337       deallocate (tmpQwtb)
340       allocate (tmpQwtb(nintb(4)))
342       call symquadw(nintb(4),tmpQptb,tmpQwtb,nerr) ! boundary elements
344       Qwtb(4,1:nintb(4)) = tmpQwtb(1:nintb(4))
347       deallocate (tmpQwtb)