将旧版Fortran代码与新版Fortran代码混合编译

我之前维护过不少这类老Fortran遗留项目，这种用.h文件共享变量定义的写法在早期Fixed Form Fortran里挺常见——虽说Fortran标准更推荐用.inc作为包含文件后缀，但老代码向来是怎么顺手怎么来。

先把你提到的variables.h示例内容格式化出来，方便看得更清楚：

c VARIABLE DIMENSIONS FOR MODEL
c height_dim -- number of vertical (z) steps
c length_dim -- number of horizontal (x) steps
c width_dim -- number of horizontal (y) steps
INTEGER height_dim, length_dim, width_dim

针对这类代码，给你几个实际维护时的实用建议：

• 警惕变量作用域风险：老Fortran的INCLUDE是纯文本插入逻辑，这些变量会直接成为包含它们的过程的局部变量（或全局变量，取决于插入位置）。如果多个过程都包含这个文件，一定要检查有没有重复定义的问题——尤其是某个过程里已经定义了同名变量时，编译肯定会报错。
• 注释规范化调整：原代码用的是Fixed Form的c开头注释，如果后续计划转向更现代的Free Form Fortran，可以把注释改成!开头，既兼容新编译器，也符合现代Fortran的编码习惯。
• 追踪变量赋值节点：这些维度变量是模型的核心参数，必须找到它们被初始化的位置——大概率在主程序或者某个初始化子程序里。要是某个包含这个文件的过程在变量赋值前就调用了它们，很容易触发未定义行为，这可是老Fortran里的常见坑。
• 逐步重构为模块（优先推荐）：如果团队有长期维护这套代码的计划，最好把这些共享变量重构到Fortran模块里，替代INCLUDE的写法。比如改成这样：

MODULE model_dimensions
    ! VARIABLE DIMENSIONS FOR MODEL
    ! height_dim -- number of vertical (z) steps
    ! length_dim -- number of horizontal (x) steps
    ! width_dim -- number of horizontal (y) steps
    INTEGER :: height_dim, length_dim, width_dim
END MODULE model_dimensions

之后在需要用到这些变量的过程里，用USE model_dimensions代替INCLUDE 'variables.h'就行。模块写法更符合现代Fortran规范，能明确变量作用域，还能避免纯文本插入带来的各种隐蔽问题。

另外，如果还要兼容旧版Fortran编译器，记得遵守Fixed Form的格式规则——比如代码行第6列是续行符，注释必须在第1列用c或*开头，部分老编译器还限制变量名不能超过6个字符（不过你的示例里变量名更长，应该用的是扩展Fixed Form）。

内容的提问来源于stack exchange，提问作者jvriesem