Fortran的主要版本及差别

、Fortran的主要版本及差别

按其发展历史，Fortran编译器的版本其实很多。现在在广泛使用的是Fortran 77和Fortr

an90。

Fortran 90在Fortran 77基础上添加了不少使用的功能，并且改良了77编程的版面格式，

所以编程

时推荐使用90。鉴于很多现成的程序只有77版本，有必要知道77的一些基本常识，至少保

证能够看

懂77程序。以下是77和90的一些格式上的区别。

Fortran 77：固定格式（fixed format），程序代码扩展名：.f或.for （1）若某行以C,c或*开头，则该行被当成注释；

（2）每行前六个字符不能写程序代码，可空着，或者1~5字符以数字表明行代码（用作格

式化输入

输出等）；7~72为程序代码编写区；73往后被忽略；

（3）太长的话可以续行，所续行的第六个字符必须是"0"以外的任何字符。

Fortran 90：自由格式（free format），扩展名：.f90

（1）以"!"引导注释；

（2）每行可132字符，行代码放在每行最前面；

（3）以&续行，放在该行末或下行初。

以下都是讨论Fortran 90。

3、Fortran的一些特点，和C的一些不同

其实很多，在下面涉及具体方面时可以看到。这里只是大致提一些。

（1）不分大小写

（2）每句末尾不必要写分号

（3）程序代码命令间的空格没有意义

（4）不像C，Fortran不使用{ }

（5）数据类型多出了复数和逻辑判断类型。比如复数类型

complex :: a !声明复数的方法。复数显然方便了科学计算，满足了工程方面

的需求

a=, ! a=1+i

（6）多出了乘幂运算（**）。乘幂除了整数还可以是实数形式。如开方，开立方

a=**，a=**。

（7）数组有一些整体操作的功能；可以方便的对部分元素进行操作

（8）有些情况下可以声明大小待定的数组，很实用的功能

4、Fortran的基本程序结构

先看一看所谓的"Hello Fortran"程序。

program main !程序开始，main是program的名字，完全自定义write(*,*) "Hello" !主程序

stop !终止程序

end [program[main]] !end用于封装代码，表示代码编写完毕。

[ ]中的内容可省略，下同。

再看一段实用一些的程序，好有点感性认识。程序用于计算圆柱的表面积，要求输入底面

半径和

高。其中展示了Fortran的一些特色用法。程序摘自维基。其实是一个叫

的网上引

用的维基的网页。推荐去看看!能查到不少有意思的东西。

program cylinder !给主函数起个名字

! Calculate the area of a cylinder.

!

! Declare variables and constants.

! constants=pi

! variables=radius squared and height

implicit none ! Require all variables to be explicitly declared

!这个一般都是要写上的。下面会进一步说明。 integer :: ierr

character :: yn

real :: radius, height, area

real, parameter :: pi = !这是常量的声明方法

interactive_loop: do !do循环，Fortran中的循环可以加标签，如d

o前

!面的 interactive_loop就是标

签

! Prompt the user for radius and height

! and read them.

write (*,*) 'Enter radius and height.' !屏幕输出

read (*,*,iostat=ierr) radius,height !键盘输入。isotat的值用

于判断

!输入成功否。

! If radius and height could not be read from input,

! then cycle through the loop.

if (ierr /= 0) then

write(*,*) 'Error, invalid input.'

cycle interactive_loop !cycle 相当于C里的continue end if

! Compute area. The ** means "raise to a power."

area = 2 * pi * (radius**2 + radius*height) ! 指数运算比C方便

! Write the input variables (radius, height)

! and output (area) to the screen.

write (*,'(1x,a7,,5x,a7,,5x,a5,') & !"&"表示续行。这里

!还显示了格式化输出

'radius=',radius,'height=',height,'area=',area