Searched refs:tmpQwtf (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | filtprep.f | 91 real*8, allocatable :: tmpQptf (:,:), tmpQwtf (:) local
94 allocate (tmpQwtf(nintf(1)))
95 call symtet(nintf(1),tmpQptf,tmpQwtf,nerr)
97 Qwtf(1,1:nintf(1)) = tmpQwtf(1:nintf(1))
107 deallocate (tmpQwtf)
111 allocate (tmpQwtf(nintf(2)))
112 call symhex(nintf(2),tmpQptf,tmpQwtf,nerr)
114 Qwtf(2,1:nintf(2)) = tmpQwtf(1:nintf(2))
116 deallocate (tmpQwtf)
119 allocate (tmpQwtf(nintf(3)))
[all …]
|