Corrected wrong line in the MAIOR subroutine that set RESULTADO to 1 when X<Y