fortran95中module里每次定义一个函数都需要contains来声明吗

在Fortran 95中，模块（Module）是一种封装代码的方式，它可以帮助组织相关的子程序（如函数、子程序等）以便于管理和重用。当你在模块中定义一个函数或其他可执行组件时，通常不需要显式地使用`CONTAINS`语句来声明它们。在传统的Fortran标准（直到Fortran 2008之前）中，函数和子程序是在模块内部自然可见的。

然而，在Fortran 2008及以后的标准中，`CONTAINS`关键字被引入以明确指示哪些部分属于模块的内容，这对于大型项目或遵循现代编程习惯来说是一个推荐实践。虽然不是强制性的，但在模块定义中使用`CONTAINS`可以让代码更清晰，尤其是当模块包含多个外部接口函数时。

以下是一个例子：

MODULE MyModule
IMPLICIT NONE

CONTAINS
FUNCTION Multiply(a, b) REAL
    REAL :: a, b
    Multiply = a * b
END FUNCTION Multiply

END MODULE MyModule

在这里，`CONTAINS`告诉编译器后续的函数定义（`Multiply`）属于`MyModule`这个模块。

相关问题

fortran中的module怎么用

Fortran中的module（模块）是一种用于组织程序代码的结构化方式。通过将相关的函数、子程序、变量等放在同一个module中，可以方便地在程序的其他位置调用和使用它们。使用module可以提高代码的可维护性和可读性。

下面是一个简单的module示例：

module my_module
  implicit none
  integer :: my_variable = 0

  contains

  subroutine my_subroutine()
    print *, "Hello from my_subroutine!"
  end subroutine my_subroutine

end module my_module

在这个例子中，我们定义了一个名为my_module的module，它包含了一个整型变量my_variable和一个子程序my_subroutine。在程序的其他位置，可以通过使用use语句来调用这个module中的变量和子程序。例如：

program main_program
  use my_module
  implicit none
  my_variable = 10
  call my_subroutine()
  print *, "my_variable = ", my_variable
end program main_program

在这个例子中，我们使用use语句来调用my_module中的变量和子程序。在程序中，我们将my_variable的值设置为10，并调用my_subroutine子程序输出一条消息。最后，我们输出my_variable的值，以确认它已经被正确设置。

需要注意的是，module中的变量和子程序默认是私有的，即只能在module内部访问。如果要在module外部访问它们，需要在module中使用public语句进行声明。例如：

module my_module
  implicit none
  integer, public :: my_variable = 0

  contains

  subroutine my_subroutine()
    print *, "Hello from my_subroutine!"
  end subroutine my_subroutine

end module my_module

在这个例子中，我们使用public语句将my_variable声明为公共的，即可以在module外部访问它。

fortran 派生类型如何定义成员函数

在Fortran中，派生类型可以通过在类型定义中定义过程来创建成员函数。以下是一个示例代码，展示了如何定义一个派生类型及其成员函数：

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

在上面的示例中，我们定义了一个叫做`MyType`的派生类型，并在其中定义了两个成员函数`setValue`和`getValue`。`setValue`过程用于设置`MyType`对象的值，而`getValue`函数用于获取对象的值。

在程序的主程序中，我们声明了一个`MyType`类型的对象`obj`，并使用成员函数来设置和获取对象的值。最后，我们打印出获取到的值。

注意，在派生类型的成员函数中，需要使用`class`关键字来指定该过程或函数作用于某个特定的对象。

这是一种简单的方式来定义派生类型的成员函数，你也可以在派生类型中定义更多的过程和函数来实现更复杂的功能。