fortran代码转python实践技巧.docxVIP

fortran代码转python技巧

Fortran中的I/O格式化用法

格式化：用来指定程序打印输出变量的具体形式，如位置、有效位数等。

READ(*,*)和WRITE(*,*)括号中第二个*号均表示采用自由格式，此时输出中经常有多个额外的空格，且格式往往不统一。因此，可以采用格式化输出模式（采用格式描述符），来指定具体样式。

1.用法（READ和WRITE一致）

采用FORMAT语句，并且结合语句标号（行号）来使用，如：

INTEGER::a=123

WRITE(*,100)a

100FORMAT(,I5)!100是语句标号，将a变量用I5形式输出；前面放置空格，实际上可以不要

直接在第二个*号中指定具体样式，如：

INTEGER::a=123

WRITE(*,(I5))a!单引号也可以，如WRITE(*,(I5))

2.格式描述符

3.WRITE使用对象

1)整数输出（I）

具体使用格式为：rIw或rIw.m，具体用法见上述。

须注意：

整数在输出域内为右对齐；

字符个数超出域宽，输出时会用*号填充；

I0是特殊描述符，可以输出任意整数，而不需担心域宽不足。

具体例子：

PROGRAMmy_test

IMPLICITNONE

INTEGER::a=-123,b,c=5,d=12345

b=a+123

WRITE(,100)a,b,c,d

WRITE(,101)a,b,c,d

WRITE(,200)a,b,c,d

WRITE(,201)a,b,c,d

WRITE(,300)a,b,c,d

WRITE(,400)a,b,c,d100FORMAT(’’,I5,I5,I6,I10)

101FORMAT(’’,2I5,I6,I10)!用了rIw中的r

200FORMAT(’’,2I5.0,I6,I10.6)!用了rIw.m中的r和m，m是至少显示的位数，这里是0，则输出必须要≥0位，由于b的数值为0，因此没有显示值

201FORMAT(’’,2I5.2,I6,I10.6)!输出必须≥1位，b要显示出“00”

300FORMAT(’’,2I5,I6,I3)!d的数值有5位，但域宽只有3位，装不下，因此输出“*”作为警告s

400FORMAT(’’,4I0)!特殊零长度描述符，使整数完整显示出来，此时的域宽w就是整数的长度，总是能够容纳进去STOP

ENDPROGRAMmy_test

相应结果为：

-1230512345

-1230512345

-1235012345

-123005012345

-12305***

-1230512345

2)实数输出（F）

具体使用格式为：rFw.d，具体用法见上述。

须注意：

实数在输出域内为右对齐；

字符个数超出域宽，输出时会用*号填充；

当字符小于域宽时，整数部分在左侧用空格填充，小数部分在右侧用0填充。

具体例子：

PROGRAMmy_test_F

IMPLICITNONE

REAL::a=-123.,b,c=5.2456

b=a+123.

WRITE(,100)a,b,c

WRITE(,200)a,b,c

WRITE(,300)a,b,c

WRITE(,400)a,b,c100FORMAT(’’,F5.0,F6.0,F6.4)!a、b变量，右对齐，左侧填空格；所有变量均使用了rFw.d中的d，即小数位数

200FORMAT(’’,F5.0,F6.0,F6.3)!c变量，由于只要求输出3位小数，因此四舍五入了

300FORMAT(’’,F5.0,2F6.3)!b变量，即使0没有小数，但也要补充完整；同时，使用了rFw.d中的r

400FORMAT(’’,F5.0,F6.3,F3.2)!c变量，由于需要输出2位小数，但域宽为3，而包含小数在内要4个字符宽（5.25），因此超出域宽，用*号填充STOP

ENDPROGRAMmy_test_F

相应结果为：

-123.0.5.2456

-123.0.5.246

-123.0.0