fortran - 当文件在主程序中有 open 语句时，Fortran 有没有办法从子程序写入输出文件。

Question

在 Fortran 中，当文件在主程序中有 open 语句时，我试图从子程序写入输出文件。换句话说，我如何将文件单元号（终端号）从主程序传递给子程序。对此的任何想法都非常感谢。例如，我的代码如下所示，

program main1
open(unit=11,file='output.dat')
call subroutine1
...
call subroutine1
...
end program main1


subroutine subroutine1
write(11,*)'dummy'
...
write(11,*)'dummy'
...
end subroutine subroutine1

Answer 1

通过传递表示打开文件的整数：

module mod1
  implicit none
contains
  subroutine subroutine1(fp)
    integer, intent(in) :: fp
    write(fp,*)'dummy'
    write(fp,*)'dummy'
  end subroutine subroutine1
end module mod1

program main1
  use mod1
  implicit none
  integer :: fp
  fp = 11
  open(unit=fp,file='output.dat')
  call subroutine1(fp)
  close(fp)
end program main1