44、Fortran 编程：程序单元与过程使用详解

Fortran 编程：程序单元与过程使用详解

1. 模块与自定义类型

在 Fortran 编程中，模块是组织代码的重要工具，它可以包含类型定义、变量、过程等。例如，下面的代码定义了一个名为 new_type 的模块，其中包含了一个自定义类型 tax_payer ：

module new_type
    type :: tax_payer
        integer :: ssn
        character(len=20) :: name
    end type tax_payer
end module new_type

使用该模块的过程可以声明 tax_payer 类型的对象。

2. 用户自定义运算符

接口块可以声明新的运算符，或者为内置运算符赋予额外的含义。以下是一个扩展加法运算符 + 到 MATRIX 类型的示例：

MODULE MATRIX_OPS
    INTERFACE OPERATOR (+)
        PROCEDURE MATRIX_SUM
    END INTERFACE
    INTERFACE OPERATOR (.INVERSE.)
        FUNCTION MATRIX_INVERSE (MATRIX_1)
           ...
        END FU