Lines Matching refs:zi0
27 & zi0(nelint,nsd), detaij(nelint), dzi0(nelint,nsd),
45 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
53 zi0(:,2) = detaij(:)*((al(:,2,2)*al(:,4,3)
60 zi0(:,3) = detaij(:)*((al(:,3,2)*al(:,2,3)
79 if (zi0(e,1).lt.(one+tolpt).and.
80 & zi0(e,1).gt.(zero-tolpt)) then
84 if (zi0(e,2).lt.(one+tolpt).and.
85 & zi0(e,2).gt.(zero-tolpt)) then
89 if (zi0(e,3).lt.(one+tolpt).and.
90 & zi0(e,3).gt.(zero-tolpt)) then
94 if ((1-zi0(e,1)-zi0(e,2)-zi0(e,3)).lt.(one+tolpt).and.
95 & (1-zi0(e,1)-zi0(e,2)-zi0(e,3)).gt.(zero-tolpt)) then
106 xsic(:) = zi0(e,:)
115 & zi0(e,i) .lt. 0.0) then
117 neg(counting) = zi0(e,i)
125 neg(counting) = 1-zi0(e,1)-zi0(e,2)-zi0(e,3)
146 prop = zi0(elmt,1)+zi0(elmt,2)+zi0(elmt,3)
147 xsic(:) = zi0(elmt,:) / prop
149 xsic(:) = zi0(elmt,:)