模組-數學系.pptVIP

Chapter 模組 M-1 Public and Private 程式說明 module test implicit none private var_1 public var_2,sub_1 integer :: var_1,var_2 ... contains subroutine sub_1 … end module test M-1 Public and Private M-1 Public and Private M-1 Public and Private M-2 USE 更改模組中變數名稱 module A implicit none integer :: va end module A module B implicit none integer :: va, vb end module program main use A, aa=va use B implicit none ... M-2 USE 只使用模組中的某些變數 module A implicit none integer :: va, vb, vc end module module B implicit none integer :: va, vb end module program main use A, only : vc use B implicit none ... M-2 USE 合併使用 module A implicit none integer :: va, vb, vc end module module B implicit none integer :: va, vb end module program main use A, only : c = vc use B implicit none ... M-2 USE M-2 USE M-2 USE M-2 USE M-3 Interface Overload 在程式碼中可以同時擁有多個名稱相同，但是參數型態、 數目不同的函式，程式會自動根據傳入的參數，來決定 要呼叫哪一個函式 Overload subroutine 在 module 中使用 interface，可以用來定義一個虛擬的 函式名稱 M-3 Interface M-3 Interface M-3 Interface * 台灣師範大學數學系 黃聰明 將模組內的變數或函式定義成只能在此模組內使用的變數或函式 將模組內的變數或函式定義成可以對外界公開使用的變數或函式 函式要放在contains中 內定的狀態為 public module bank ?? implicit none ?? private money ?? public LoadMoney, SaveMoney, Report ?? integer :: money = 1000000 ?? contains ????? subroutine LoadMoney(num) ?????? ?? implicit none ??????? ? integer :: num ??????? ? money=money-num ??????? ? return ????? end subroutine Ex0M01. 完整程式 接下頁 變數 money 只能在 module bank 中使用，主程式中不能使用 money 變數 將 LoadMoney, SaveMoney, Report 定義成可以對外界公開使用的函式 ????? subroutine SaveMoney(num) ???????? implicit none ???????? integer :: num ??????? ? money=money+num ??????? ? return ????? end subroutine subroutine Report() ???????? implicit none ???????? write(*,(銀行目前庫存,I,元)) money ???????? return ????? end subroutine end module bank Ex0M01. 完整程式 接下頁 program ex0M01 ?? use bank ?? i