当前位置：文江博客话题详情

我们还需要子程序吗？

发布于 2024-09-27 23:35:14 字数 318 浏览 2 评论 0原文

在 Fortran 中，函数和子例程之间存在明显的区别：函数返回一个值，子例程不返回任何值。这引入了两者之间的一系列差异。一个例子是调用语义：您可以像在其他语言中一样调用函数，但为了调用子例程，您必须首先发出 call 语句。

随着 Fortran95 中添加的指针和数据类型，使任何子程序成为函数以及保留子例程仅用于遗留似乎不再存在技术限制。函数可以返回零（您只返回一个虚拟整数）、一个或多个值（例如，您可以返回指向已分配类型实例的指针，如 C++ STL 对）。

我错了吗？由于子例程具有而函数没有的某些功能，我们在 Fortran 编程中是否仍然需要子例程？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

夏末染殇 2024-10-04 23:35:15

如果您搜索 comp.lang.fortran 档案，您会找到有关函数语义的讨论。 IIRC 事实证明，标准中没有明确规定对于具有副作用的函数，什么是允许的，什么是不允许的。

例如，编译器可以将

x = foo(args) + foo(args)

优化为

x = 2 * foo(args)

或者再举个例子，考虑

x = y + foo(y)

如果 foo() 改变了值怎么办是吗？请记住，Fortran 没有 C 语言中的序列点概念。

一般来说，一些专家的建议是仅使用纯函数，否则使用子例程。而且，这也是我自己遵循的建议。

回复收藏 0 原文

三人与歌 2024-10-04 23:35:15

我不认为子例程会去任何地方。大多数其他语言都允许返回值和不返回值的方法。我看不出有什么理由认为这是一件坏事。任何人都不应该被感动去改变一件事。

仅遗产表明，子例程将像 Fortran 一样持续存在。只要 Fortran 存在，编写执行操作但不返回任何内容的方法就没有什么问题。

更新：

为什么说“麻烦”？有什么大不了的？我不同意子例程在适当的情况下使用时会带来“麻烦”的观点。

自版本 77 甚至更早版本以来，Fortran 一直保持函数和子例程之间的区别。其他 C 系列语言也是如此。怎么突然就这么麻烦了？即使是很长时间以来一直存在指针和对象的语言也有返回 void 的方法。

回复收藏 0 原文

冬天旳寂寞 2024-10-04 23:35:15

你又想用 fortran 来编写 C 程序了，不是吗？ ;-)

在我看来，是的 - 我们确实如此。因为如果只有一个原因——它们比函数更容易掌握、理解，而且使用更广泛。

另外，-1，因为我认为这不是一个建设性的问题。如果您不喜欢它们，请不要使用它们。

回复收藏 0 原文

—━☆沉默づ 2024-10-04 23:35:15

如果我理解正确的话，Stefano 并不反对子例程的想法。反对他们的意见是无稽之谈。他反对对子例程/函数使用不同的风格。

Fortran 是命令式编程语言。更准确地说，它是一种过程编程语言（更准确地说，它是结构化编程语言）。

在命令式编程中，我们有一个状态和改变它的语句。在过程编程中，我们进行更改的工具是过程（我们将更改本地化在过程中）。该过程可能会也可能不会返回某些值。我不认为这个事实（无论是否有过程返回值）是在编程语言中拥有两个不同实体的重要原因。当我们实际上不需要返回某些东西（void）时，我们可以只拥有函数（就像在 C 中一样）并且只返回一些特殊的东西。或者我们可以只使用允许返回值的过程和特殊语法，如 Modula-2、Oberon 等。

该语言可能应该只有一种声明过程的样式。我同意你的观点，斯特凡诺。

回复收藏 0 原文

怼怹恏 2024-10-04 23:35:15

事实上，我必须回答自己这个问题，这很疯狂，但事实就是如此。

差异源于这样一个事实：在 Fortran 中你不能“像其他语言一样调用函数”。在 C 中，您可以调用整数函数而不分配值，例如

int foo() {
    return 5;
}
int main() {
    foo(); // this works
}

在 Fortran 中，您始终必须关联接收变量。示例

module test
   implicit none

contains
   integer function foo()
      print *, "hello"
      foo = 0
   end function

end module

program hello
   use test
   integer :: x

   x = foo() ! this works
   foo() ! this does not compile

end program hello

意味着通过返回虚拟整数来“模拟” void 函数仍然不允许您在没有接收器变量的情况下进行调用。

在 Fortran 中，void 返回类型不存在。从技术上讲，您可以使用所有函数构建您的程序，将每次出现的 call 语句替换为 x = （如上所示），但这不会使您的语法类似于 C 或无论如何，其他语言中，void 返回函数和非 void 返回函数之间没有区别。子例程是唯一允许“返回 void”的实体，但执行调用的语义完全不同。除此之外，两者没有任何区别。

The fact that I have to answer myself to this question is insane, but that's how it is.

The difference stems from the fact that you cannot "call functions like in other languages" in Fortran. While in C you can call an integer function without assigning the value, example

int foo() {
    return 5;
}
int main() {
    foo(); // this works
}

In Fortran, you always have to associate a receiving variable. Example

module test
   implicit none

contains
   integer function foo()
      print *, "hello"
      foo = 0
   end function

end module

program hello
   use test
   integer :: x

   x = foo() ! this works
   foo() ! this does not compile

end program hello

Meaning that to "emulate" a void function by returning a dummy integer would still not allow you to call without having a receiver variable.

In Fortran, the void return type does not exist. Technically, you could structure your program with all functions, replace every occurrence of the call statement with x = like seen above, but that would not make your syntax similar to C or other languages anyway, where there is no distinction between void-returning functions and non-void returning functions. subroutines are the only entities that allow to "return void", but the semantic to perform the call is simply different. Apart from that, there's no difference between the two.

回复收藏 0 原文

~没有更多了~