fortran 派生类型成员函数能是function吗

是的，Fortran中的派生类型成员函数可以是函数（function）。函数和子程序（subroutine）类似，但函数可以返回一个值，而子程序不返回值。

以下是一个示例代码，展示了如何在派生类型中定义一个成员函数作为函数：

module MyModule
  type :: MyType
    integer :: value
  contains
    procedure :: setValue
    procedure :: getValue
  end type MyType

contains

  subroutine setValue(this, x)
    class(MyType), intent(inout) :: this
    integer, intent(in) :: x
    this%value = x
  end subroutine setValue

  function getValue(this) result(x)
    class(MyType), intent(in) :: this
    integer :: x
    x = this%value
  end function getValue

end module MyModule

program TestProgram
  use MyModule
  
  type(MyType) :: obj
  integer :: val
  
  call obj%setValue(42)
  val = obj%getValue()
  
  print *, "Value:", val
  
end program TestProgram

在上面的示例中，`getValue`被定义为一个函数。它接受一个`MyType`对象作为输入，并返回一个整数值。在函数内部，我们将对象的值赋给`x`，最后将`x`作为函数的结果返回。

通过在派生类型中定义成员函数作为函数，我们可以实现更多的功能，并且可以在程序中直接使用它们返回的值。