禁虫 (文坛精英)
密度泛函·小卒 
![]()
|
fortran
fortran 主要规定和主要命令
（一）变量
(1)INTEGER语句(整型说明语句)
(2)REAL语句(实型说明语句)
(3)DOUBLE PRECISION语句(双精度说明语句)
(4)COMPLEX语句(复型说明语句)
(5)LOGICAL语句(逻辑型说明语句)
(6)CHARACTER语句(字符型说明语句)
(7)I-N规则
（二）内部函数
==========================================================
函数名 含义 应用例子 备注
----------------------------------------------------------
ABS 求绝对值 ABS(X)
EXP 指数运算 EXP(X)
SIN 正弦值 SIN(X)
COS 余弦值 COS(X)
ASIN 反正弦 ASIN(X)
ACOS 反余弦 ACOS(X)
TAN 正切 TAN(X)
ATAN 反正切 ATAN(X)
LOG 自然对数 ALOG(X) 即lnx
LOGlO 常用对数 ALOG10(X) 即lgx
INT 取整 INT(X)
MOD 求余 MOD(X1，X2) MOD(8,3)表示8被3除的余数，其值为2，而MOD(3,8)则表示3被8除的余数，其值为3
SIGN 求符号 SIGN(Xl，X2) 当X2大于等于0时，返回值为|X1|，当X2小雨0时，返回值为-|X1|
REAL 转换为实型 REAL(I)
MAX 求最大值 MAX(I1，I2，I3)
MIN 求最小值 MIN(Xl，X2，X3)
==========================================================
（三）关系运算符、逻辑运算符和逻辑变量
================================
关系运算符 所代表的数学符号
--------------------------------
.GT. ＞ (大于)
.GE. ≥ (大于或等于)
.LT. ＜ (小于)
.LE. ≤ (小于或等于)
.EQ. ＝ (等于)
.NE. ≠ (不等于)
================================
逻辑常量只有两个：.TRUE. (表示“真”，即满足逻辑条件)； .FALSE. (表示“假”，即不满足逻辑条件)。
逻辑型变量用来存放逻辑常量。它的值也只能是.TRUE.或.FALSE.之一。可以将一逻辑常量赋予一个逻辑变量。如将A定义为逻辑型变量，用赋值语句对其赋值：
LOGICAL A
A=.TRUE.
=============================================
逻辑运算符 含义 逻辑运算例
---------------------------------------------
.AND. 逻辑与 A.AND.B
.OR. 逻辑或 A.OR.B
.NOT. 逻辑非 .NOT.A
.EQV. 逻辑等价 A.EQV.B
.NEQV. 逻辑不等价 A.NEQV.B
=============================================
（四）IF语句和CASE语句
IF(逻辑表达式1) THEN
… then 块
ELSE IF(逻辑表达式2) THEN
… else if 块
ELSE
… else 块
END IF
-----------
SELECT CASE(case表达式)
CASE(case选择符) [构造名]
块
[CASE DEFAULT [构造名]
块]
END SELECT [构造名]
（五）DO语句
do i=1,1O
do j=1,20
………
end do
end do
隐DO语句
如read(*,*) (value(i),i=1,20) 表示读入VALUE(1),VALUE(2),…,VALUE(20)的值
隐DO表可以嵌套，如：
PRINT *, ((A(I,J),I=1,3),J=1,3)
先把内层(A(I,J),I=1,3)隐DO表作为输出表，再与隐DO控制J=1,3合成外层隐DO表。其控制机制与嵌套DO循环一致，先内层循环完，外层循环变量加一步长，再循环完内层。其打印值的次序如下：
A(1,1)，A(2,1)，A(3,1)，A(1,2)，A(2,2)，…，A(3,3)
（六）输入输出
格式列表是一系列格式描述符，之间用逗号隔开。这些格式描述符描述了将要传输的数据，例如要被读写的数字，数据类型和长度。下面是FORMAT和WRITE语句中的格式列表的例子：
例：100 FORMAT(’A＝’,I5, ’B＝’,F7.2)
例：WRITE(*,’(F8.5,2I3,A20) ’) REAL1,INT1,INT2,”format list example”
在Fortran中有4个预定义的外部文件(设备)：
=================================
设备号 连接的设备
---------------------------------
星号(*) 总是键盘和显示器
0 缺省状态下是键盘和显示器
5 缺省状态下是键盘
6 缺省状态下是显示器
=================================
（七）文件
a) OPEN语句
OPEN语句用于把设备号与文件名连接起来，并且对文件的各项性质进行指定。它的一般形式为：
OPEN([UNIT=]unit[,ACCESS=access][,ACTION=action][,BLANK=blanks][,BLOCKSIZE=blocksize][,CARRIAGECONTROL=carriagecontrol][,DELIM=delim][,ERR=err][,FILE=file][,FORM=form][,IOFOCUS=iofocus][,IOSTAT=iostat][,PAD=pad][,POSITION=position][,RECL=recl][,SHARE=share][,STATUS=status])
其中的各项参数的意义及取值如下：
1) UNIT：设备号说明。unit是大于或等于0的正整数，设备号说明是OPEN语句的第—项时可以省略“UNIT=”。
2) ACCESS：存取方式说明。access是字符串表达式：
APPEND 追加方式
SEQUENTIAL 顺序访问方式
DIRECT 直接访问方式
当省略此说明项时为顺序访问方式。
3) ACTION：描述文件的读写属性。action是字符串表达式：
READ 文件为只读方式打开
WRITE 文件为只写方式打开
READWRITE 文件为可读写方式打开
当省略此说明项时，文件打开顺序：READWRITE->READ->WRITE。
4) BLANK：说明数据格式输入字段中空格的含义。blank是字符串表达式：
NULL 空格忽略不计，相当于在格式描述符中的BN编辑符
ZERO 空格处理成数字0，相当于BZ编辑符
当省略此说明项时为ZERO。此说明只能用于格式输入。
5) BLOCKSIZE：指定以字节为单位的设备缓存的大小，默认值为一4字节整数。
6) CARRIAGECONTROL：指明处理文件中的第一个字符的方式，其值为字符串表达式：
Fortran 对第一个字符作一般的Fortran解释
LIST 指出在文件的每两个记录之间有—个空格
默认状态下，对于连接到打印机和显示器这样的设备，设置值为Fortran，对于连接到文件的设备，设置值为LIST。当FORM被设成UNFORMATTED和BINARY时，其值被忽略。
7) DELIM：指明分隔直接列表或格式化名称列表记录的方式，其值为字符串表达式：
APOSTROPHE 用单撇号(’)分隔
QUOTE 用双撇号(”)分隔
NONE 不用分隔符
如果在OPEN语句中设置了分隔符，则在文件中的单撇号和双撇号都是成对出现的。
8) ERR：出错处理说明。其值是同一程序中的一条语句的标号，当OPEN语句执行出错时执行此语句。如果省略该项，则出错时给出出错信息并终止运行。
9) FILE：文件名。file是一字符串表达式，可以是空、合法的数据文件名字、设备名字或是作为内部文件的变量。在WinNT/9x中允许使用长度大于8的文件名和长度大于3的文件扩展名。省略此项时，编译器将自动产生一个文件名唯一的临时文件，这个临时文件将在结束运行或与文件连接的设备关闭后被删除掉。
10) FORM：记录格式说明。form是字符串表达式：
FORMATTED 记录按有格式存放。
UNFORMATTED 记录按无格式存放。
当省略此说明项时为：对顺序文件是有格式的；对直接文件是无格式的。
11) IOFUS：指出一个新Quickwin子窗口是否为活动窗口，其值为逻辑值。缺省值为真。
12) IOSTAT：出错状态说明。iostat是—个缺省长度为4的整形变量。当执行此OPEN语句时系统给变量赋值：
零 没有发生错误
负数 文件结尾
正数 发生错误，其值视具体计算机系统而定
若省略该项则没有此功能。
13) PAD：从格式化文件中记录的数据少于要读取的数据时，是否用空格来填充没有从记录中读到数据的变量。pad是字符串表达式：
YES 填充(默认值)
NO 不填充
14) POSITION：指定打开顺序文件的访问位置，position是字符串表达式：
ASIA 已被连接的文件的访问位置是固定的，未被连接的文件的访问位置是文件的开始处。
REWIND 把文件的访问位置定在文件的开始处(文件己存在)。
APPEND 把文件的访问位置定在文件的末尾处(文件己存在)。
对于一个新文件，文件的访问位置总是被定在文件的开始处。
15) RECL：记录长度(单位为字节)说明。recl是指定的正整型量或算术表达式，用来指定直接文件中的每条记录的字节数，或顺序文件中的记录的最大长度。
16) SHARE：指明当文件打开时是否实现文件的锁定。share是字符串表达式：
DENYRW 动态读写模式。不允许其他的进程打开这个文件。
DENYWR 动态写模式。不允许其他的进程以写的方式打开这个文件。
DENYRD 动态读模式。不允许其他的进程以读的方式打开这个文件。
DENYNONE 默认的非动态模式。允许其他的进程打开这个文件。
17) STATUS：文件状态说明。status是字符串表达式：
OLD 表示指定的文件是已经存在的老文件。这一状态一般用于读操作，如果用于写操作则重写文件，原文件内容将被覆盖。如果指定的文件并不存在，则系统将给出出错信息。
NEW 表示指定的文件尚不存在。执行OPEN语句时将在磁盘上建立该文件并使其状态改变为OLD。NEW状态一般用于写操作。如果指定的文件名已经存在将给出出错信息(有的系统不给出信息而是把这个已经存在的文件冲掉使原来的内容不复存在)。
SCRATCH 表示与设备号相连接的文件在关闭时将被自动删除。注意：此状态不能与FILE说明共存，只能用于由计算机系统指定的文件名，使该文件作为程序运行过程中的一个临时性文件。
REPLACE 表示替换一个有相同名字的文件，如果没有同名的文件存在，将产生一个新文件。
UNKNOWN 表示文件可以是已存在的或不存在的。系统打开文件状态的次序为：OLO->NEW->创建新文件。STATUS的设置值只影响磁盘文件，像键盘和显示器这样的设备将忽略这一设置。
若省略该项时默认的状态为UNKNOWN。
b) ENDFILE语句
ENDFILE语句的功能是在文件上写一条文件结束记录，这时文件定位在结束记录的后面。它的一般形式为：
ENDFILE{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])}
由于用ENDFILE语句在文件中写入一条结束记录后，文件的指针被定位在结束记录之后，所以若再想向同一个文件中添加更多的记录，就必须使用BACKSPACE或REWIND语句对文件进行文件指针定位的操作。在直接访问文件中使用ENDFILE语句在文件中写入一条结束记录后，新的结束记录后的所有老的记录都将被删除掉。
c) CLOSE语句
CLOSE语句解除设备号与文件的连接，又称关闭文件。它的一般形式为：
CLOSE([UNIT=]unit[,ERR=err][,IOSTAT=iostat][,STATUS|DISPOSE|DISP=status])
其中除STATUS以外的各项参数的意义及取值与OPEN语句中的相同。STATUS是文件关闭后状态说明，其值是一字符串：
DELETE 与设备连接的文件不保留，被删除
KEEP(或SAVE) 与设备号连接的文件保留下来不被删除
PRINT 将文件递交给打印机打印并被保留(仅对顺序文件)
PRINT/DELETE 将文件递交给打印机后被删除
SUBMIT 插入一个进程以执行文件
SUBMIT/DELETE 插入一个进程以执行文件，当插入完成后被删除
默认设置将删除带有SCRATCH属性的临时文件，对其它文件为KEEP。
在程序中，没有必要显示的进行文件的关闭，—般情况下，当程序退出时将以各个文件的默认状态关闭所有的文件。CLOSE语句不必与OPEN语句出现存同一程序单元中。
d) 文件指针定位语句
REWIND语句：称为反绕语句，它使指定设备号的文件指针指向文件的开头，通常用于顺序文件的操作。它的一般形式为：
REWIND{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])
BACKSPACE语句：称为回退语句，它使指定设备号的文件指针退回一个记录位置，一般用于顺序文件。它的一般形式为：
BACKSPACE{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])
除了以下几种情况外，使用BACKSPACE语句正好使文件的指针向前移动一条记录：本条记录前再没有记录时文件指针的位置不变；文件指针的位置在一条记录的中间时，文件指针移到本条记录的开始处；本记录的前—记录是文件结束记录时，文件指针移到文件结束记录之前。 |
|
回复此楼
