43、Fortran 程序单元详解

Fortran 程序单元详解

1. 程序单元概述

程序单元主要包含三个部分：
- 规格部分（The Specification Part） ：用于描述环境的性质，如变量的类型和属性、初始值、过程接口等。
- 执行部分（The Execution Part） ：是一系列可执行结构、FORMAT 语句、DATA 语句和 ENTRY 语句的序列。不过，执行部分中的 DATA 语句已逐渐过时。
- 子程序部分（The Subprogram Part） ：由 CONTAINS 语句和一个或多个子程序组成。内部子程序不能有子程序部分。

下面是一个包含四个程序单元的 Fortran 程序示例：

PROGRAM DRIVER
   USE STOCK_ROOM
   ...
   CALL MECHANIC(TUNEUP)
   ...
END PROGRAM DRIVER

SUBROUTINE PARTS &
     (PART, MODEL, YEAR)
   USE STOCK_ROOM
   ...
END SUBROUTINE PARTS

MODULE STOCK_ROOM
   ...
END MODULE STOCK_ROOM

SUBROUTINE MECHANIC (SERVICE)
   USE STOCK_ROOM
   ...
   CALL PARTS (PLUGS, "CRX",1992)
   ...
END SUBROUTINE MECHANIC