%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%                    LATEXtools                         %%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  This  file  is  free software ;  it  is distributed  in  %
%%  the hope that  it  will  be  useful,  but  without  any  %
%%  warranty.  You  can  redistribute  it and/or modify  it  %
%%  under  the  terms  of  the  GNU  General Public License  %
%%  as  published  by  the   Free  Software  Foundation  at  %
%%       http://www.gnu.org/copyleft/gpl.html                %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% add a reference arrow
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 24/06/13 : andrea.doglioli@univ-amu.fr : first official release
%%
%% Credits: ROMStools http://www.romsagrif.org/
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function add_my_arrow(lon,lat,cunit,coef,txtcunit,color,linewidth)

sar=m_quiver(lon,lat,cunit*coef,0,0,color);
%set(sar,'Linewidth',linewidth)
set(sar,'linewidth',0.1)
msar=m_text(lon,lat-lat/1000*1.5,[num2str(cunit),' ',txtcunit],...
            'HorizontalAlignment','left',...
            'VerticalAlignment','bottom');
set(msar,'Color',color,'FontWeight','demi')
%get(msar)

return
