Fortran数据类型

Fortran语言提供了五种内在数据类型，但是，也可以得到自己的数据类型。这五个固有的类型有：

• 整型
• 实型
• 复杂类型
• 逻辑类型
• 字符类型

整型

整数类型只能容纳整数值。下面的示例中提取，可以在通常为4字节整数保存最大值：

program testingInt
implicit none

   integer :: largeval
   print *, huge(largeval)
   
end program testingInt

当编译并执行上述程序也将产生以下结果：

2147483647

需要注意的是huge()函数，可以通过特定的整数数据类型可以保持的最大数目。还可以指定使用的字节数。下面的例子说明了这一点：

program testingInt
implicit none

   !two byte integer
   integer(kind=2) :: shortval
   
   !four byte integer
   integer(kind=4) :: longval
   
   !eight byte integer
   integer(kind=8) :: verylongval
   
   !sixteen byte integer
   integer(kind=16) :: veryverylongval
   
   !default integer 
   integer :: defval
        
   print *, huge(shortval)
   print *, huge(longval)
   print *, huge(verylongval)
   print *, huge(veryverylongval)
   print *, huge(defval)
   
end program testingInt

当编译并执行上述程序，它会产生以下结果：

32767
2147483647
9223372036854775807
170141183460469231731687303715884105727
2147483647

实型

它存储的浮点数，例如2.0，3.1415，-100.876等

传统上有两种不同的实际类型，默认实型和双精度型。

然而，Fortran语言90/95提供了更多的控制权实数和整数数据类型，通过种类说明，我们将在对数的章节研究精度。

下面的例子展示了如何使用实数类型：

program division   
implicit none  

   ! Define real variables   
   real :: p, q, realRes 
   
   ! Define integer variables  
   integer :: i, j, intRes  
   
   ! Assigning  values   
   p = 2.0 
   q = 3.0    
   i = 2 
   j = 3  
   
   ! floating point division
   realRes = p/q  
   intRes = i/j
   
   print *, realRes
   print *, intRes
   
end program division  

当编译并执行上述程序也将产生以下结果：

0.666666687    
0

复杂类型

这被用于存储复数。一个复杂的数字有两部分，实数部分和虚数部分。两个连续的数字存储单元存储两个部分。

例如，该复数（3.0，-5.0）等于3.0 - 5.0i

我们将更详细地讨论复杂类型，在数字章节。

逻辑类型

只有两个逻辑值：.true. 和.false

字符类型

字符类型存储字符和字符串。字符串的长度可以通过len个符来指定。如果没有指定长度，它是1。

例如，

character (len=40) :: name  
name = “Zara Ali”

表达式name(1:4)将得到的子串“Zara”。

隐式类型

Fortran语言的旧版本允许一个叫做隐式类型，也就是说，不必在使用前声明变量的功能。如果一个变量没有声明，则其名称为第一个字母，将确定其类型。

其中i的变量名以 i, j, k, l, m, 或 n 开始，被认为是为整数变量，其余都是实型变量。但是，必须声明所有的变量，因为它是良好的编程习惯。开始程序如下：

implicit none

这条语句将关闭隐式类型。