fortran语言语法

FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :<

说实话，从科技发展的趋势来说这不是好事。您可以设想一下，如果需要用鹅毛笔抄写大量的古籍是什么感受！

强烈建议阅读《发掘C#特性赋予科学计算项目以威力》

1 FORTRAN77四则运算符

+ - * / ** (其中**表示乘方)

在表达式中按优先级次序由低到高为： +或-→*或/→**→函数→()

2 FORTRAN77变量类型

隐含约定：I-N规则

凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。

用类型说明语句确定变量类型：可以改变I-N规则

用IMPLICIT语句将某一字母开头的全部变量指定为所需类型

如IMPLICIT REAL (I,J)

三种定义的优先级别由低到高顺序为：I-N规则→IMPLICIT语句→类型说明语句，因此，在程序中IMPLICIT语句应放在类型说明语句之前。

数组的说明与使用

使用I-N规则时用DIMENSION说明数组，也可在定义变量类型同时说明数组，说明格式为：数组名(下标下界,下标上界），也可省略下标下界，此时默认为1，例：DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3)

REAL IA(10),ND(80:99)使用隐含DO循环进行数组输入输出操作：例如

WRITE(*,10) ('I=',I,'A=',A(I),I=1,10,2)

10FORMAT(1X,5(A2,I2,1X,A2,I4))

使用DATA语句给数组赋初值

变量表中可出现变量名,数组名,数组元素名,隐含DO循环，但不许出现任何形式的表达式：例如

DATA A,B,C/,,

DATA A/,B/,C/

DATA A,B,C/3*CHARACTER*6 CHN(10)

DATA CHN/10*'?????'/INTEGER NUM(1000)

DATA (NUM(I),I=1,500)/500*0/,(NUM(I),I=501,1000)/500*1/

3 FORTRAN77程序书写规则

·程序中的变量名，不分大小写；

·变量名称是以字母开头再加上1到5位字母或数字构成，即变更名字串中只有前6位有效；

·一行只能写一个语句；

·程序的第一个语句固定为PROGRAM 程序名称字符串

·某行的第１个字符至第５个字符位为标号区，只能书写语句标号或空着或注释内容；

·某行的第１个字符为Ｃ或＊号时，则表示该行为注释行，其后面的内容为注释内容；

·某行的第６个字符位为非空格和非０字符时，则该行为上一行的续行，一个语句最多可有19个续行；

·某行的第７至７２字符位为语句区，语句区内可以任加空格以求美观；

·某行的第７３至８０字符位为注释区，８０字符位以后不能有内容。

4 FORTRAN77关系运算符

.GT.大于

.GE.天于或等于

.LT.小于

.LE.小于或等于

.EQ.等于

.NE.不等于 .AND. 逻辑与

.OR.逻辑或

.NOT.逻辑非

.EQV.逻辑等

.NEQV.逻辑不等

运算符优先级由高到低顺序为:()→**→*或/→+或-→.GT.或.GE.或.LT.或.LE.或.EQ.或.NE.→.NOT.→.AND.→.OR.→.EQV.或.NEQV

5 FORTRAN77语句

....

ELSE IF (逻辑表达式N) THEN

程序块N

ELSE

程序块N+1

END IF

7 FORTRAN77循环语句

GO TO语句

标号程序行

程序块

GO TO标号

DO语句

DO标号,记数变量=起始值,终止值,步距”语句，如DO标号,N=1,100,1

程序块

标号CONTINUE

DO WHILE语句

DO

标号CONTINUE

DO UNTIL语句

DO标号,UNTIL (逻辑表达式)”语句，如DO

标号CONTINUE

8 FORTRAN77内部函数

9 FORTRAN77函数与子程序 FORTRAN77语句函数

·当函数十分简单，用一条语句足以定义时（允许使用继续行）才用；

·应该放在所有可执行语句之前和有关类型说明语句之后，是非执行语句；

·只在其所在程序单位中有意义；

·语句函数中的虚参就是变量名，不能是常量、表达式或数组元素等；

·语句函数定义语句中的表达式可以包含已经定义过的语句函数、外部函数或内部函数。

·语句函数通过表达式得一个函数值，此数值类型必须与函数名的类型一致。语句函数的使用同内部函数相同。

语句函数例子：

FORTRAN77自定义函数

定义格式：

类型说明 FUNCTION 函数名(虚拟参数1,虚拟参数2,……,虚拟参数N)

程序块(可以含有RETURN)

函数名=函数值

END

调用格式与内部函数相同。

FORTRAN77子程序

定义格式：

SUBROUTINE子程序名(虚拟参数1,虚拟参数2,……,虚拟参数N)

程序块(可以含有RETURN)

END

调用格式：