如何在DO循环中批量引用带__2后缀的变量（如Type1__2至Typen__2）

在Fortran中，直接使用Type1__2-Typen__2这类范围写法来批量引用变量是不可行的——编译器的变量范围解析仅支持前缀一致、末尾为连续数字的命名（比如Type1-Typen），而Type1__2的数字部分夹在中间，无法被识别为连续序列。你可以用以下几种替代方法实现批量处理：

• 预处理器宏拼接（需编译器支持）
  若使用支持预处理器的编译器（如gfortran），可以通过宏自动生成变量名：

  #define MAX_NUM 10
  DO i = 1, MAX_NUM
      ! 宏会自动拼接成Type1__2、Type2__2...
      CALL process_variable(Type##i##__2)
  END DO
  

  注意：不同编译器的预处理器语法可能有细微差异，需对应调整。

• 统一打包为数组（最稳妥）
  将所有带__2后缀的变量存入一个数组，之后直接遍历数组即可，这是兼容性最好的方法：

  ! 声明对应类型的数组
  REAL :: type_suffix_2(10)
  ! 将原有变量赋值到数组中
  type_suffix_2(1) = Type1__2
  type_suffix_2(2) = Type2__2
  ! ... 其余变量依次赋值
  
  ! 批量处理
  DO i = 1, 10
      CALL process_variable(type_suffix_2(i))
  END DO
  

  如果变量类型不同，可以用派生类型数组来统一管理。

• ASSOCIATE关联临时数组（Fortran 2003+）
  借助Fortran 2003引入的ASSOCIATE语法，将变量临时关联为数组别名，省去单独定义数组的步骤：

  ASSOCIATE (target_vars => [Type1__2, Type2__2, Type3__2, ..., Typen__2])
      DO i = 1, SIZE(target_vars)
          CALL process_variable(target_vars(i))
      END DO
  END ASSOCIATE
  

  这种方法无需额外数组定义，但变量数量多时仍需一次性列出所有变量，不过比循环内逐个编写要简洁。

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