转载：Fortran基础

校园

INTEGER

整型

REAL

实型

DOUBLEPRECISION

双精度实型

COMPLEX

复型，赋值形式为(实部，虚部),如D=(8.76E+0.5,-67.8E-3),C=(3.0,6.3),如果含表达式则用CMPLX,如C=CMPLX(3.0*A,6.0+B)

LOGICAL

逻辑型,逻辑常量有“T”和“F”，“T”表示“.TRUE.”,“F”表示“.FALSE.”

CHARACTER*N

字符型,N为字符串长度,可以在变量名称后重新指定长度,如CHARACTER*8 STR1,STR2*10,赋值形式为STR2='I''M ABOY.'

语句

说明

备注

WRITE(*,*)X1,X2

输出语句

第一个*号是指输入输出文件设备号或其它设备，如果不指定则是指显示器或打印机,第二个*号是指表控格式语句的行号，如不指定则用默认格式

PRINT*,X1,X2

输出语句

*号是指表控格式语句的行号，如不指定则用默认格式

READ*,X1,X2

输入语句

*号是指表控格式语句的行号，如不指定则用默认格式

FORMAT(格式符)

请见附录一。

请见附录二。

END

结束程序或子程序

STOP[N]

结束程序并输出信息[N]

[N]为数字或字符串信息

PAUSE[N]

暂停程序执行并输出信息[N]，输入回车后继续执行

[N]为数字或字符串信息

PARAMETER(PI=3.14)

参数语句，用来定义常量，在程序中应放在类型说明语句之后

EQUIVALENCE (变量表)

等价语句，()内变量共用一个存储单元。

EQUIVALENCE(X1,X2,…XN),(X1,X2,…XN),…

COMMON X1,……

公用语句，其后变量相等，用来在程序单位间传递数据，同时可以用来说明数组。程序中可有一个无名公用区和多个有名公用区。

无名公用区:在主程序各子程序中相同,均在可执行语句之前,如
COMMONA(5),I
有名公用区：名称放在两个“/”之间,如
COMMON//X1,X2,X3/C1/X4,X5,X6

OPEN (说明项1)

打开旧文件或创建新文件

说明项1中内容：UNIT=N, FILE=NAM,STATUS=STR1, ACCESS=STR2, FORM=STR3, RECL=C, BLANK=STR4, ERR=BH,IOSTAT=M
其中：
1.N=1～99；
2.NAM为文件名,可以是字符常量或变量；
3.STR1='NEW'时新建文件；'OLD'时打开文件；'SCRATCH'时表示临时文件，关闭时自动删除,且不能与FILE=NAM项共存；'UNKNOWN'时由计算机系统规定文件状态；
4.STR2为文件存取方式,'SEQUENTIAL'表示顺序存取，'DIRECT'表示直接存取，省略此项时表示按顺序存取；
5.STR3为记录格式说明,'FORMATTED'表示记录按有格式形式存放,'UNFORMATTED'表示记录按无格式形式存放。省略此项时,对于顺序文件是有格式的,对于直接存取文件是无格式的；
6.C表示记录长度,以字节为单位,直接存取文件必指定,顺序文件必省略;
7.STR4表示数字值格式输入字段中空格含意,'NULL'时表示忽略不计,'ZERO'时表示按0计。省略此项时按0计；
8.BH表示出错时处理语句行标号,可以省略此项；
9.M为整数,出错时返回该整数,可以省略此项。

CLOSE (说明项2)

关闭已打开文件

说明项2中内容：UNIT=N,STATUS=STR5,ERR=BH,IOSTAT=M
其中STR5为文件关闭状态,'KEEP'时保留,'DELETE'删除,省略此项时为保留；
ERR=BH,IOSTAT=M可以省略。

REWIND (说明项3)

将文件读写指针置于文件开头

说明项3中内容：UNIT=N,ERR=BH,IOSTAT=M
ERR=BH,IOSTAT=M可以省略

BACKSPACE (说明项3)

将文件读写指针回退一行

INT(X)

将数字串或数值X转换为整型数

REAL(X)

将数字串或数值X转换为实型数

DBEL(X)

将数字串或数值X转换为双精度型数

CMPLX(X)

将数字串或数值X转换为复型数

CHAR(X)

将数值X转换为字符(0≤X≤255)

ICHAR(X)

将字符X转换为整数

AINT(X)

截去X的小数部分

ANINT(X)

将X舍入到最接近的整数

NINT(X)

将X舍入到最接近的整型数

ABS(X)

返回X的绝对值

MOD(X1,X2)

返回X1/X2的余数

SIGN(X1,X2)

取X2的符号,取X1的绝对值

DIM(X1,X2)

当X1>X2时,等于X1-X2,当X1≤X2时,等于0

DPROD(X1,X2)

双精度乘(X1,X2均为实数)

AIMAG(X)

返回字符串X的虚部

CONJG(X)

返回字符串X的共轭

MAX(X1,X2,X3,...,XN)

返回X1,X2,X3,...,XN中最大值

MIN(X1,X2,X3,...,XN)

返回X1,X2,X3,...,XN中最小值

SQRT(X)

返回X的平方根(X≥0)

EXP(X)

返回E的X次方

LOG(X)

返回以E为底的X的对数即自然对数(X>0)

LOG10(X)

返回以10为底的X的对数即常用对数(X>0)

SIN(X)

返回弧度值X的正弦值

COS(X)

返回弧度值X的余弦值

TAN(X)

返回弧度值X的正切值

ASIN(X)

返回弧度值X的反正弦值

ACOS(X)

返回弧度值X的反余弦值

ATAN(X)

返回弧度值X的反正切值

SINH(X)

返回X的双曲正弦值

COSH(X)

返回X的双曲余弦值

TANH(X)

返回X的双曲正切值

LEN(X)

返回字符串X的长度

INDEX(X1,X2)

返回字符串X2在字符串X1中的位置,不包含时返回0

LGE(X1,X2)

如果字符串X1≥X2则等于.TRUE.,否则等于.FALSE.

LGT(X1,X2)

如果字符串X1＞X2则等于.TRUE.,否则等于.FALSE.

LLE(X1,X2)

如果字符串X1≤X2则等于.TRUE.,否则等于.FALSE.

LLT(X1,X2)

如果字符串X1＜X2则等于.TRUE.,否则等于.FALSE.

第1个字符

作用

空格

正常回车换行

0

回车并跳过1行

1

换页

+

只回车不换行

其它

通常是回车换行

1

IW或IW.M

整数型

W为字段宽度,M为最少数字位数

2

FW.D

实数型

D为小数位数

3

EW.D或EW.DEE

指数实数型

E为指数位数，通常为3或4

4

GW.M

自动实数型

5

DW.D

双精度型

6

LW

逻辑型

7

A或AW

字符型

不指定W时自动

8

'字符串'

插入字符串

两个'表示一个字符'

9

NH字符串

插入长度为N的字符串

10

NX

插入N个空格

11

RIW,R(NX,IW.M)

R个IW,R个(NX,IW.M)

R为重复系数

12

/

换行

13

,$

禁止换行