fortran 90 文件(文件的操作语句)

第十三章 文 件(FORTRAN的文件操作)土木学院

说明：在实际应用中，往往大量需要处理的数据是由专 门人员来采集,并构成以文件名来具体代表的数据 文件(比如大型有限元软件的数据采集也是这样的);

文件名通常由三部分组成：存放的设备、 文件名本身、文件类别；如何从各种设备上获取和保存不同类型的数据文 件就是我们在进行科学计算时常常遇到的问题；

我们现在主要以磁盘设备为例来介绍FORTRAN 对文件操作的语句(打开、关闭、定位、输入和输出)土木学院

FORTRAN的数据文件由记录组成，也就是对文 件的存取是以记录为单位进行的；文件

记录：长度不超过规定范围的数字或文本 的集合;记录

Fortran的数据文件按存取方式可划分为： 1. 顺序存取文件(顺序文件) 其存取操作必须从头到尾顺序进行； 2. 直接存取文件(直接文件或随机文件) 在程序的执行过程中对任意一个指定的 记录进行操作(读和写)。土木学院

FORTRAN中数据文件的存储形式： 1. 字符形式(ASCII) ——称之为 有格式存放 FORMATTED 2. 二进制数代码形式 ——称之为 无格式存放 UNFORMATTED

土木学院

本章主要内容：有格式顺序存取文件； 有格式直接存取文件； 无格式文件的存取；

文件操作语句；有关文件操作的程序举例。

土木学院

13.1有格式顺序存取文件我们已经知道：READ语句是完成数据输入

任务的。从键盘输入一行数据(以Enter键作为确 认),这就形成了一个 记录 。 从键盘输入一行数据时，必须与指定的格 式对应(格式编辑符与输入的数据类型以 及宽度),否则就会出错(或报错)。土木学院

13.1有格式顺序存取文件Read(*,100) A,B C=A+B Write(*,200) ‘A= ‘,A, ‘B= ‘,B Write(*,200) ‘C= ‘,C 从键盘接收 100 Format(2F6.1) 数据，经过 处理，然后 200 Format(1X,2(A,F7.2)) 输出显示. End输出： A=__10.10_B=__20.40 C=__30.50

输入： __10.1__20.4

土木学院

Read(*,100) A,B C=A+B Write(*,200) 'A= ',A, 'B= ',B Write(*,200) 'C= ',C 100Format(2F6.1) 200Format(1X,2(A,F7.2)) End

土木学院

土木学院

13.1有格式顺序存取文件下面我们就介绍如何从文件中获得数据： (例如:从文件F1.DAT中读取数据,经过处理 后,将结果保存在F2.DAT中) 1. 准备数据文件(可以在各种编辑器中完成, 输入格式及宽度与程序要求的一致),数据文 件名的后缀为 *.DAT(也可以是*.txt); 2. 编写数据输入和数据处理文件,最后将结 果输出到F2.DAT中.土木学院

土木学院

数据输 入和数 据处理

数据 输出

100 200

character*8 Fname1 Integer U1 U1=3 Fname1='F1.DAT' Open(Unit=U1,File=Fname1,Status='OLD', $ Access='Sequential',Form='Formatted') Read(U1,100) A,B C=A+B Open(Unit=2,Fil

e='F2.DAT',Status='New', $ Access='Sequential',Form='Formatted') Write(2,200) 'A=',A, 'B=', B Write(2,200) 'C=',C Close (U1) _123.1_123.2 F1.DAT的内容 Close(2) Format(2F6.1) A=_123.10 B=_123.20 Format(2(A,F7.2)) C=_246.30 F2.DAT的内容 End 注：该源文件与数据文件放在同一目录中

土木学院

这是已被打开 的数据文件的 内容

土木学院

土木学院

$

10

100 202

U1=2 Open(Unit=2,File='F2.DAT',Status='New', Access='Sequential',Form='Formatted') do 10 I=1,30 write(*,*) "请输入学号、两门成绩" Read(*,*) N,A,B C=A+B Write(2,202) '学号：', N,'总成绩',C continue 输入30个学生的学号 Close(2) 和两门成绩,最后将总 Format(I2,F5.1,F5.1) 成绩与学号输出来. Format(A,I2,A,F7.1) End土木学院

这是打开数据 文件F2.DAT 的内容

土木学院