第二章Fortran程序设计基础解析.ppt

根据上述的程序书写，给出简单 Fortran 90 程序的构造形式： [PROGRAM 程序名] [声明语句] [执行语句] END[PROGRAM 程序名] 方括号内的部分是可选的，END 语句是唯一必须的，表示程序编译到此结束。 END 语句中的程序名可以省略，但若出现程序名，必须同时出现 PROGRAM 关键字。 对于可选部分，如果缺省，则按照约定（隐含）规则进行 三 空格 空格没有意义，不参加编译。适当地运用空白空间，可以增加程序的可读性，例如程序块中的代码缩进。 DO 1 I=1,10 DO 2 J=1,20 …… 2 CONTINUE 1 CONTINUE 在代表有意义字符序列的记号(token)内，比如：标号、关键字、变量名、操作符等不允许出现空白。例如：RE AL、SUBRO?UTINE 、MO NEY 、 =都是非法的。 一般情况下，记号之间需留有空格。例如：100CONTINUE 是非法的，因为标号100 和关键字 CONTINUE 是两个独立的记号。 有的记号间的空格是可选的，例如：END PROGRAM 和 ENDPROGRAM是合法的。 二. 标识符 标识符命名(变量、常量、例程等)时，须以字母(A~Z，a~z)开头，后可接多达 30 个字母(A~Z 或 a~z)、数字(0~9)或下划线(_)。例如： MASS，rate，Npts，I9J7，Time_Rate， 有下列几点值得注意： (1)只能以字母开头(3M，_Right 为无效标识符)； (2)不能含有空格字符(Time Rate为无效标识符)； (3)不区分字母大、小写(Vel，VEL，vel 为同一标识符)； (4)长度限定为31 个字符(Fortran 77 为6个字符)； (5)避免与关键字、标准例程重名。 (6)变量名和常量名不能和程序的名称或是前面声明过的变量或常量同名。如：在程序EXCHANGE中，不能含有变量或常量叫EXCHANGE。 一. 整数类型 1 整型变量 声明整型变量的一般形式为： INTEGER I INTEGER([KIND=]n) I n 是种类参数，取值1、2、4、8。 种类参数(KIND)是 Fortran 90 新添加的特性，通过规定存储数据所用的内存字节数来控制数据的取值范围，1、2、4、8为整数在内存中的存储字节数。 如果种类参数没有特别规定，则取缺省值，缺省值受编译器选项影响，若没有编译器选项规定，32 位系统下缺省值为4。 不同种类参数的整数取值范围如下所示： INTEGER(1) -128～127 （27-1） INTEGER(2) -32768～32767 （215-1） INTEGER(4) -2147483648～2147483647 （231-1） INTEGER(8) -9223372036854775808～9223372036854775807(-263～263-1) 例如：要在不同的平台下表示±1010内的整数 I，可以采取如下的声明方式： INTEGER，PARAMETER :: K10 = SELECTED_INT_KIND(10) INTEGER(K10)I 先声明依赖于特定平台的种类常数， 再以该常数为种类参数声明变量。 ::表示在变量声明数据类型的同时，给变量赋初值 跟整数类型提供的 KIND、HUGE函数相对应，Fortran90为实数类型变量提供了获得实数的取值范围下限函数 TINY、精度函数 PRECISION、指数范围函数 RANGE，以及获取特定平台下种类参数的函数SELECTED_REAL_KIND，其形式为： result ＝ SELECTED_REAL_KIND(p，r) 函数返回有效位数为 p(精度)、指数范围为10-r~10+r 的实数种类参数。例如： 在特定平台下规定有效位数（精度）为15、指数为307，其种类参数为 SELECTED_REAL_KIND(15，307)，若没有可用的种类参数，函数分别返回-1、-2和-3： (1) 返回-1表示无法满足规定的有效位数； (2) 返回-2表示无法满足规定的指数范围； (3) 返回-3表示有效位数和指数范围都无法满足。 2 实型常量 文字实型常量是数学上实数的近似表达，分为带指数