Fortran入门 - 基本语法一篇通

0.

前些日子为了准备汇报学了Fortran这个语言，最近又要用到发现有些些忘记了，所以写一篇博客整理记录学了些啥就当复习~

主要内容还是比较基本的语法，一些小细节等以后有机会来补上吧（下次一定.jpg）

 

【赶时间的话可以只看'简而言之'中的总结】

 

1.固定格式&自由格式

（图源自网络 侵删）

简而言之：

• 固定格式——比较老，老古董代码一般都是这种格式，需要读的时候能读懂就行，不用会写。
• 自由格式——目前的使用主流。

 

2.输入输出

入门一个语言从Helloworld开始！顺便熟悉一下Fortran的程序结构。

Fortran的程序通常都以program来开头，然后接一个自定义的程序名称。这个程序名称可以完全自定义，不需要与文件名有任何关系。程序结尾写上end。“implicit none”的功能是关闭默认类型，所有变量都要事先声明，因为Fortran会默认开头i,j,k,l,m,n的变量为整数型，其他的为浮点型。这行代码就是关闭这个功能，所有的变量都要声明后才能使用。防止手贱敲错代码编译器还不报错。

Fortran里的输出有两种，write和print。

• write，括号里有两个*号，第一个*号代表输出位置，默认是6，即屏幕。第二个*号代表输出格式化设定。
• print比write少一个*号，因为print是面向屏幕输出的。print的*号和write的第二个*号一样，代表输出的格式化设置。

一般习惯用write，毕竟功能多点。

Fortran里的输入：

• read，*的用法和write基本一致。

上文中提到的格式化：（具体的网上很多了，在这里只贴常用的“ I 、F、E、A、X ”这几个格式）

• Iw[.m] 以w个字符的宽度来输出整数，至少输出m个数字。如：write(*,“(I5)”) 100   输出：_ _100 ; 不足补空格 。
• Fw.d 以w个字符文本框来输出浮点数，小数部分占d个字符宽，输出文本框的设置不足显示*号。如：write(*,“(F9.3)”) 123.45  输出：_ _123.450 ; 不足补空格，小数不足补0。
• Ew.d[Ee] 用科学计数法，以w个字符宽来输出浮点数，小数部分占d个字符宽，指数部分最少输出e个数字。如：write(*,“(E15.7)” 123.45 输出：_ _0.1234500E+03 ; 不足部分补空格，小数部分不足补0。
• Aw 以