fortran里contians

在Fortran中，`CONTAINS`关键字用于模块（module）中定义子程序（subroutines或functions），类似于其他编程语言中的`function`或`procedure`。当你在一个模块中使用`CONTAINS`时，你可以把相关的函数或子程序放在同一部分，使得它们与模块本身分离，便于管理和复用。

然而，`contains`并不直接对应于一个特定的操作或函数，如查找元素（如`contains` in Python里的`in`操作）。在Fortran中，查找元素通常通过循环（如`do`或`if`语句）或者数组的逻辑索引来实现。例如：

module my_module
  contains
    subroutine find_element(array, element, found)
      real, intent(in) :: array(:)
      real, intent(in) :: element
      logical, intent(out) :: found

      do i = 1, size(array)
        if (array(i) == element) then
          found = .true.
          exit
        end if
      end do
    end subroutine find_element
end module my_module

在这个例子中，`find_element`函数会查找数组`array`中是否存在指定的`element`并返回结果。