Searched refs:bLen (Results 1 – 1 of 1) sorted by relevance
276 function iBfind(bArray,bLen,bVal)277 integer,intent(in) :: bLen local278 real(kind=8),intent(in),dimension(bLen) :: bArray282 bend = bLen283 indx = (bLen+1)/2