ccccccccccc
c	subroutina para calcular el minimo de los valores de una variable
c	de doble precision
	subroutine mindp ( a,n,ymin )
c       jul 2011 malv+fgg
ccccccccccc
        implicit none
	integer n, i
	real*8 a(n),ymin

	ymin=a(1)
	do i=2,n
	 if (a(i).lt.ymin) ymin=a(i)
	end do

	return
	end