《Fortran格式输入输出.ppt》由会员分享，可在线阅读，更多相关《Fortran格式输入输出.ppt（19页珍藏版）》请在三一办公上搜索。
1、6.1 输入输出概述,第六章 格式输入输出,一般应在输入输出语句中提供三方面的信息：(1)通过什么设备来进行输入输出。(2)采用什么样的格式来进行输入输出。(3)输入输出的具体内容。,输入：从外部设备将数据传送到计算机内存,输出：将计算机内部的数据传送到外部设备,6.2 格式输入输出语句,一、格式输出,(3)格式语句(FORMAT)的语句标号。例如：PRINT 100,A,B,C 100 FORMAT(1X,F9.4,2F7.3),1PRINT语句,格式：PRINT f,输出项,f：格式说明符，有三种形式：,(1)*，使用表控格式。,(2)(格式编辑符)，例：PRINT(1X,2F7.3),X
2、,Y,输出项可以是变量、常量、函数以及表达式。此外，输出项还可以是隐含DO循环。,2.WRITE语句,格式：WRITE(u,f)输出项,U：设备号，用于指明使用的输入输出设备。可以是一个整型量，也可以是星号*，*指系统隐含指定的外部设备，一般为显示器。,f：格式说明符，用法与PRINT语句相同。,二、格式输入,格式：READ f,输入项 READ(u,f)输入项,U：设备号 f：格式说明符,输入项可以是变量，也可以是隐含DO循环。,6.3 格式说明语句,格式说明语句可以放在程序单位语句(主程序语句PROGRAM，子程序语句FUNCTION或SUBROUTINE)之后，END语句之前的任何位置。
3、,格式：语句标号 FORMAT(格式编辑符),例如：10 FORMAT(1X,I4,F5.1),格式说明语句是非执行语句，它只是给输入输出语句提供数据的格式描述。,6.4 常用的编辑符,一、可重复编辑描述符,可重复编辑描述符与输入输出项相对应。不同类型的输入输出项使用不同的编辑描述符。,1.整型数据编辑描述符（I,B,O,Z）,I 编辑符 用于十进制整数的输入输出。,r：重复系数，为1时可以省略。w：字段宽度。,格式：rIw,输入：在输入记录中从左往右取w个字符存入对应的输入项。取得的w个字符必须是整数，正负号也占一个字符位置，空格也占一个字符位置，但不起作用。,例如：READ(*,10)I,
4、J,K 10 FORMAT(I4,I5,I6)输入714-346-12345则 I,J,K 的值分别为：714、-346和-123。,输出：数字在指定的w字段宽度中向右端靠齐，左补空格。当w位数不足时，将输出w个“*”。,例如：WRITE(*,10)K,L 10 FORMAT(1X,I5,I4)当K=12，L=-7567时，输出结果为：12*,(2)B,O,Z 编辑符。这是FORTRAN 90新增的编辑符。分别采用二进制、八进制和十六进制形式描述整型量的输入输出。其基本用法与I 编辑符相同。,2.实型数据编辑描述符（F,E,EN,ES,G）,(1)F 编辑符,用于实型量的小数形式输入输出。,格
5、式：rFw.d,r：重复系数 w：字段宽度d：输入输出的小数位数,输入：按w指定的字段宽度从输入记录中截取数据，若截取的数据中不带小数点，则系统按d自动加上小数点；若数据自带小数点，此时d不起作用，自带小数点优先。,例如：READ(*,10)A,B 输入123456726.89 10 FORMAT(F7.2,F6.1)则A、B的值分别为 1234.56 和 726.89,输出：w实际位数时，左补空格 w实际位数时，输出w个“*”实际位数：整数位数+小数位数+小数点+负号实际小数位 d，保留 d 位，对 d1 位四舍五入,例如：WRITE(*,10)A,B,C 10 FORMAT(1X,3F8.
6、3)当A、B、C的值分别是78.9、-0.00072、12345.678时，输出为：78.900-.001*,(2)E编辑符,用于输入输出指数形式的实数。,格式：rEw.dd：数字部分小数位数,输出采取规格化的指数形式，即小数点在第一位为非零数字的前面。,例如：WRITE(*,10)A,B 10 FORMAT(1X,E12.4,E13.2)当A、B的值为128.433和-0.0008时，输出为：.1284E+03-.80E-03,根据输出数据的大小自动采用 F 或 E 格式,(3)G编辑符,3.复型数据编辑符,对复型数据按实部和虚部分别输入输出。例如 COMPLEX CM READ(*,10)
7、CM WRITE(*,20)CM 10 FORMAT(2F5.2)20 FORMAT(1X,2F7.2)输入1234567890，则输出为：123.45678.90,格式：rGw.d,在输入时，输入的数据可以是.TRUE.或.FALSE.，也可以是头一个字母为 T 或 F 的任何字符串(T或F 前面可以接“.”或空格，后面可以是任意字符),4.逻辑型数据编辑符 L,格式：rLw,在输出时，逻辑值为真输出T，逻辑值为假输出F，且在左边补w-1个空格。例如10 FORMAT(1X,L3,L4)输出为：FT,5.字符型数据编辑符 A,用于字符型数据的输入输出,格式：rAw,首先从输入记录中读取w个字
8、符，再根据输入项的长度L，决定输入变量的内容：当w=L时，w个字符全部送给输入项。当wL时，取右边L个字符送给对应的输入项。当wL时，在w个字符后面补L-w个空格再送给变量。,格式输入字符数据时，不能输入字符串的定界符，也不必加分隔符空格或逗号，而在表控格式输入时，字符常量要加撇号定界符。,省略w时，按字符数据项的实际长度输入输出,输出：当w=L时，输出所有的字符当wL时，字符靠右对齐，左补w-L个空格当wL时，输出左边w个字符,例如：CHARACTER*5 C1,C2,C3 READ(*,10)C1,C2,C3 10 FORMAT(A5,A2,A7)输入abcdefghijklmn，则C1、
9、C2、C3的值分别为：abcde、fg、jklmn,例如：WRITE(*,10)China,China，China 10 FORMAT(1X,A7,A,A3)输出为：ChinaChinaChi,二、非重复编辑描述符,非重复编辑描述符直接向当前输出记录传递信息，因此不需要输入输出项与其对应。,1.X编辑符,用于在输入输出的常数之间插入n个空格,格式：nX,n：正数，从当前位置向右跳过n个字符位置。,例：I=146;A=124.32;B=1247.32 WRITE(*,10)I,A,B 10 FORMAT(1X,I3,2X,F6.2,2X,E11.5)输出：146124.32.12473E+04,
10、例如：READ(*,10)K,J,A 10 FORMAT(2I3,3X),E5.2)输入：876-42193671E4则：K=876,J=-42,A=67100.0其中非重复编辑符3X，跳过193这三个字符。,格式：nH n：正整数,2.H编辑符 用于输出字符串,例：format(1X,2HL=,I3,2HJ=,I4),3.撇号编辑符 用于输出字符串,例：I=123;J=2347 WRITE(*,10)I,J 10 FORMAT(1X,I=,I3,2X,J=,I4)输出：I=123 J=2347,将输出记录中的第一个字符作为纵向走纸控制符，这个字符不输出，而从输出记录的第二个字符开始输出。,4
11、.纵向走纸控制符,常用的控制字符：空格(走纸一行，换行)、0(走纸二行，空一行)、1(换页）、(不走纸，回到本行重迭打印),例如：WRITE(*,10)I,J 10 FORMAT(1X,I=,I3,2X,J=,I4)应输出：I=123J=2347实际输出：I=123J=2347,如果：10 FORMAT(I=,I3,2X,J=,I4)输出：=123J=2347,5.斜扛编辑符,结束当前正在输入或输出的记录，开始下一个记录的输入输出。,例如：I=246;A=12.36;J=35;B=173.5 WRITE(*,10)I,A,J,B 10 FORMAT(1X,I3,F6.1/1X,I3,F6.1)输出：24612.4 35173.5,2.如果可重复编辑符的个数多于输入输出项的个数，则多余的编辑符不起作用。,6.5 输入输出项与编辑符的相互作用,1.输入输出项与编辑符的顺序、类型一一对应,3.如果可重复编辑符的个数少于输入输出项的个数，则按顺序用完最后一个可重复编辑符之后，再重复使用格式说明，但产生一个新记录。,例如：WRITE(*,10)I,A,J,B 10 FORMAT(1X,I3,F6.1),输出：24612.435173.5,
