Searched refs:tmpQptf (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | filtprep.f | 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)))
[all …]
|