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
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