在fortran中获取免费单元号

发布于 2024-12-11 17:41:18 字数 142 浏览 0 评论 0原文

我需要开发一个可以打开文件并解析内容的库。由于fortran IO风格，单元号必须由我决定，但我不知道客户端代码中还打开了哪些其他单元。是否有像 give_me_any_unit_number_that_is_free() 这样的标准函数？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

空城旧梦 2024-12-18 17:41:18

在 fortran 2008 中，有一个可以打开的 newunit 子句，您可以使用它

   integer :: myunit

   ..
   open(newunit=myunit,file='file.dat')
   ...
   close(myunit)

，但它足够新，并非所有编译器都支持它。如果你的还没有，你可以自己模拟一个； fortran wiki 上有一个很好的例子。

In fortran 2008, there's a newunit clause to open that you can use

   integer :: myunit

   ..
   open(newunit=myunit,file='file.dat')
   ...
   close(myunit)

but that's new enough that not all compilers support it yet. If yours doesn't yet, you can mock one up yourself; there's a good example on the fortran wiki.

回复收藏 0 原文

素年丶 2024-12-18 17:41:18

您可以使用 INQUIRE 查找未使用的单元号：

      integer*4 function get_file_unit (lu_max)
!
!   get_file_unit returns a unit number that is not in use
      integer*4 lu_max,  lu, m, iostat
      logical   opened
!
      m = lu_max  ;  if (m < 1) m = 97
      do lu = m,1,-1
         inquire (unit=lu, opened=opened, iostat=iostat)
         if (iostat.ne.0) cycle
         if (.not.opened) exit
      end do
!
      get_file_unit = lu
      return
      end function get_file_unit

You can use INQUIRE to find a unit number that is not in use:

      integer*4 function get_file_unit (lu_max)
!
!   get_file_unit returns a unit number that is not in use
      integer*4 lu_max,  lu, m, iostat
      logical   opened
!
      m = lu_max  ;  if (m < 1) m = 97
      do lu = m,1,-1
         inquire (unit=lu, opened=opened, iostat=iostat)
         if (iostat.ne.0) cycle
         if (.not.opened) exit
      end do
!
      get_file_unit = lu
      return
      end function get_file_unit

回复收藏 0 原文

~没有更多了~