从不同的fortran代码读取变量

Question

我有两个fortran文件A.sub和B.f90。 A有大量的子例程，而B是可执行程序。 A在B中运行100次。 B.f90看起来像这样：

---

do i=1,step_total

    <lots of statements>

enddo

include 'A.sub'

---

变量step_total在单独的文件中定义为100。我需要在A.sub中读取此变量。非常感谢您的帮助。