Fortran 入门——函数调用

当我的第一个Fortran程序 "Hello World" 诞生后，我的下一个目标便是写一个包含函数调用的程序，至于那些什么代码格式，数据类型，语法等等全部走马观花浏览一遍，既然需要速成，那么细节方面只能略过，将来有需要可以再补。

在VS中新建一个 Fortran-Console Application项目，选择默认的EmptyProject模板。然后添加一个Source文件。

在新添加的Source文件中输入如下代码

1 integer function Add(x,y)
2 implicit none
3 integer ::x,y
4 Add=x+y
5 end function

如上代码所示便是一个非常简单的Fortran函数，写成C#代码的话如下

1 int Add（int x,int y)
2 {
3     return x+y;
4 }

可以看到在Fortran中代码块没有C#的大括号表示法。interger function end 等关键字皆为小写。在旧版本中，貌似必须大写。

在Fortran函数中，参数的数据类型在函数体中定义，如"integer ::x,y",函数的返回值则需要赋给函数的名称"Add=x+y"，这点着实不太习惯。

函数有了，接下来该是调用了，再敲点代码吧

1 program main
2 integer:: x,y
3 integer Add
4 read *, x,y
5 print *,Add(x,y)
6 read *,x
7 end

在主程序中，需要声明Add函数的类型"integer Add"，否则调用会失败。

可以看到，一个简单的函数调用程序，相比C#等语言，在语法格式上还是有不少区别的。