第5章--种别和属性.pptVIP

5.1 种别概述 种别是一个全新的程序设计概念。通过它，程序员可以更灵活的控制程序所占用的存储空间。本节将对种别的一些基本概念进行介绍。 5.1.1 种别的概念 种别是Fortran 90/95标准中才开始引入的一种表示数据大小和精度的概念。引入种别的概念后，Fortran中的数据，不仅仅有一个类型所属，并且同一类型下还可进一步分出若干个种别。种别数值的大小确定了该类型数据实际的大小范围和存储精度。这就好比动物学中的分类，在猫科动物这一大的类型之下，还有老虎、猎豹、家猫等的进一步划分，它们的个头会有很大差异。 有了种别说明之后，计算机程序会更容易在不同硬件和软件平台间进行移植。由于目前的计算机系统并不统一，多种体系平台的现象依然客观存在。在不同的平台上，同种类型的变量可能规定了不同的精度范围。因此，在某种计算机上正确运行的程序在另一种计算机上运行时就有可能出现溢出等现象。有了数据的种别属性之后，就可以有效避免这种情况的发生。 5.1.2 种别的使用 在变量声明中，种别由种别说明符进行说明。带种别说明符的类型说明语句的基本语法形式如下： 类型说明([KIND=]种别值) [::] 变量名列表 种别说明符写在类型说明语句后的括号内，由关键字KIND，赋值号“=”以及种别值组成。其中，关键字KIND和赋值号“=”可以省略。例如程序中要说明一个实型变量A，种别值为4；一个字符型变量C，种别值为10；一个整型变量K，种别值为8。那么可以用下面的代码来进行声明： REAL(KIND=4) :: A CHARACTER(KIND=10) :: C INTEGER(KIND=8) :: K 5.2 种别值和种别函数 前面已经提到过了，由于Fortran国际标准中只是提出了数据的种别概念和定义，但并没有规定统一的种别分类和相关的数值定义。这一现象是由于当前计算机体系并不统一的现实造成的。因此，具体的种别值是由各个编译器厂商自行确定的。本节主要介绍Compaq Visual Fortran编译系统中提供的几类种别值。 5.2.1 整型数据的种别 整型数据在Compaq Visual Fortran中被划分为4种种别，种别值即表示整型数据所占内存空间的字节数n。表所示是Compaq Visual Fortran中定义的几种整型数据种别。 整型数据的种别 种别值n 取值范围 (-28n-1—28n-1-1) 备注 INTEGER([KIND=]1) 或 INTEGER*1 -128 到127 ? INTEGER([KIND=]2) 或 INTEGER*2 -32768 到32767 ? INTEGER([KIND=]4) 或 INTEGER*4 -2147483648 到2147483647 缺省值 INTEGER([KIND=]8) 或 INTEGER*8 -9223372036854775808到9223372036854775807 仅适用于Alpha芯片机型 5.2.2 实型数据的种别 实型数据在Compaq Visual Fortran中被划分为3种种别。在Fortran 90/95标准中并没有明确规定实型数据中指数的允许范围和有效位数，表中的数据仅适用于Compaq Visual Fortran。 实型数据的种别 种别值 取值范围 备注 REAL([KIND=]4) 或 REAL*4 10-38 到 1038，7位有效数字 缺省值 REAL([KIND=]8) 或 REAL*8 10-308 到 10308，15位有效数字 等价于双精度型DOUBLE PRECISION REAL([KIND=]16) 或 REAL*16 ? 仅用于OpenVMS、Tru64 UNIX、Linux操作系统 5.2.3 复型数据的种别 复型数据在Compaq Visual Fortran中被划分为3种种别，如表所示。每种表示实型数据的方法都可以用来表示复型数据的实部和虚部，数据的取值范围可以参考前一小节。需要注意的是简写写法与完整写法之间的差别。 复型数据的种别 种别值 备注 COMPLEX([KIND=]4) 或 COMPLEX*8 缺省值 COMPLEX([KIND=]8) 或 COMPLEX*16 等价于双精度复型DOUBLE COMPLEX COMPLEX([KIND=]16) 或 COMPLEX*32 仅用于OpenVMS、Tru64 UNIX、Linux操作系统 5.2.4 逻辑型数据的种别 逻辑型数据在Compaq Visual Fortran中被划分为4种种别，如表所示。由于逻辑型数据只有两种，即TRUE（真）和FALSE（假），因此不管具体是何种种别，使用上并无太大区别。笔者的习惯是，使用逻辑型数据时采用其默认