模組

線上編輯

用途

MODULE 陳述式是模組程式單元的第一個陳述式，其中包含可供其他程式單元存取的規格及定義。

語法

讀取語法圖跳過視覺化語法圖MODULEmodule_name

規則

模組名稱是廣域實體，由其他程式單元中的 USE 陳述式參照，以存取模組的公用實體。 使用者定義模組的名稱不得與程式中任何其他程式單元、外部程序、共用區塊、 廣域實體的連結標籤 相同，也不得與模組中任何本端名稱相同。

如果完成模組的 END 陳述式指定模組名稱，則名稱必須與 MODULE 陳述式中指定的名稱相同。

範例

MODULE MM
   CONTAINS
     REAL FUNCTION SUM(CARG)
       COMPLEX CARG
       SUM_FNC(CARG) = IMAG(CARG) + REAL(CARG)
       SUM = SUM_FNC(CARG)
       RETURN
     ENTRY AVERAGE(CARG)
       AVERAGE = SUM_FNC(CARG) / 2.0
     END FUNCTION SUM
     SUBROUTINE SHOW_SUM(SARG)
       COMPLEX SARG
       REAL SUM_TMP
  10   FORMAT('SUM:',E10.3,' REAL:',E10.3,' IMAG',E10.3)
       SUM_TMP = SUM(CARG=SARG)
       WRITE(10,10) SUM_TMP, SARG
     END SUBROUTINE SHOW_SUM
END MODULE MM

相關資訊