Searched refs:leng (Results 1 – 1 of 1) sorted by relevance
745 real*8 vec(3), leng, dp, bigdp, lil local783 leng=sqrt(vec(1)**2+vec(2)**2+vec(3)**2)784 vec(:)=vec(:)/leng814 leng=vec(1)**2+vec(2)**2+vec(3)**2815 if(leng.lt.lil) then ! this candidate is closest so far816 lil=leng