Fortran77-90-95入门（三）－－常量与变量

Fortran的常量类型有整型、实型、复型、逻辑型和字符型：

      PROGRAM VARIABLES
      INTEGER I !整型声明语句
      REAL F !实型声明语句
      DOUBLE PRECISION D !双精度声明语句
      COMPLEX C !复型声明语句
      LOGICAL B !逻辑型声明语句
      CHARACTER S !字符型声明语句
!整型常量
      I =  -1234 !整型默认为4字节
      I =  -324_8 !8字节整型。下划线加数字表示精度，只允许1,2,4,8个字节
      I =  123_1 !1字节整型
      I =  2343_2 !2字节整型
      I =  238_4 !4字节整型
!实型常量
      F =  23. !以小数点表示实型数，默认为4字节
      D =  87234.42343256_8 !8字节实型，只允许4或8个字节
      F =  32.16_4 !4字节实型
      F =  7.8E9 !指数表示（E字母）
      D =  8.2384D12 !双精度的指数表示（D字母）
!复型常量（C语言里没有的）
      C =  (8.3, 98) !括号里面分别表示实部与虚部
!逻辑型常量
      B =  .TRUE. !只能有.TRUE.和.FALSE.两个值
      B =  .FALSE.
!字符型常量
      S =  'a'
      S =  "x" !Fortran90开始允许使用双引号
      END

Fortran的变量名由字母（不区分大小写）、下划线和数字组成，变量第一个字符必须是字母（下划线也不行）。Fortran77变量可以是6个字 符，Fortran90可以有31个字符。Fortran中没有保留字，所以关键字如if也是可以用作变量名的，虽然阅读时容易造成混淆。

上面的代码中可以看到变量的显式声明，在不显式声明的时候，变量名遵循I～N规则，即以I、J、K、L、M、N开头的（未声明的）变量都视为整型变量；其它未声明的变量都被视为实型。比如：

      program implicit_type
      imax = 85; ! i开头的变量被视为整型
      nmin = 23; ! n开头的变量也被视为整型
      phigh = 28.8 ! 其它变量都被视为实型
      end

如果想改变默认的变量规则，可以用implicit声明：

      program implicit_type
      implicit real (i-k) !i,j,k开头的变量都会被视为实型
      implicit integer (a,d,x-z) !a,d,x,y,z开头的变量都会被视为整型
      implicit complex (c) !c开头的变量会被视为复型
      end

变量类型的优先级为显式声明>隐式声明>I~N规则。显式声明和隐式声明的作用范围仅限于当前程序。

整数常量可以用B开头表示二进制（比如B'101011'）、用O开头表示八进制（比如O'34761'）、用Z表示十六进制（比如Z'23af8'）。