Lines Matching refs:e
32 integer e, elmt, result, count, counting, find local
75 do e = 1, nelint
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,:)
107 elmt = e
115 & zi0(e,i) .lt. 0.0) then
116 found(counting) = e
117 neg(counting) = zi0(e,i)
124 found(counting) = e
125 neg(counting) = 1-zi0(e,1)-zi0(e,2)-zi0(e,3)