Fortran-简明教程-(为非编程专业的同学选读).pptVIP

注意事項： 副程式的命名應有意義並且不隨意變更，因為副程式可能提供多個程式呼叫使用，甚至由團隊中不同人員叫用；修正時，需修改原程式叫用部分並更新相關文件。 原始檔中，未規定主程式program與副程式subroutine先後順序；但編譯後執行，主程式會被自動執行，副程式則是被動需被叫用才執行。 要返回主程式使用return指令，return可放在副程式中任意位置；使用stop會使主程式也停止。 呼叫端可以是主程式，也可以是副程式。 Fortran 90 進一步支援副程式自己呼叫自己，稱為遞迴。 副程式除傳遞進入的變數外，可以獨立宣告屬於自己的變數，既使變數名稱與主程式相同亦可。 副程式傳遞變數採用傳址呼叫（call by address / call by reference），即傳遞記憶體位置，前例中，value1 和 a 指著相同的記憶體位置。 註：另一種稱「傳值呼叫」，在副程式中傳遞變數也會有獨立的記憶體位置，改變內容不影響呼叫端的變數內容。 Function（自訂函數） 舉例如下： ! 使用者輸入數字 x，計算 x2 - 2x + 1 值 program func_test real x, y ?do while (.ture.)?????? ! 設定為無窮迴圈 ??? read *, x??????????? ! 使用者輸入 x ??? y = f(x)???????????? ! 呼叫 f 函數計算 x2 - 2x + 1 ??? print *, y?????????? ! y = f(x)、print *, y 兩行可合併為 print *,f(x) ?end do end ------------------------------------------ real function f(x)?? ! 宣告函數 f 傳回的型態為real real x f = x**2 – 2*x + 1 return end 語法： Calling programs (main program, subroutines) function name[([actual argument list])] -------------------------------------------------- Called programs (functions) [type] FUNCTION func. name[([dummy argument list])] END [FUNCTION [func. name]] (Fortran 77只用END) -------------------------------------------------- Passed by address: if an actual argument is a variable name, array name, array element or a substring Passed by value: if the actual argument is any other expression (including a constant) 注意事項： 函數型態的宣告可以寫在函數的最開頭，如??? real function f(x)或是放在變數宣告區塊，如??? function f(x)??? real f, x 呼叫端可將函數名稱做 EXTERNAL 宣告，表示該名稱不是變數，而是函數名稱。當函數名稱做為變數傳遞時，不可省略。 叫用時不需使用 CALL 指令，直接寫出[名稱]即可，如 ? print *, f(x) ? a = f(1.0) + f(2.0) ? b = f( f(1.0) ) 傳遞變數若非運算式或常數，則採傳址呼叫，但在function中，一般不會去改變該變數的內容，這是一個不成文的習慣。若要改變傳入變數的內容，請改用subroutine。 Statement Function 若函數只包含一個運算式，又只在同一個主程式或函式中被使用，可以使用 statement function 的寫法，在 Function 中的例子變成： program func_test real x, f f(x) = x**2 – 2*x + 1? ! 直接定義函數 do while (.ture) read *, x????????????? ! 使用者輸入 x print *, f(x)????????? ! 呼叫 f 函數計算 x2 - 2x + 1，並輸出 end do end 　 語法： [type]