发布时间 : 星期三 文章Fortran77数据格式更新完毕开始阅读8285d93ddd36a32d73758153
Fortran77数据格式
§7.3格式输出
格式输出语句由两部分组成：输出语句和输出格式语句。 输出语句的一般形式为：
WRITE（*,L） 输出表列或：PRINT L输出表列
其中：*代表隐含的输出设备，L指输出格式语句的标号。 输出格式语句的一般形式： L FORMAT（1X,S）
其中：L输出格式语句的标号，1X纵向走纸符，S输出格式，用不同的“格式编辑符”（简称“编辑符”）来实现指定的输出格式，各格式间用逗号相隔。
FORMAT语句又叫“格式语句”，是一个非执行语句，本身不产生任何操作，只是提供输入或输出的格式。FORMAT语句可以出现在程序的任何地方（但必须在PROGRAM语句之后和END语句之前，如果在子程序中用FORMAT语句，则应在子程序定义语句之后）。系统按WRITE语句或PRINT语句中指定的语句标号找到相应的FORMAT语句，并按FORMAT语句所规定的格式对数据进行输出。注意，PRINT语句中不能再用“*”，PRINT语句中的第一个标识符是语句标号而不是要打印输出的数据。
输出格式分两类基本格式 7.3.1 1格式（又叫整数格式） 一般形式：Iw或：Iw.m
其中：w 一个数据占的位数宽度（又称“字段宽度”），m 需要输出的最少数字位数。例1： WRITE （*，100）M，N 100 FORMAT（1X，I4，I4） 如果M=40，N=-12，则输出如下： ??40?-12 例2：
WRITE （* , 100） I,J,K 100 FORMAT（1X,I5.3,I6.3,I4） 若I=1234，J=-24，K=24689 则输出为: ?1234???-24 ****
（1）数字在指定的区域内向右端靠齐，如果数字位数比指定的字段宽度w小，则左边补以空格。负数的
1
符号也包含在字段宽度内。
（2）如果数字的位数超过了规定的字段宽度w，则不输出有效数据，而在该字段宽度范围内充满“*”符号。
（3）如果数字的位数超过了m,则按实际应输出的位数输出（但条件是不能超过w）。m不包括负号所占的一列。
7.3.2 F格式（又叫小数型格式） 一般形式：Fw.d
w 各数值占的总位数，d 输出数据的小数位数（小数点后的位数）。 例1：
WRITE（*，100）A，B，C 100 FORMAT（1X,F10.2,F9.3,F8.4） 若A=1234.56，B=3456.78，C=234.56789 则输出:
???1234.56 ?3456.780 234.5679 例2：
WRITE （* , 100） X,Y 100 FORMAT（1X,F10.4,F10.2）
若X=24680135.7, Y=0.0012345，则输出为: ********** ???????.00
（1）数字在指定的区域内向右端靠齐，如果数字位数（含小数点和符号位）比指定的字段宽度w小，则左边补以空格；如果数字的位数超过了规定的字段宽度w，则不输出有效数据，而在该字段宽度范围内充满“*”符号。
（2）如果数据的小数位数比指定的小数位数d小，则在小数右边补0以凑足d位；如果小数位数大于d位，则输出时多于的小数位数按“四舍五入”规则舍去。
（3）假设b为数据整数部分的位数，则应使w≥b+d+1（小数点占一列），如果输出负数，则应保证w≥b+d+2（小数点和负号各占一列）。
（4）用F格式输出时应注意，由于难以事先确切估计出数据的大小，输出大的数时容易产生“宽度不够”的错误（由于w不够大），输出小的数时会出现丢掉有用数字的情况（由于d不够大而将后面的数字截去），这就是“大数印错，小数印丢”。
7.3.3 E格式（又叫指数型格式）
2
一般形式：w.d
w 各数值占的总位数，d 输出数据的小数位数（小数点后的位数）。 例1：
WRITE（*，100）X，Y 100 FORMAT（1X，E12.4，E12.5 ） 如：X=3.17 Y=1234.56 则输出结果为：
??0.3170E+01 ?0.12346E+04。
（1）采取标准化的指数形式输出一个实数，d为以指数形式出现的数据的数字部分的小数位数。 （2）指数部分一般占4列，其中字母“E”和指数的符号各占一列，指数2列。小数部分d列，再加上一个小数点和小数点前的一个“0”，因此要保证w≥d+6，输出负数时，w≥d+7。
（3）有的计算机系统允许有较大的实数范围，FORTRAN77提供了一种扩充的编辑符，可以输出三位或四位指数。这种编辑符的形式为：Ew.dEe，用e指定指数的位数。有的计算机系统的FORTRAN编译系统已根据其允许的实数范围，自动将指数的位数改为3位或4位，不必在RORMAT语句中用Ew.dEe编辑符单独为某些数据指定所需的指数位数，只需写Ew.d形式即可，输出时系统会给出三位（或四位）指数。
7.3.4 G格式
G格式可以根据输出的实数大小决定用小数形式（F格式）输出或指数形式（E格式）输出。当输出大数值或小数值时自动按E格式，当输出的数不大不小时用F格式。其一般形式为：Gw.d
（1）凡绝对值小于0.1的数或绝对值大于10d的数用E格式输出；其余的数用F格式输出。 （2）用E格式输出时，最后4列为指数部分，而用F格式输出时最后4列留空。
（3）用指数形式输出时，格式同Ew.d；用F格式输出时，不是按Fw.d形式输出，d规定的不是小数位数而是打印出来的全部数字的位数，小数位数根据数值大小和d的大小而定，这样做的目的是使数的整数部分能全部保留，而适当截去小数部分，以保证输出数值的正确性。因为小于10d的数，其整数部分最多为d位，因此，可以全部输出这d位整数，小数的位数为：d-（数值整数位数）。
7.3.5 D格式 一般形式：Dw.a
用于双精度数据的输出，使用方法与E格式相仿，只是把字母“E”换成“D”。 7.3.6L格式 一般形式：Lw
用于逻辑型数据的输出，w输出数据的字段宽度。逻辑值“.TRUE.\，在输出打印一个字母T；逻辑值
3
\，在输出时打印一个字母F。T和F打印在字段范围内的最右端。
7.3.7 A格式 一般形式：Aw 或：A
用于字符型数据的输出，w为字段宽度，不指定w时（即形式：A），按字符变量的实际长度（即程序定义该变量时的长度）输出。
字符串在指定的区域内向右端靠齐，如果字符串的位数比指定的字段宽度w小，则左边补以空格；如果字符串的位数超过了规定的字段宽度w，则只输出最左面的w个字符。
7.3.8 ‘（撇号）格式
用来插入所需的字符串，例如： WRITE（*,100） I,J
100 FORMAT（1X,'I=',I3,'J=',I4） 如果I=123，J=2347，则输出： I=123J=2347
如果需要输出的字符包括撇号，则用两个连续的撇号代表一个被输出的撇号字符。例如： CHARACTER *10 STUD READ * STUD WRITE（*,10） STUD
10 FORMAT（1X,A,'IS LI''S STUDENT.'） END 如果输入给STUD
的值为‘ZHANGSUN’，则输出为： ZHANG SUN IS LI'S STUDENT. 7.3.9 H格式
一般形式：nH <字符串>
用来输出字符常量，与撇号格式相似。n为字符串中字符的个数。如上面的例子（I=123，J=2347），可改写为：
WRITE（*,100） I,J
100 FORMAT（1X,2HI=,I3,2HJ=,I4） 则输出与上例相同： I=123J=2347
4