       subroutine linspc(n,xmin,xmax,x)
	  
c***********************************************************************
c      LINSPC.FOR
c      LINearly SPaCed vector  
c      Written by Orlando Camargo Rodriguez
c      orodrig@ualg.pt
c      Universidade do Algarve
c      Physics Department
c      Signal Processing Laboratory
c      Faro, 04/05/2009 at 17:00
c****&******************************************************************
       
       integer*4 i,n
       
       real*8 x(n)
       real*8 xmin,xmax
       real*8 dx
       
       dx = (xmax - xmin)/(n-1)
       
       do i = 1,n
       
          x(i) = xmin + dx*(i-1)
       
       end do 

c***********************************************************************
c     Back to main:
c***********************************************************************   

       return 

       end

