第六章派生类型.ppt.ppt

第六章 派生类型 固有数据类型，数组集合的元素要求类型相同。 用户定义类型或派生类型，Fortran 90 允许定义不同类型元素的集合。 本章主要包括以下几个内容： 1 派生类型的定义 2 派生类型的构造及初始化 3 操作符重载 4 数据库管理应用 构造派生类型的形式为： TYPE [ [，access] ::] name component – definition END TYPE [name] access代表 PRIVATE 或 PUBLIC 关键字，在模块中定义数据类型时使用，缺省为 PUBLIC。若规定为 PRIVATE，则该数据类型只能在模块内使用； name代表派生类型名称，类似于固有数据类型的整型 INTEGER、实型 REAL，类型名称在模块范围内是唯一的； component – definition代表派生类型成员声明，第一个成员声明前可以出现 PRIVATE或SEQUENCE 关键字，PRIVATE 规定派生类型的成员只在定义的模块内可访问， SEQUENCE 则规定派生类型成员按声明次序存储。 针对上述创建的学生数据类型， TYPE(Student) student1，student2 声明变量 student1。 TYPE(Student)，DIMENSION(100) ::class 声明派生类型数组class。 派生类型的变量声明类似于固有类型，在类型名称前添加 TYPE 关键字，形式如下： TYPE(派生类型名) [[，属性] ::] 变量列表 派生类型成员可以和同类型的变量一样使用，但引用派生类型成员时，须使用成员操作符%，例如： student1 % Birthdate = 461121 对派生类型变量 student1 的 Birthdate 成员进行赋值。 class % Female = .FALSE. 将数组 class 所有元素的 Female 成员设置为男性。 Student2 = Student1 将 Student1 的所有成员赋给 Student2 的对应成员，同一个派生类型的2个变量可以相互赋值。 派生类型构造子的形式为： d – name (expr - list) d – name 指派生类型名； expr – list 为规定派生类型成员值的表达式列表，表达式的次序、类型、种类数必须和定义派生类型成员的一致； 派生类型构造子可以出现在初始化中，也可以出现在赋值、输入/输出语句中。 Fortran 95 允许在定义派生类型时，直接给出成员的默认值。如给出成员 Mark 的默认值为60 ： TYPE Student CHARACTER(20) NAME REAL :: Mark = 60 END TYPE 初始化时，成员的默认值将被构造子的表达式列表所覆盖，例如： TPYE(Student) :: stu1 = Student(“Smith，JR”，49) 这里的49覆盖了成员 Mark 的默认值60。 说明：如果在模块中定义派生类型时将成员声明为 PRIVATE，则不能 使用构造子进行初始化。例 6-2 所示为派生类型的私有构造 例 6-2 派生类型的私有构造 MODULE Stu_Type IMPLICIT NONE TYPE Student !定义Student数据类型 PRIVATE !成员私有，将成员的访问权限控制在模块内 CHARACTER(20)NAME REAL Mark END TYPE CONTAINS SUBROUTINE Student_(this,n,m) !相当于C++中的构造函数 TYPE(Student)，INTENT(out)::this CHARACTER(*)，INTENT(in)::n REAL，OPTIONAL，INTENT(in)::m this%Name=