function scavec4(x,y,sca,t,scav,xymx)
%function scavec4(x,y,sca,t,plot scale,xymax)
%
% function to draw a scale for the vector plots at (x,y),
% with magnitude 'sca' and with text 't'.
%
%                         Julio Candela VII/93.
 
if nargin > 4,
 pltvec4(x,y,sca,0,scav,xymx);
 text(x-.01,y-.03,t); 
else
 pltvec4(x,y,scav,0); 
 text(x-.01,y-.03,t);
end 
