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#等语言,在语法格式上还是有不少区别的。

posted @ 2011-11-14 15:07  xxfss2  阅读(10746)  评论(0编辑  收藏  举报