新浪博客

【fortran】如何读取和输出*txt文件

2012-09-30 20:35阅读：

http://blog.sina.cn/dpool/blog/u/1534635572

(1）读取
用二维数组定义,比如你的文件是3行2列,则定义成A(3,2)
读的时候就是
do 10 i=1,3
10 read(设备号,格式) (A(i,j),j=1,2)
输出就改成write
(2）输出
从ANSYS中导出的单元划分的信息，只想取出其中的单元节点号（第1列）和其坐标（后3列），放到一个文件中，用FORTRAN程序如何实现?
/COM,ANSYS RELEASE 9.0 UP20041104 11:38:43 03/25/2005
/NOPR
NBLOCK,6,SOLID
(3i8,6e16.9)
1 0 0-0.450000000 0.00000000 -0.800000000
2 0 0-0.450000000 -0.400000000
br> -0.800000000
3 0 0-0.450000000 -0.133333333 -0.800000000
4 0 0-0.450000000 -0.266666667 -0.800000000
real :: x,y,z
integer :: num,temp
open(8,file='ansys.dat')
open(9,file='myfile.dat')
do
read(8,'(3i8,6e16.9)',err=100) num,temp,temp,x,y,z
write(9,'(i8,3e17.9)') num,x,y,z
end do
100 close (8)
close (9)
end
(3）摘选
integer 整数类型
real 浮点数
complex 复数
character 字符及字符串
格式化输出：
Iw[.m] 以w个字符的宽度来输出整数，至少输出m个数字
Fw.d 以w个字符文本框宽来输出浮点数，小数部分占d个字符宽，输出文本框的设置不足时一样会出现星号
Ew.d[Ee] 用科学计数法，以w个字符宽来输出浮点数，小数部分占d个字符宽，指数部分最少输出e个数字
Aw 以w个字符宽来输出字符串
nX 输出位置向右移动n位
/ 换行输出
**可参考：《Fortran 95 程序设计》第二版（彭国伦）4-4节

我的更多文章

下载客户端阅读体验更佳

APP专享