subroutine abre(n,nombre,mode)

      integer n
      character*(*) nombre
      character*(*) mode

      open(unit=n,file=nombre,status=mode)

      end

      subroutine cierra(n)

      integer n
      
      close(n)

      end