& profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff
integer profiles_curfile_buff(nsx,nsy)
profiles_curfile_buff(bi,bj)=0
profiles_curfile_buff(bi,bj)=fNb
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then
if (profiles_curfile_buff(bi,bj).NE.fNb) then