C_______________________________________________________________________________
C     Subrutina Imprimir, de dificil comprension y cuyo objetivo se desconoce
C_______________________________________________________________________________

      Subroutine Imprimir(n,v)
      implicit real*8 (a-h,o-z)
      dimension v(n)

      write(6,100) ' RESULTADO:'
  100 format(//a/)

      i=1
    1 write(6,200) i, v(i)
  200 format('    v(',i5,') = ',f20.9)
        i=i+1
      if (i.le.n) goto 1

      return
      end
