OOP Fortran中如何让namelist写入生成浅格式而非深格式？

目前Fortran标准（以及gfortran、ifort等主流编译器的实现）没有提供直接控制namelist输出格式的选项，无法让继承式派生类型的namelist write 直接生成你需要的"浅格式"输出。以下是几种可行的替代解决方案：

1. 手动指定namelist成员变量 #

不将整个派生类型绑定到namelist，而是直接列出所有需要读写的成员变量。这样输出时会自动使用"浅格式"的变量路径。

示例修改后的代码：

program main
  type                     :: parenttype
    integer                :: parentvar
  end type

  type,extends(parenttype) :: childtype
    integer                :: childvar
  end type

  type(childtype) :: ioobj
  ! 直接指定派生类型的所有成员变量到namelist
  namelist /ionml/ ioobj%parentvar, ioobj%childvar

  ! 使用"浅路径"初始化
  ioobj%parentvar = -1
  ioobj%childvar  = -2

  ! 读取浅格式文件
  open(unit=1, file="in.nml", status="OLD")
  read(unit=1, nml=ionml)
  close(unit=1)

  ioobj%parentvar = ioobj%parentvar + 1
  ioobj%childvar  = ioobj%childvar  + 1

  ! 写入浅格式文件
  open(unit=2, file="out.nml", status="NEW")
  write(unit=2, nml=ionml)
  close(unit=2)

  ! 读取验证
  open(unit=3, file="out.nml", status="OLD")
  read(unit=3, nml=ionml)
  close(unit=3)

  print*, "parent var:", ioobj%parentvar, " child var:", ioobj%childvar
end program

该方案的缺点是：如果派生类型成员较多，namelist定义会冗长；后续修改派生类型结构时，需要同步更新namelist的成员列表。

2. 自定义派生类型的格式化输出过程 #

为派生类型定义一个自定义的write(formatted)过程，手动拼接符合"浅格式"的namelist内容。这种方式可以封装输出逻辑，减少重复代码。

示例代码：

program main
  type                     :: parenttype
    integer                :: parentvar
  end type

  type,extends(parenttype) :: childtype
    integer                :: childvar
    contains
      procedure :: write_formatted => write_childtype_nml
  end type

  type(childtype) :: ioobj
  namelist /ionml/ ioobj

  ! 初始化
  ioobj%parentvar = -1
  ioobj%childvar  = -2

  ! 读取浅格式文件
  open(unit=1, file="in.nml", status="OLD")
  read(unit=1, nml=ionml)
  close(unit=1)

  ioobj%parentvar = ioobj%parentvar + 1
  ioobj%childvar  = ioobj%childvar  + 1

  ! 写入浅格式namelist
  open(unit=2, file="out.nml", status="NEW")
  write(unit=2, '(A)') '&IONML'
  call ioobj%write_formatted(unit=2)
  write(unit=2, '(A)') ' /'
  close(unit=2)

  ! 读取验证
  open(unit=3, file="out.nml", status="OLD")
  read(unit=3, nml=ionml)
  close(unit=3)

  print*, "parent var:", ioobj%parentvar, " child var:", ioobj%childvar

contains

  subroutine write_childtype_nml(this, unit)
    class(childtype), intent(in) :: this
    integer, intent(in) :: unit
    ! 按浅格式输出变量
    write(unit, '(A,I0,A)') ' IOOBJ%PARENTVAR=', this%parentvar, '         ,'
    write(unit, '(A,I0,A)') ' IOOBJ%CHILDVAR=', this%childvar, '         ,'
  end subroutine write_childtype_nml

end program

该方案灵活性高，适合复杂派生类型，但需要手动维护输出格式，确保符合namelist语法规范。

3. 后处理文本替换脚本 #

如果不想修改Fortran代码，可以在namelist输出完成后，用文本处理工具去除继承层级的冗余部分。比如你提到的sed命令：

sed -i 's/%[^ =]*%/%/' out.nml

这个方案简单直接，但属于外部依赖，跨平台使用时需要调整（比如Windows下用PowerShell的字符串替换逻辑），同时要注意正则表达式的准确性，避免误替换其他内容。

内容的提问来源于stack exchange，提问作者H. Weirauch