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#等語言，在文法格式上還是有不少區別的。