Searched refs:elmt (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
32 integer e, elmt, result, count, counting, find local
69 elmt = 0
107 elmt = e
136 elmt = found(1)
141 elmt = found(i)
146 prop = zi0(elmt,1)+zi0(elmt,2)+zi0(elmt,3)
147 xsic(:) = zi0(elmt,:) / prop
149 xsic(:) = zi0(elmt,:)
|