cccccccccccccc
c	subroutina para calcular el minimo de los valores de una variable
c	de doble precision. Simlar a mindp salvo la adicion de limites 

	subroutine mindp_limits ( a,n,ymin, n1,n2 )

c       jul 2011 malv+fgg
cccccccccccccc

        implicit none
	integer n, i, n1,n2
	real*8 a(n),ymin

	if ( n1 .gt. n2 ) stop 'MINDP_LIMITS. Error: n1 > n2 '
	if ( n1 .lt. 1 ) stop 'MINDP_LIMITS. Error: n1 < 2 '
	if ( n2 .gt. n ) stop 'MINDP_LIMITS. Error: n2 > n '

	ymin=a(n1)
	do i=n1+1,n2
	 if (a(i).lt.ymin) ymin=a(i)
	end do

	return
	end