如何在 Fortran 派生类型或类中实现类型绑定写入语句输出

Posted

技术标签:

【中文标题】如何在 Fortran 派生类型或类中实现类型绑定写入语句输出【英文标题】:How to implement a type-bound write statement output in a Fortran derived-type or class 【发布时间】:2013-07-01 20:06:39 【问题描述】:

假设我有这个简单的类:

   Module Foo
        ...
        character(len=3), parameter :: describe_Foo=(/'BAR', 'BED', 'BOD'/)
        ...
        type :: A
            real :: value
            integer :: descriptor
        contains
            procedure :: getter
            procedure :: setter
            ...
        end type A

   contains
        function writetype(self,...)
            ...
            write(writetype,*) self%value, describe_foo(self%descriptor)
        end function writetype
   ...
   end module Foo

如何将其接口定义为“write”,以便每次将此类型传递给 write 语句时,它都会输出由类方法 writetype 定义的字符串。

换句话说,用 Python 的说法,我可以实现与 __str__() 方法等效的方法吗?

我发现了一些诱人的花絮,表明这是可能的,请参阅 User-defined derived-type Input/Output procedures (Fortran 2003) 和 User-defined derived-type Input/Output procedure interfaces (Fortran 2003)。这些文档提供了足够的信息来编写我需要的方法,但我仍然不清楚如何定义接口或过程规范以实现我想要的行为。

示例应用:

program test
    ...
    type(A) :: bartype, bedtype
    ...
    bartype=A(120.0,1)
    bedtype=A(102.0,2)
    write(*,*) bartype,bedtype
end program test

期望的输出:

>test.exe
 120.0000 BAR
 102.0000 BED

【问题讨论】:

【参考方案1】:

您需要有一个通用的 WRITE(FORMATTED) 绑定,绑定到具有合适特性的特定过程。有关详细信息,请参阅 F2008 标准中的第 9.6.4.8 节。

type :: A
  real :: value
  integer :: descriptor
contains
  procedure :: writetype
  generic :: write(formatted) => writetype
end type A
...
subroutine writetype(dtv, unit, iotype, v_list, iostat, iomsg)
  ! Argument names here from the std, but you can name them differently.
  class(A), intent(in) :: dtv         ! Object to write.
  integer, intent(in) :: unit         ! Internal unit to write to.
  character(*), intent(in) :: iotype  ! LISTDIRECTED or DTxxx
  integer, intent(in) :: v_list(:)    ! parameters from fmt spec.
  integer, intent(out) :: iostat      ! non zero on error, etc.
  character(*), intent(inout) :: iomsg  ! define if iostat non zero.
  ...
  write (unit, "(F9.4,1X,A)", IOSTAT=iostat, IOMSG=iomsg)  &
      dtv%value, describe_foo(dtv%descriptor)
end subroutine writetype

可能还值得注意的是,您需要一个实现此功能的编译器!

【讨论】:

谢谢你,正是我想要的!

以上是关于如何在 Fortran 派生类型或类中实现类型绑定写入语句输出的主要内容,如果未能解决你的问题,请参考以下文章

在派生类型中使用可分配的目标变量

Fortran 派生类型

在 fortran 中命名派生类型的良好做法

确定内存中的 Fortran 派生类型大小

Fortran 派生类型包含可从 C 访问的指针

Fortran - 可分配派生类型的可分配数组