能不能通过绑定的方法重载函数名？

fcode

洁癖是一种心理疾病。

绑定的方法只能 v = v%abs()
不能是 v= abs(v)

fcode

把 AbsVect_Fn 设置为 private 就好了。
一般，OOP的模块，都默认 private，然后把需要的 public

也可以双绑定，即绑定类的过程，也 overloading intrinsic function

这样
write(*,'(2dt"(3f6.2)")') abs(a) , a%abs()
都可以使用

[Fortran] 纯文本查看 复制代码

Module VectClass
  Implicit None
  private
  TYPE , public :: Vect
    Real(8) ,Private :: x
    Real(8) ,Private :: y
    Real(8) ,Private :: z 
  Contains
    Procedure :: set
    Procedure,pass(ThisVect),Private :: VectMulScal_Fn , ScalMulVect_Fn , VectMulVect_Fn
    Generic, Public :: operator (*) => VectMulScal_Fn , ScalMulVect_Fn , VectMulVect_Fn
    Procedure :: writef
    Generic :: write(formatted) => writef
    Procedure :: abs => AbsVect_Fn
  End TYPE

  public :: abs
  interface abs
    module procedure AbsVect_Fn
  end interface


contains

  function AbsVect_Fn (ThisVect)
    type(Vect) :: AbsVect_Fn
    class(Vect) :: ThisVect
    AbsVect_Fn = Vect( abs(ThisVect%x) , abs(ThisVect%y) , abs(ThisVect%z) )
  end function AbsVect_Fn

fcode

是的，这就是双绑定。（双绑定是我的一个口语，不是正式说法）
1. type bound procedure ：派生类型绑定过程（成员变量）
2. overloading intrinsic function：重载内部函数

fcode

procedure :: xx
Generic, Public :: operator (*) =>xx

这种必须绑定派生类型。