CodeBlocks编译SWEEP时出现Can't open 'dflib.mod'错误如何解决

错误根因 #

DFLIB是Compaq Visual Fortran（CVF）的专属私有模块，你当前Code::Blocks默认搭载的GNU Fortran（gfortran）编译器无此模块，因此触发找不到dflib.mod的致命错误。你代码中调用的NARGS、GETARG均为CVF扩展接口，可通过以下三种方案解决，优先选择第一种，操作成本最低。

方案1：替换非标准调用（优先推荐，无需换编译器/加依赖） #

直接修改源码中的CVF专属调用为Fortran标准内置接口，改完即可消除该报错：

• 删除代码中Use DFLIB, Only: NARGS, GETARG整行语句
• 将所有调用NARGS()的位置替换为command_argument_count()，该函数为Fortran 2003及以上版本标准内置函数，无需引用任何模块
• 将所有调用GETARG(pos, buffer)的位置替换为call get_command_argument(pos, buffer)，同样为标准内置子程序

若后续编译还遇到其他DFLIB相关函数报错，直接搜索对应函数的Fortran标准实现替换即可，当前你遇到的两个接口替换无任何功能差异。

方案2：更换兼容CVF的编译器 #

如果不想修改源码，可更换支持DFLIB接口的编译器：

• CVF后续被英特尔收购，Intel oneAPI Fortran Compiler完全兼容CVF的所有扩展接口
• 安装Windows版Intel oneAPI基础工具包+HPC工具包后，在Code::Blocks的编译器设置中，将默认Fortran编译器替换为Intel Fortran即可直接编译原代码，无需做任何修改

方案3：自定义DFLIB兼容层（适合不想改大量源码的场景） #

如果源码中大量调用DFLIB接口，逐一修改成本高，可以自行编写极简兼容层模块：

! 保存为dflib.f90，和SWEEP源码放在同一目录下一起编译
Module DFLIB
    Implicit None
    Contains
    ! 兼容NARGS接口：返回命令行参数个数
    Integer Function NARGS()
        NARGS = command_argument_count()
    End Function NARGS
    ! 兼容GETARG接口：读取指定位置的命令行参数
    Subroutine GETARG(pos, buf)
        Integer, Intent(In) :: pos
        Character(*), Intent(Out) :: buf
        Call get_command_argument(pos, buf)
    End Subroutine GETARG
End Module DFLIB

编译时会自动生成dflib.mod，编译器即可正常识别原代码中的DFLIB调用。

其他旧格式报错通用处理 #

2006年的CVF代码大概率为固定格式Fortran源码，若你后续还遇到大量语法报错，可先尝试在Code::Blocks的Fortran编译器编译参数中添加-ffixed-form，指定编译器按固定格式解析源码，或把源码后缀从.f90改为.for。

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