fortran语法手册

1 FORTRAN77四则运算符

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

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

2 FORTRAN77变量类型

2.1 隐含约定：I-N规则

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

如 IMPLICIT REAL (I,J)

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

2.4 数组的说明与使用

使用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))

2.5 使用DATA语句给数组赋初值

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

DATA A,B,C/-1.0,-1.0,-1.0/

DATA A/-1.0/,B/-1.0/,C/-1.0/

DATA A,B,C/3*-1.0/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语句

6 FORTRAN77选择判断语句

6.1 逻辑IF语句

IF (逻辑表达式) 程序语句

6.2 无ELSE块

IF (逻辑表达式) THEN

程序块

END IF

6.3 标准选择

IF (逻辑表达式) THEN

程序块1

ELSE

程序块2

END IF

6.4 多重选择块

IF (逻辑表达式1) THEN

程序块1

ELSE IF (逻辑表达式2) THEN

程序块2

ELSE IF (逻辑表达式2) THEN

程序块2

......

ELSE IF (逻辑表达式N) THEN

程序块N

ELSE

程序块N+1

END IF

7 FORTRAN77循环语句

7.1 GO TO语句

标号程序行

程序块

GO TO 标号

7.2 DO语句

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

程序块

标号CONTINUE

7.3 DO WHILE 语句

DO 标号,WHILE(PI.EQ.3.14159)

程序块

标号CONTINUE

7.4 DO UNTIL语句

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

DO 标号,UNTIL(PI.GT.3.14159)

程序块

标号CONTINUE

8 FORTRAN77内部函数

9 FORTRAN77函数与子程序

9.1 FORTRAN77语句函数

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

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

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

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

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

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

语句函数例子：

YMJ(R)=3.14159265*R*R

ZMJ=YMJ(5)

9.2 FORTRAN77自定义函数

定义格式：

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

程序块(可以含有RETURN)

函数名=函数值

END

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

9.3 FORTRAN77子程序

定义格式：