Searched refs:xsic (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | elem-search.f | 1 subroutine elem_search(xl,xts1,xts2,xts3,xsic,elmt, idfile) argument
23 dimension shape(nelint,nshl), xsic(nsd),
106 xsic(:) = zi0(e,:)
147 xsic(:) = zi0(elmt,:) / prop
149 xsic(:) = zi0(elmt,:)
150 xsic(negativ(find)) = 0.0
|