Lines Matching refs:tmpQptf
91 real*8, allocatable :: tmpQptf (:,:), tmpQwtf (:) local
93 allocate (tmpQptf(4,nint(1)))
95 call symtet(nintf(1),tmpQptf,tmpQwtf,nerr)
96 Qptf(1,1:4,1:nintf(1)) = tmpQptf(1:4,1:nintf(1))
106 deallocate (tmpQptf)
110 allocate (tmpQptf(4,nint(2)))
112 call symhex(nintf(2),tmpQptf,tmpQwtf,nerr)
113 Qptf(2,1:4,1:nintf(2)) = tmpQptf(1:4,1:nintf(2))
115 deallocate (tmpQptf)
118 allocate (tmpQptf(4,nintf(3)))
120 call symwdg(nintf(3),tmpQptf,tmpQwtf,nerr)
121 Qptf(3,1:4,1:nintf(3)) = tmpQptf(1:4,1:nintf(3))
123 deallocate (tmpQptf)
126 allocate (tmpQptf(4,nintf(5)))
128 call sympyr(nintf(5),tmpQptf,tmpQwtf,nerr)
129 Qptf(5,1:4,1:nintf(5)) = tmpQptf(1:4,1:nintf(5))
131 deallocate (tmpQptf)