Fortran 主函数
一个完整的 Fortran 代码,一般来说是以
program code_name
开始、以 end program code_name
结束的首末声明,变量声明以及需要执行的命令或者操作三个部分组成。通用的 Fortran 代码文件的文件后缀可以是 .f90
、
.f
、.g95
等等,但通常为了统一和适应不同版本的 Fortran 编译环境建议采用 .f90
后缀。和 C、C++ 语言比较类似,Fortran 代码也是通过编译执行。比如对如下所示的示例代码执行 gfortran code_name.f90 -o code_name
即可生成可执行程序
code_name
,再执行 ./code_name
则会输出代码执行结果如下。
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 以后的版本中可能出现错误,特意在每个开头声明之后都加上这么一行。这样我们在写代码的过程中如果使用到了未提前声明或者打错字符的变量名,编译程序就会报错告知我们。这对于形成良好的代码习惯和增强代码可维护性有很大的帮助,因此此行声明必不可少。