function isobath2
%
global isolines isobathy setis
%
clear global isobathy ;
global isobathy
ik = 1; 
for kk = 1:6,
   if isolines(kk) ~= 0,
       isobathy(ik) = isolines(kk);
       ik = ik + 1;
   end
end
return
close setis ; 
clear global setis ;
clear global isolines ;
