为何fortan设定的几行几列，输出的为一长列

原紫色天空的爱

菜鸟初级问题求指教

1. open(200,file='d:/chengxu/yc/jg.txt',status='replace')         
   
2.         do j=1,50
   
3.          do i=1,100
   
4.                  b(i,j)=a(i+(j-1)*100)
   
5.                  enddo
   
6.          enddo
   
7.         do j=1,50
   
8.         do i=1,100
   
9.         write(200,*)b(i,j)
   
10. enddo
    
11. enddo
    
12. close(200)
    

open(200,file='d:/chengxu/yc/jg.txt',status='replace')         <br />         do j=1,50<br />          do i=1,100<br />                  b(i,j)=a(i+(j-1)*100)<br />                  enddo<br />          enddo<br />         do j=1,50<br />         do i=1,100<br />         write(200,*)b(i,j)<br /> enddo<br /> enddo<br /> close(200)<br />

设定的是100行五列，结果出来一长列，求指教

言深深

你好，很抱歉一直忙来的晚了！
问题出在这(不想弄懂的，直接跳读最后一行)，fortran默认的每行输出大约80个字节左右，这样单精度和双精度字节不一样，就有可能每行默认输出三到六个数，因此出现每行输出5个是可能的。


那么怎么就搞对了呢？
5楼的思路是正确的，隐循环可以实现，但是很可惜在控制输出格式的时候用了“*”，表示默认格式，和上面的一样，正确的写法是：

do i=1,100
         write(200,“(50f)”)(b(i,j),j=1,50)
enddo

mofangbao

你哪里设置了100行5列了？好好看一下格式化输入与输出这一章吧

topmad

你这个定义的是50*100的啊...最后输出100*5的  怎么排列呢

这个问题好简单，看一下下表控输入输出就有了

天目神眉

哎，现在的孩子，问题自己得先搞清楚呀

纳川

这样可输出100行，50列
do i=1,100
        write(200,*)(b(i,j),j=1,50)
enddo

原紫色天空的爱

纳川 发表于 2012-4-25 11:24

                               
登录/注册后可看大图

这样可输出100行，50列
do i=1,100
        write(200,*)(b(i,j),j=1,50)

感谢回答，估计我电脑有问题，试了好几种方法，输出的都一样

原紫色天空的爱

纳川 发表于 2012-4-25 11:24

                               
登录/注册后可看大图

这样可输出100行，50列
do i=1,100
        write(200,*)(b(i,j),j=1,50)

感谢回答，估计我电脑有问题，试了好几种方法，输出的都一样

原紫色天空的爱

言深深 发表于 2012-4-24 21:48

                               
登录/注册后可看大图

你好，很抱歉一直忙来的晚了！
问题出在这(不想弄懂的，直接跳读最后一行)，fortran默认的每行输出大约80个 ...

学校的破网速，在我弄完之后才看到回复，不过任然很感谢深深斑竹啊，真是尽心尽力