Arreglado error acceso a vars subprograma