北京化工大学：《计算化学》课程电子教案（课件讲稿）FORTRAN语言简介

FORTRAN语言简介

FORTRAN FORTRAN语言简介

参考书目 [潭浩强，田淑清.《Fortran语言一 Fortran77结构化程序设计》.北京：清华大 学出版社，2001第6版 ■ [2潘在元，张素素.《Fortran90教程》.浙 江大学出版社 ■3桂良进，王军，董波.《Fortran PowerStation4.0使用与编程》.北京航空航 天大学出版社

参考书目 „ [1] 谭浩强，田淑清 谭浩强，田淑清.《Fortran Fortran语言— Fortran77 Fortran77结构化程序设计 结构化程序设计》. 北京：清华大 学出版社，2001第6版 „ [2] 潘在元，张素素 潘在元，张素素.《Fortran90 Fortran90教程》. 浙 江大学出版社 „ [3] 桂良进，王军，董波 桂良进，王军，董波.《Fortran Fortran PowerStation4.0 PowerStation4.0使用与编程》. 北京航空航 天大学出版社

Fortran程序的基本组成 ■源码格式 标号区：第1一5列 续行区：第6列 & 语句区：第7一72列 注释区：第73一80列 每行一句，没有分隔符号

Fortran Fortran程序的基本组成 程序的基本组成 „ 源码格式 标号区：第l—5列 续行区：第6列 ＆ 语句区：第7—72列 注释区：第73—80列 C 每行一句，没有分隔符号 每行一句，没有分隔符号

程序单位 ■主程序 PROGRAM 程序名] 一语句可省略 END PROGRAM程序名] ←一END必须有 ■辅程序（过程 SUBROUTINE子程序 FUNCTION函数 BLOCK DATA块数据 MODULE 模块90) ■内部过程 CONTAINS (F90)

程序单位 „ 主程序 [PROGRAM PROGRAM 程序名] ] ←语句可省略 ..... END [PROGRAM [ END [PROGRAM [程序名]] ]] ←END必须有 „ 辅程序(过程) SUBROUTINE SUBROUTINE 子程序 FUNCTION FUNCTION 函数 BLOCK DATA BLOCK DATA 块数据 MODULE MODULE 模块 (F90) „ 内部过程 CONTAINS (F90) CONTAINS (F90)

程序体和语句顺序 ■PROGRAM,FUNC'TION, SUBROUTINE,BLOCK DATA等程序单位 开始语句 ·变量类型和语句函数等定义语句 (说明部分》 ■执行语句，DATA语句，FORMAT语句 执行部分) ■END语句

程序体和语句顺序 程序体和语句顺序 „ PROGRAM ，FUNCTION FUNCTION ， SUBROUTINE SUBROUTINE ，BLOCK DATA BLOCK DATA 等程序单位 开始语句 „ 变量类型和语句函数等定义语句 变量类型和语句函数等定义语句 (说明部分 ) „ 执行语句，DATA语句，FORMAT语句 (执行部分 ) „ END语句

逻辑运算 Fortran'中有六个关系运算符： 关系运算符 英语含义 所代表的数学符号 GT Greater Than 大于) GE. > Greater than or Equal to ≥（大于或等于） LT. Less Than <(小于) <三 Less than or Equal to ≤小于或等于) EQual to 等于) /= Not Equal to (不等于)

逻辑运算 „ Fortran Fortran中有六个关系运算符 中有六个关系运算符: ＞ (大于) ≥ (大于或等于) ＜ (小于) ≤ (小于或等于) ＝ (等于) ≠ (不等于) Greater Than Greater Than Greater than or Equal to Greater than or Equal to Less Than Less Than Less than or Equal to Less than or Equal to EQual to Not Equal to Not Equal to > >= < <= == /= .GT. .GE. .LT. .LE. .EQ. .NE. 关系运算符 英语含义 所代表的数学符号 所代表的数学符号

逻辑运算 ■Fortran中有5个逻辑运算符： 逻辑运 含义 逻辑运算 例子含义 算符例 .AND. 逻辑与 A.AND.B A,B为真时，则A.ANDB为真 OR. 逻辑或 A.OR.B A, B之一为真，则A.ORB为真 .NOT. 逻辑非 .NOT.A A为真，则NOTA为假 EQV. 逻辑等价 A.EQV.B A和B值为同一逻辑常量时， A.EQV.B为真 NEQV. 逻辑不等 A.NEQV.B A和B的值为不同的逻辑常量，则 价 A.NEQV.B为真

逻辑运算 „ Fortran Fortran中有5个逻辑运算符 : 含义 A，B为真时，则A.AND.B A.AND.B为真 A，B之一为真，则A.OR.B为真 A为真，则.NOT.A为假 A和B值为同一逻辑常量时， 值为同一逻辑常量时， A.EQV.B A.EQV.B为真 A和B的值为不同的逻辑常量，则 的值为不同的逻辑常量，则 A.NEQV.B A.NEQV.B为真 A.AND.B A.AND.B A.OR.B .NOT.A A.EQV.B A.EQV.B A.NEQV.B A.NEQV.B 逻辑与 逻辑或 逻辑非 逻辑等价 逻辑不等 价 .AND. .OR. .NOT. .EQV. .NEQV. 逻辑运 逻辑运算 例子含义 算符例

选择结构 ■F(逻辑表达式)TEN 。块语句 ·块1 -then块 ■ELSE ■块2 -else块 ■END IF

选择结构 „ IF(逻辑表达式) THEN ← 块IF语句 „ 块1 ← then块 „ ELSE „ 块2 ← else块 „ END IF

循环结构 GOTO(语句标号) DO循环 [构造名DO[标号][循环控制 块 终止语句 循环控制的形式是： [循环变量=下界，上界[，增量]或 []WHLE(逻辑表达式)或 无（用块中的EXIT和CYCLE语句进行实际的控制 终止语句的形式是： END DO[构造名]或 [标号]CONTINUE或 [标号]允许的执行语句

循环结构 „ GOTO (语句标号 ) „ DO循环 [构造名:] DO [ :] DO [标号][循环控制 ] 块 终止语句 循环控制的形式是： 循环控制的形式是： [,] 循环变量＝下界，上界 循环变量＝下界，上界 [，增量] 或 [,] WHILE( [,] WHILE(逻辑表达式) 或 无 (用块中的EXIT 和CYCLE语句进行实际的控制 语句进行实际的控制 ) 终止语句的形式是： 终止语句的形式是： END DO[ END DO[构造名] 或 [标号] CONTINUE ] CONTINUE 或 [标号] 允许的执行语句 允许的执行语句

输入输出和文件 数据传输语句有：READ,ACCEPT, WRITE,PRINT和REWRITE。 ■文件连接、查询和定位语句有： BACKSPACE,CLOSE,DELETE, ENDFILE,INQUIRE,OPEN,REWIND 和UNLOCK

输入输出和文件 输入输出和文件 „ 数据传输语句有： 数据传输语句有：READ ，ACCEPT ， WRITE ，PRINT 和REWRITE REWRITE 。 „ 文件连接、查询和定位语句有： 文件连接、查询和定位语句有： BACKSPACE BACKSPACE ，CLOSE ，DELETE ， ENDFILE ENDFILE ，INQUIRE INQUIRE ，OPEN ，REWIND 和UNLOCK