       subroutine dot( u , v , d )
	  
c***********************************************************************	  
c      Vector dot product
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 u(2),v(2)
       real*8 d
       
c***********************************************************************
       
       d = u(1)*v(1) + u(2)*v(2)
       
       return 
        
       end
       
c***********************************************************************
