Windows 11编译Ubuntu编写的Fortran代码：Vtk/Test执行报错求助

错误分析 #

你的问题集中在三个核心点：Windows与Linux的路径分隔符差异、目录自动创建逻辑缺失、系统命令不兼容，以及可能的命令行参数解析问题。

分步解决方案 #

1. 修复路径与目录创建问题 #

问题根源

Linux路径用/，Windows用\；且Windows程序不会自动创建不存在的子目录（如EXMP2/VTK），导致文件打开失败。

修改步骤

• 打开Vtk.F90，定位到第65行附近的文件打开代码，添加系统适配的路径处理与目录创建逻辑：

  ! 在文件开头或合适位置添加条件编译的路径分隔符定义
  character(len=1) :: dir_sep
  #ifdef _WIN32
    dir_sep = '\'
  #else
    dir_sep = '/'
  #endif
  
  ! 在打开Pecube000.vtk之前，先创建VTK目录
  character(len=256) :: vtk_dir, filename
  vtk_dir = trim(case_dir) // dir_sep // 'VTK'
  #ifdef _WIN32
    call execute_command_line('mkdir "'//trim(vtk_dir)//'"', wait=.true.)
  #else
    call execute_command_line('mkdir -p '//trim(vtk_dir), wait=.true.)
  #endif
  
  ! 拼接正确的文件路径
  filename = trim(vtk_dir) // dir_sep // 'Pecube000.vtk'
  open(unit=30, file=trim(filename), status='replace', action='write')
  

• 对testTopo.F90第268行做完全相同的修改，确保EXMP2/VTK目录在打开Topo001.vtk前已创建。

2. 替换rm系统命令 #

问题根源

代码中通过system()或execute_command_line()调用了Linux的rm命令，Windows不识别该命令。

修改步骤

• 全局搜索所有Fortran源文件中的system(或execute_command_line(，找到包含rm的语句，替换为Windows兼容的命令：

  ! 原Linux删除文件代码
  ! call system('rm -f '//trim(temp_file))
  ! 替换为跨平台版本
  #ifdef _WIN32
    ! Windows用del命令，加/q/f静默强制删除，路径带空格需加引号
    call execute_command_line('del /q /f "'//trim(temp_file)//'"', wait=.true.)
  #else
    call execute_command_line('rm -f '//trim(temp_file), wait=.true.)
  #endif
  

• 如果是删除目录，Linux用rm -rf，Windows用rd /s /q，同样用条件编译区分。

3. 修复命令行参数语法错误 #

问题根源

部分Fortran代码对命令行参数的解析逻辑可能依赖Linux的shell规则，Windows下会触发语法错误。

修改步骤

• 检查代码中读取命令行参数的部分（通常用get_command_argument()或command_argument_count()），确保第一个参数（EXMP2）被正确读取为案例目录名，没有多余的空格或格式处理逻辑。
• 运行时确保命令格式为：Vtk.exe EXMP2（Windows下需显式带.exe后缀，或确保系统能识别可执行文件）。

4. 编译时添加系统宏定义 #

编译代码时需显式定义Windows系统宏，让条件编译逻辑生效：

• 若用gfortran编译，添加参数：-D_WIN32
• 若用Intel Fortran编译，添加参数：/D_WIN32

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