       subroutine norm( v , n )
	  
c***********************************************************************	  
c      Vector norm 
c      Written by Orlando Camargo Rodriguez
c      orodrig@ualg.pt
c      Universidade do Algarve
c      Physics Department
c      Signal Processing Laboratory
c      Faro, 20/08/2009 at 23:30
c****&******************************************************************

       real*8 v(2)
       real*8 n
       
c***********************************************************************
       
       n = sqrt( v(1)*v(1) + v(2)*v(2) )
       
       return 
        
       end
c***********************************************************************
