FORTRAN 中函数的基本结构是什么？

Question

这是我最近想知道的事情，主要是出于好奇。 我想学习一些旧的编码风格，FORTRAN 似乎是一个很好的起点。

我想我应该通过提供一个好的起点来帮助你们。
那么这个 C 程序如何用 FORTRAN 编写呢？

int foo ( int x , int y )
{
    int tempX = x ;
    x += y / 2 ;
    y -= tempX * 3 ;    // tempX holds x's original value.
    return x * y ;
}

我知道整个函数可以是一行：

return ( x + ( y / 2 ) ) * ( y - ( x * 3 ) ) ;

但我问这个问题的目的是看看这四个语句如何在 FORTRAN 中单独编写，而不一定组合成单个语句。

Answer 1

不要责怪我 - 你说的是旧编码风格：

C234567
      SUBROUTINE FOO(I,J,K)
C SAVE THE ORIGINAL VALUES
      IORIG = I
      JORIG = J
C PERFORM THE COMPUTATION
      I = I + J/2
      J = J - IORIG*3
      K = I * J
C RESTORE VALUES
      I = IORIG
      J = JORIG
      END SUBROUTINE FOO

当我写这篇文章时，我不寒而栗，但

• 所有变量都是隐式整数，因为它们以 I 和 N FORTRAN 之间的字母开头
• ，通过引用传递，所以重置 < code>I 和 J 位于末尾，以提供与原始函数相同的效果（即按值传递，因此 x 和 y 在调用例程中没有改变）
• 注释从第 1 列开始，实际语句从第 7 列开始

请，请，请永远不要编写这样的新代码，除非是开玩笑。

Answer 2

您的函数在 Fortran 中可能如下所示

 integer function foo(m, n)
 integer i

 i = m
 m = m + n/2
 n = n - i*3
 foo = m*n

 end function foo

您应该能够开始使用有关 Fortran 的任何教程。 像这样的事情可能会有所帮助 http://www.cs .mtu.edu/~shene/COURSES/cs201/NOTES/fortran.html

干杯

Answer 3

请参阅函数和子例程：

INTEGER FUNCTION foo(i, j)
...
foo = 42
END

然后：

k = foo(1, 2)

Answer 4

你从哪里学习 FORTRAN？ 只需看看wikibook！

从这个例子中，我想说：

function func(x, y) result(r)
   integer, intent(in) :: x, y 
   integer             :: r 
   integer             :: tempX
   tempX = x
   x = x / 2
   y = y - tempX * 3
   r = x * y
end function foo

Answer 5

与上面类似，但用一个主程序来说明它是如何调用的。

C2345678
       program testfoo
         implicit none   
         integer r, foo 
         r = foo(4,5)
         print *, 'result = ', r
       end

       integer function foo(x,y)
         integer x, y
         integer tx, ty
         tx = x + y / 2
         ty = y - x * 3
         foo = tx * ty
         return
       end

注意，这是Fortran 77，是我23年前学的。

Answer 6

应用整数规则 IJKLMN 的真正旧风格

C2345678
      FUNCTION IFOO(I,J)
      II = I + J/2
      JJ = J - I*3
      IFOO = II*JJ
      END