Searched refs:xTe (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | ftools.f | 1439 subroutine fsclrDiag ( ien, xTe, sclrDiag ) argument
1443 dimension xTe(npro,nshl,nshl)
1448 Diagl(:,i,1) = xTe(1:npro,i,i)
1460 subroutine flesApSclr ( ien, xTe, lesP, lesQ, nPs, nQs ) argument
1464 dimension xTe(npro,nshl,nshl)
1483 & + xTe(1:npro,i,j) * Ptemp(:,j,nPs)
|