Fortran语言 第三章

2
3 4 5 6 7 8 9 10
!Calculates balance after interest compounded
IMPLICIT NONE REAL balance,interest,rate balance=1000 rate=0.09 interest=rate*balance balance=balance+interest PRINT *,'New balance:',balance END
FORTRAN是英文“FORmula TRANslate”的缩写, 译为“公式翻译器”,它是世界上最早出现的计算 机高级程序设计语言,广泛应用于科学和工程计算 领域。FORTRAN语言以其特有的功能在数值、 科学和工程计算领域发挥着重要作用。
FORTRAN语言程序设计
3
第四章 科学计算语言—— FORTRAN概述
1.固定格式
早期编写FORTRAN 77程序使用如图所示的程序纸，一行有80列， 每行一条程序语句。
FORTRAN语言程序设计
10
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
这80列分为四个区，每一区都有严格的起止范围，具体规定是： （1）第1~5列为标号区； （2）第6列为续行标志区 ； （3）第7~72列为语句区 ； （4）第73~80列为注释区 。 固定格式示例：
FORTRAN语言程序设计
7
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
3. FORTRAN 语言与其他语言的比较
（1）FORTRAN语言具有悠久的历史 。 （2）FORTRAN语言语法严格，更适合严谨的科学计算领域 。 （3）FORTRAN语言可以直接对数组和复数进行运算 。
（3） 1960年，推出FORTRAN Ⅲ，但没有在计算机上实现。
（4） 1963年，推出了FORTRAN Ⅳ。没有充分考虑兼容性。
（5） 1966年，推出FORTRAN 66，美国标准，后被ISO采用。
FORTRAN语言程序设计
5
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
FORTRAN语言程序设计
14
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
4.4 FORTRAN 90/95语言源程序的结构
我们先来看一个银行存款程序实例：
1 PROGRAM ex04_01
考 虑 到 兼 容 性 ， 在 FORTRAN 90/95 中 仍 可 使 用 FORTRAN 77源程序的书写格式。。
FORTRAN语言程序设计
9
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
15
FORTRAN语言程序设计
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
1.简单FORTRAN程序的构造形式
主程序
[PROGRAM 程序名] [声明语句] [执行语句] END[PROGRAM [程序名]]
FORTRAN语言程序设计
4
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
1.FORTRAN的发展历程
（1）1951年，John Backus在纽约首次提出FORTRAN语言 ，并 于1954年对外发布，称FORTRANⅠ。 （2）1958年，扩充和完善FORTRANⅠ, 引入函数概念，投入商 业运行，推出FORTRANⅡ。
4.3 FORTRAN 90/95语言源程序书写格式
FORTRAN 有两种格式： （1）固定格式（Fixed Format） FORTRAN 77 及以前的版本源程序书写格式采用固定 格式,固定格式的程序文件扩展名为.f或.for; （2）自由格式（Free Format） FORTRAN 90/95 提供了较为自由的程序书写格式 , 自 由格式的程序文件扩展名为.f90;
(1）通常，空白没有意性 （2）FORTRAN 90/95只提供了一种注释方式：以感叹 号开始的语句作为注释，字符串内的感叹号除外
FORTRAN语言程序设计
18
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
2.语句及其顺序
PROGRAM语句、FUNCTION语句、SUBROUTINE语句、MODULE语句、BLOCK DATA语句
USE语句 IMPLICIT NONE PARAMETER语句
IMPLICIT语句 导出类型定义、接口 块、类型声明语句、 语句函数语句、说明 语句 可执行语句
FORMAT语句 和 ENTRY语句
（4）FORTRAN语言在并行计算方面有独特的优势 。
（5）FORTRAN语言是一种编译语言，运行速度快 。
（6）FORTRAN语言仍在不断完善和发展中，功能不断增强。
FORTRAN语言程序设计
8
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
第四章
科学计算语言——FORTRAN 概述
FORTRAN语言程序设计
1
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
本章小结
介绍了 FORTRAN 作为一门科学计算语言的发 展历程 ，强调学习FORTRAN的重要性
通过对 FORTRAN 90/95 语言源程序书写格式 的介绍，了解了 FORTRAN 语言源程序的结构， 对FORTRAN程序有了一个大概的了解
第四章 科学计算语言—— FORTRAN概述
FORTRAN语言程序设计
辅程序（过程） SUBROUTINE 子程序 FUNCTION 函数 BLOCK DATA 块数据 MODULE 模块（FORTRAN 90/95） 内部过程 CONTAINS（FORTRAN 90/95）
FORTRAN语言程序设计
16
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
PARAMETER语句 和DATA语句 DATA语句 CONTAINS语句 函数子程序、子例子程序 END语句
FORTRAN语言程序设计
17
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
3.空白与注释的作用
（3）当一个语句比较长时，在一行中的132列中书写不完时，允 许有另外39个续行 。
自由格式示例：
FORTRAN语言程序设计
13
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
! 求一元二次方程两个实根 PROGRAM quadratic REAL a,b,c,d,x1,x2 READ *,a,b,c !输入系数 d=b*b–4*a*c !计算判别式 IF (d>=0) THEN x1=(–b+SQRT(d))/(2*a)；x2=(–b–SQRT(d))/(2*a) PRINT *, 'x1=' , x1 PRINT *, 'x2=' , x2 ELSE PRINT *, '该方程有复数根。' END IF END !程序结束
FORTRAN语言程序设计
6
第四章 科学计算语言—— FORTRAN概述
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
2.FORTRAN的特点
（1）加强了程序的可读性、可维护性 。
（2）发展现代算法功能 。
（3）扩大与编程者的友好界面 。
FORTRAN语言程序设计
11
第四章 科学计算语言—— FORTRAN概述
标号区 续行区 (1-5列) (6列)
NANJING UNIVERSITY OF INFORMATION SICENCE & TECHNOLOGY
语句区 (7-72列)
注释区 (73-80列)
! 求一元二次方程两个实根 PROGRAM quadratic REAL a,b,c,d,x1,x2 READ *,a,b,c d=b*b–4*a*c 100 IF (d>=0) THEN x1=(–b+SQRT(d))/(2*a) x2=(–b–SQRT(d)) & /(2*a) PRINT *, 'x1=' , x1 PRINT *, 'x2=' , x2 ELSE PRINT *, '该方程有复数根。' END IF END