Fortran 主函数

program code_name
    implicit none
    real x, y, z
    x = 2
    y = 3
    z = x + y * 5
    print *, x, y
    print *, 'z = ', z 
end program code_name

   2.00000000       3.00000000    
 z =    17.0000000

这里我们发现在上面给出的示例代码中有一行 implicit none，明明本来的代码已经符合三个部分了，为什么要多加这一行呢？这是因为在旧 Fortran 中存在隐式类型声明，为了规避在 Fortran 95 以后的版本中可能出现错误，特意在每个开头声明之后都加上这么一行。这样我们在写代码的过程中如果使用到了未提前声明或者打错字符的变量名，编译程序就会报错告知我们。这对于形成良好的代码习惯和增强代码可维护性有很大的帮助，因此此行声明必不可少。