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