论坛 › K08：编程语言 › Fortran输出多个数组到文件

sunfishfly 发表于 2010-11-14 10:37:25

Fortran输出多个数组到文件

使用Fortran输出时有三个数组分别为
x=1 2 3 4 5
y=2 2 3 4 5
z=3 2 3 4 5
想输出到文件成这个样子
1 2 3
2 2 2
3 3 3
4 4 4
5 5 5
我使用write（*,*）x,y,z
好像不行，请高手指点

penultimate 发表于 2010-11-14 11:39:38

DO IR = 1,4
   write（*,*）x(IR),y(IR),z(IR)
ENDDO

sunfishfly 发表于 2010-11-14 15:51:14

DO IR = 1,4
   write（*,*）x(IR),y(IR),z(IR)
ENDDO
penultimate 发表于 2010-11-14 11:39 http://forum.simwe.com/images/common/back.gif首先谢谢您的回答，请问
如果不用循环的话能不能实现呢？
我的数据量比较大，循环的话会占用一些计算时间的，
谢谢

baggio1987 发表于 2010-11-14 19:34:46

3# sunfishfly
program write_data
integer::x(5)=(/1,2,3,4,5/)
integer::y(5)=(/1,2,3,4,5/)
integer::z(5)=(/1,2,3,4,5/)
write(*,"(3I1)") (x(i),y(i),z(i),i=1,5)
end
输出结果是
111
222
333
444
555
不过我不确定这样会比循环快多少，可能这样写会被编译器解释的和循环一样。
我在cygwin+g95下编译通过

sunfishfly 发表于 2010-11-15 10:48:11

3# sunfishfly
program write_data
integer::x(5)=(/1,2,3,4,5/)
integer::y(5)=(/1,2,3,4,5/)
integer::z(5)=(/1,2,3,4,5/)
write(*,"(3I1)") (x(i),y(i),z(i),i=1,5)
end
输出结果是
111
222
...
baggio1987 发表于 2010-11-14 19:34 http://forum.simwe.com/images/common/back.gif这样也是循环的
谢谢

查看完整版本: Fortran输出多个数组到文件