Lines Matching refs:founde

18       integer e, founde  local
21          founde = 0
31                founde=statptts(jj,2)
152                      founde=e
205                      founde=e
211             if(founde.ne.0) then !store values for next time steps
213                statptts(jj,2)=founde
214                parptts(jj,:)=zi0(founde,:)
222          if(founde.ne.0) then
227      &              +ycl(founde,i,1:ndofl)*shape(i)
231      &              +ycl(founde,i,1:ndofl)*shape(i)*sgn(founde,i)